yksb.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:2k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%
  2. dim cnscu
  3. cnscu=usb(request("cnscu"))
  4. if cnscu="" then cnscu="123456.123456"
  5. yy=Month(now)&"" '月
  6. rr=Day(now)&"" '日
  7. if len(rr)=1 then rr="0"&rr 
  8. hh=hour(now)&"" '时
  9. if len(hh)=1 then hh="0"&hh
  10. mm=minute(now)&"" '分
  11. if len(mm)=1 then mm="0"&mm
  12. ttvv="" & yy & "" & rr &"" & hh &"" & mm &""
  13. set zhhp=Server.CreateObject("ADODB.Recordset")
  14.   zhhssqlp="select * from cnscu_gr where CStr(grsb)='"&cnscu&"'"
  15.   zhhp.open zhhssqlp,conn,1,3
  16. if zhhp.eof then
  17. myid="0"
  18. myni="网络游侠"
  19. ltmybz="0"
  20. ltmybz1="0"
  21. myxcy="0"
  22. mycjbz="0"
  23. lll="15"
  24. ssbb="500"
  25. Else
  26. if zhhp("sfyk")=0 then response.redirect "dyc.asp?idd="&zhhp("id")
  27. if zhhp("grzt")=2 then response.redirect "cnscu_grdl.asp?cw=19"
  28. '计算在线人数,暂时不准确
  29. zhhp("tj")=ttvv
  30. zhhp("tjj")=now()
  31. zhhp("zx")=1
  32. zhhp.update
  33. ffbbid=zhhp("id")
  34. myid=zhhp("id")
  35. session("myid")=zhhp("id")
  36. session("ltmybz")=zhhp("gllt")
  37. grni=zhhp("nini")
  38. myni=zhhp("nini")
  39. myjb=zhhp("myjb")
  40. grni1=zhhp("nini")
  41. grjs1=zhhp("grjs")
  42. grxb=zhhp("grsex")
  43. grtx1=zhhp("grtx")
  44. session("ltmybz")=zhhp("gllt")
  45. session("ltmybz1")=zhhp("gllt1")
  46. ltmybz=zhhp("gllt")
  47. ltmybz1=zhhp("gllt1")
  48. myxcy=zhhp("ltxcy")
  49. mycjbz=zhhp("ltzj")
  50. myjf=zhhp("myjf")
  51. lll=zhhp("lll")
  52. ssbb=zhhp("ssbb")
  53. ftsj=zhhp("ftsj")
  54. hfsj=zhhp("hfsj")
  55. end if
  56. zhhp.close
  57. set zhhp=nothing
  58. if myid<>"1" then
  59. set rssd=Server.CreateObject("ADODB.Recordset")
  60. rspplsd="select mmop,id from wap_jb where cstr(id)=1 and cstr(mmop)=1"
  61. rssd.open rspplsd,conn,1,2
  62. if not rssd.eof then
  63. browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
  64. if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="fetc" or browsers="r380" or browsers="winw" or  browsers="mozi" or browsers="mozi"  or browsers="m3ga" then
  65. response.redirect"../sorr.asp"
  66. end if
  67. end if
  68. rssd.close
  69. set rssd=nothing
  70. end if
  71. %><%
  72. '====================================================================
  73. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  74. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  75. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  76. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  77. '====================================================================
  78. %>