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

手机WAP编程

开发平台:

ASP/ASPX

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
  2. <%response.buffer=true%>
  3. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
  4. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
  5. <!--#include file="conn.inc"-->
  6. <wml><%
  7. '====================================================================
  8. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  9. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  10. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  11. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  12. '====================================================================
  13. %> <head>
  14. <meta http-equiv='Cache-Control' content='no-cache'/>
  15. </head>
  16. <card title="进入社区">
  17. <p>
  18. <%
  19. idd=request("idd")
  20. mmwt=request("mmwt")
  21. wtda=request("wtda")
  22. myni=request("myni")
  23. myxb=request("myxb")
  24. if myni="闪电感觉" then response.redirect "dyc.asp?idd="&idd&"&cw=4"
  25. if mmwt="" or wtda="" or myxb="" or myni="" then 
  26. response.redirect "dyc.asp?idd="&idd&"&cw=3"
  27. else
  28. if qmm<>xmm then response.redirect "xgmm.asp?cnscu="&cnscu&"&cw=2"
  29. set rspx=Server.CreateObject("ADODB.Recordset")
  30.   ssql="select * from cnscu_gr where cstr(id)="&idd
  31.   rspx.open ssql,conn,1,3
  32. If not rspx.Eof Then
  33. if mmwt<>"" then rspx("mmwt")=mmwt
  34. if wtda<>"" then rspx("wtda")=wtda
  35. if myni<>"" then rspx("nini")=myni
  36. if myxb<>"" then rspx("grsex")=myxb
  37. rspx("sfyk")=1
  38. rspx.update
  39. cnscu=rspx("grsb")
  40. else
  41. cccww="修改失败!<br/>"
  42. End if
  43. rspx.close
  44. set rspx=Nothing%>
  45. <%if cccww<>"" then%>
  46. <%=cccwww%>
  47. <%else%>
  48. 正在进入。。。<br/>
  49. <%response.redirect "index.asp?cnscu="&cnscu&""%>
  50. <%end if%>
  51. <%end if%>
  52. +++++++++<br/>
  53. <a href="hy.asp?cnscu=<%=cnscu%>">会员中心</a>
  54. <br/><!--#include file="w.asp"-->
  55. </p>
  56. </card>
  57. </wml>