home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / opensoft.asp < prev    next >
Text File  |  2006-06-01  |  6KB  |  175 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║opensoft.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.21 Free
  5. '=╣ª    ─▄ú║╚φ╝■╧┬╘╪╓┤╨╨╥│├µ
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-2-19 18:09
  8. '=░µ    ╚¿ú║http://www.feitec.com/
  9. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  10. '==================================
  11. %>
  12. <!--#include file="Ft_config.asp"-->
  13. <!--#include file="Ft_conn.asp"-->
  14. <!--#include file="Ft_format.asp"-->
  15. <!--#include file="Ft_lib.asp"-->
  16. <!--#include file="Ft_md5.asp"-->
  17. <%
  18. sub_title="╛▀╠σ╚φ╝■╧┬╘╪"
  19. dim softid,urlnum
  20. if request.querystring("id")="" or request.querystring("url")="" then
  21.     response.redirect("showerr.asp?errmsg=╟δ╓╕╢¿▓┘╫≈╢╘╧≤")
  22.     response.end
  23. else
  24.     softid=checksql("╚φ╝■ID",request.querystring("id"),0,8)
  25.     urlnum=checksql("╚φ╝■╧┬╘╪╒╛╡π",request.querystring("url"),0,1)
  26. end if
  27.  
  28. if request.querystring("open")="" or request.querystring("down")="" then
  29.     softopen=""
  30.     softuser=""
  31. else
  32.     softopen=checksql("╚φ╝■OPEN▓╬╩²",request.querystring("open"),1,40)
  33.     softuser=checksql("╚φ╝■DOWN▓╬╩²",request.querystring("down"),1,10)    
  34. end if
  35. '=========╖└╓╣═¿╣²┴φ┤µ╬¬╖╜╩╜╧┬╘╪======
  36. From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
  37. Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
  38. if mid(From_url,8,len(Serv_url)) <> Serv_url then
  39.     response.redirect("showerr.asp?errmsg=<br><li>╖╟╖¿╡─┴┤╜╙╗≥╖╟╖¿╡─╧┬╘╪╖╜╖¿íú</li><br><br><li>╒²╚╖╡─╧┬╘╪╖╜╖¿╩╟ú║</li><br> ó┘╘┌▒╛╒╛╧┬╘╪ú╗<br> ó┌╓▒╜╙╡π╗≈┴┤╜╙╧┬╘╪ú¼▓╗┴φ┐¬IE┤░┐┌ú╗<br> ó█═╧╖┼┴┤╜╙╡╜╧┬╘╪╣ñ╛▀╡─╕í╢»┤░┐┌ú¼╕▀╦┘╧┬╘╪íú")
  40.     response.end
  41. end if
  42. '=========╚í│÷╚φ╝■╧α╣╪▓╬╩²
  43. sql="select * from Ft_soft where soft_id="&softid
  44. set rs=server.createobject("adodb.recordset")
  45. rs.open sql,conn,1,1
  46. if not rs.eof then
  47.     userview=rs("user_view")
  48.     moneypay=rs("moneypay")
  49. else
  50.     response.redirect("showerr.asp?errmsg=├╗╙╨┤╦╚φ╝■╗≥┤╦╚φ╝■╥╤╔╛│²")
  51.     response.end
  52. end if
  53. rs.close
  54. set rs=nothing
  55.  
  56. url="soft_url"+urlnum
  57. sql="select "&url&" from Ft_soft where soft_id="&softid
  58. set rs=server.createobject("adodb.recordset")
  59. rs.open sql,conn,1,1
  60. downurl=rs(0)
  61. rs.close
  62. set rs=nothing
  63.  
  64. '╡▒╙├╗º╧╡═│╣╪▒╒╩▒
  65. if user_system=0 or session("feitec_adminlogin")=feitec_sessionvar then 
  66.     if downtools=1 or downtools=2 then '╚τ╣√╘╩╨φ╙├╣ñ╛▀╧┬╘╪
  67.         call softdcount()
  68.         response.redirect downurl
  69.     else
  70.         if request.Cookies("soft_download")<>feitec_sessiondown then
  71.             Response.Write "<script>alert('Sorry,▒╛╒╛╜√╓╣╩╣╙├╣ñ╛▀╚φ╝■╧┬╘╪ú¼╟δ┤╙▒╛╒╛╓▒╜╙╘┌IE╓╨╧┬╘╪ú¼╨╗╨╗║╧╫≈úí');location="""&weburl&"/download.asp"";</script>"
  72.             Response.end
  73.         end if
  74.         call softdcount()
  75.         response.redirect downurl
  76.     end if
  77. end if
  78. '╙├userview╫≈╬¬╩╫▓π┼╨╢╧
  79. if userview=0 then  '╚τ╣√┤╦╚φ╝■╩╟╞╒═¿╚φ╝■
  80.     if downtools=1 then '╚τ╣√╘╩╨φ╙├╣ñ╛▀╧┬╘╪
  81.         call softdcount()
  82.         response.redirect downurl
  83.     elseif downtools=2 then '╘╩╨φ╗ß╘▒╙├╣ñ╛▀╧┬╘╪
  84.         sql="select * from Ft_user where name='"&softuser&" '"
  85.         set rs=server.createobject("adodb.recordset")
  86.         rs.open sql,conn,1,1
  87.         if rs.eof and rs.bof or softopen<>Ft_md5(rs("user_id")+3) then
  88.             if request.Cookies("soft_download")<>feitec_sessiondown then
  89.                 Response.Write "<script>alert('Sorry,▒╛╒╛╜√╓╣╖╟╗ß╘▒╩╣╙├╣ñ╛▀╚φ╝■╧┬╘╪ú¼╟δ┤╙▒╛╒╛╓▒╜╙╘┌IE╓╨╧┬╘╪ú¼╨╗╨╗║╧╫≈úí');location="""&weburl&"/download.asp"";</script>"
  90.                 Response.end
  91.             end if
  92.             call softdcount()
  93.             response.redirect downurl
  94.         else
  95.             call softdcount()
  96.             response.redirect downurl
  97.         end if
  98.     elseif downtools=0 then'▓╗╘╩╨φ╙├╣ñ╛▀╧┬╘╪
  99.         if request.Cookies("soft_download")<>feitec_sessiondown then
  100.             Response.Write "<script>alert('Sorry,▒╛╒╛╜√╓╣╩╣╙├╣ñ╛▀╚φ╝■╧┬╘╪ú¼╟δ┤╙▒╛╒╛╓▒╜╙╘┌IE╓╨╧┬╘╪ú¼╨╗╨╗║╧╫≈úí');location="""&weburl&"/download.asp"";</script>"
  101.             Response.end
  102.         end if
  103.         call softdcount()
  104.         response.redirect downurl
  105.     end if
  106. elseif userview=1 then '╞╒═¿╗ß╘▒╚φ╝■
  107.     sql="select * from Ft_user where lock=0 and name='"&softuser&"'and passed=1"
  108.     set rs2=server.createobject("adodb.recordset")
  109.     rs2.open sql,conn,1,3
  110.     if not rs2.eof then
  111.         if rs2("user_money")<0 then
  112.             response.write"<script>alert('"&softuser&"ú¼─π╡─╜≡▒╥╩²╥╤▓╗╣╗ú¼╟δ╝░╩▒│Σ╓╡úí');history.go(-1);</script>"
  113.             response.end
  114.         else
  115.             rs2("user_money")=rs2("user_money")-moneypay
  116.             rs2.update
  117.         end if
  118.     else
  119.         response.write"<script>alert('├╗╙╨┤╦╗ß╘▒╗≥┤╦╗ß╘▒╒²╘┌╔≤║╦╗≥┤╦╗ß╘▒╥╤▒╗╦°╢¿');location.href='index.asp';</script>"
  120.         response.end
  121.     end if
  122.     rs2.close:set rs2=nothing
  123.     if downtools=1 or downtools=2 then '╚τ╣√╘╩╨φ╙├╣ñ╛▀╧┬╘╪╗≥╘╩╨φ╗ß╘▒╙├╣ñ╛▀╧┬╘╪
  124.         call softdcount()
  125.         response.redirect downurl
  126.     else '▓╗╘╩╨φ╙├╣ñ╛▀╧┬╘╪
  127.         if request.Cookies("soft_download")<>feitec_sessiondown then
  128.             Response.Write "<script>alert('Sorry,▒╛╒╛╜√╓╣╩╣╙├╣ñ╛▀╚φ╝■╧┬╘╪ú¼╟δ┤╙▒╛╒╛╓▒╜╙╘┌IE╓╨╧┬╘╪ú¼╨╗╨╗║╧╫≈úí');location="""&weburl&"/download.asp"";</script>"
  129.             Response.end
  130.         end if
  131.         call softdcount()
  132.         response.redirect downurl
  133.     end if
  134. elseif userview=2 then 'VIP╗ß╘▒╚φ╝■
  135.     sql="select * from Ft_user where lock=0 and name='"&softuser&"'and passed=1"
  136.     set rs2=server.createobject("adodb.recordset")
  137.     rs2.open sql,conn,1,3
  138.     if not rs2.eof then
  139.         if rs2("user_money")<0 then
  140.             response.write"<script>alert('"&softuser&"ú¼─π╡─╜≡▒╥╩²╥╤▓╗╣╗ú¼╟δ╝░╩▒│Σ╓╡úí');history.go(-1);</script>"
  141.             response.end
  142.         elseif rs2("user_type")<>2 then
  143.             response.write"<script>alert('─·▓╗╩╟VIP╗ß╘▒ú¼╬▐╚¿▓Θ┐┤┤╦╥│');history.go(-1);</script>"
  144.             response.end
  145.         else
  146.             rs2("user_money")=rs2("user_money")-moneypay
  147.             rs2.update
  148.         end if
  149.     else
  150.         response.write"<script>alert('├╗╙╨┤╦╗ß╘▒╗≥┤╦╗ß╘▒╒²╘┌╔≤║╦╗≥┤╦╗ß╘▒╥╤▒╗╦°╢¿');location.href='index.asp';</script>"
  151.         response.end
  152.     end if
  153.     rs2.close:set rs2=nothing
  154.     if downtools=1 or downtools=2 then '╚τ╣√╘╩╨φ╙├╣ñ╛▀╧┬╘╪╗≥╘╩╨φ╗ß╘▒╙├╣ñ╛▀╧┬╘╪
  155.         call softdcount()
  156.         response.redirect downurl
  157.     else '▓╗╘╩╨φ╙├╣ñ╛▀╧┬╘╪
  158.         if request.Cookies("soft_download")<>feitec_sessiondown then
  159.             Response.Write "<script>alert('Sorry,▒╛╒╛╜√╓╣╩╣╙├╣ñ╛▀╚φ╝■╧┬╘╪ú¼╟δ┤╙▒╛╒╛╓▒╜╙╘┌IE╓╨╧┬╘╪ú¼╨╗╨╗║╧╫≈úí');location="""&weburl&"/download.asp"";</script>"
  160.             Response.end
  161.         end if
  162.         call softdcount()
  163.         response.redirect downurl
  164.     end if
  165. end if
  166.  
  167. sub softdcount()
  168.     set rs=conn.execute("select soft_id,soft_dcount from Ft_soft")
  169.     sql="UPDATE Ft_soft SET soft_dcount = soft_dcount + 1  WHERE soft_id="&softid
  170.     conn.execute (sql)
  171.     rs.close
  172.     set rs=nothing
  173. end sub
  174. CloseDatabase
  175. %>