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

手机WAP编程

开发平台:

ASP/ASPX

  1. <% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
  2. <!--#include file="conn.inc"-->
  3. <wml><%
  4. '====================================================================
  5. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  6. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  7. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  8. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  9. '====================================================================
  10. %> <head>
  11. <meta http-equiv="Cache-Control" content="max-age=0"/>
  12. <meta http-equiv="Cache-Control" content="no-cache"/>
  13. <meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
  14. </head>
  15. <%dim cnscu
  16. cnscu=request.querystring("cnscu")
  17. if cnscu<>"" then
  18.   set objgbrs=Server.CreateObject("ADODB.Recordset")
  19.   ssql="select * from cnscu_gr where grsb=" & Sqlstr(cnscu)
  20.   objgbrs.open ssql,conn
  21. if objgbrs.eof then
  22. response.redirect "cnscu_grdl.asp"
  23. response.end
  24. else
  25. if cnscu=objgbrs("grsb") then
  26. phone=objgbrs("sjhm")
  27. pass=objgbrs("dlmm")
  28. response.redirect "index.asp?cnscu="&cnscu
  29. response.Cookies("cnscu")=cnscu
  30. end if
  31. end if
  32. end if
  33. set objgbrs=nothing
  34. conn.close
  35. set conn=nothing
  36. function sqlstr(data)
  37.    sqlstr="'" & Replace(data,"'","'") & "'"
  38.   End function
  39. %>