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

手机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. <!--#include file="cnscucsb.asp"-->
  7. <wml><%
  8. '====================================================================
  9. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  10. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  11. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  12. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  13. '====================================================================
  14. %> <head>
  15. <meta http-equiv='Cache-Control' content='no-cache'/>
  16. </head>
  17. <%
  18. '---接收数据----
  19. id=request.QueryString("id")
  20. ltid=request.QueryString("ltid")
  21. tid=request.QueryString("tid")
  22. sid=request("sid")
  23. '---结束接收----
  24. %>
  25. <%
  26. dim id,page
  27. tid=request.QueryString("tid")
  28. page=request.QueryString("page")
  29. if page="" or page<1 then page=1
  30. set mtrs=Server.CreateObject("ADODB.Recordset")
  31. mtrsql="select mtjg,id,fid from lttz where CStr(id)="&tid
  32. mtrs.open mtrsql,conn,1,2
  33. if mtrs.recordcount=0 then%>
  34. 帖子ID错误!
  35.  <%else%>
  36. <%
  37. mtjg=mtrs("mtjg")
  38. fid=mtrs("fid")
  39. end if
  40. mtrs.close
  41. set mtrs=nothing
  42. %>
  43. <card title="购买帖子" ontimer="lt_view.asp?cnscu=<%=cnscu%>&amp;tid=<%=tid%>&amp;ltid=<%=ltid%>&amp;page=1">
  44. <timer value="10"/>
  45. <p>
  46. <%
  47. '---读取数据----
  48. set rs=Server.CreateObject("ADODB.Recordset")
  49. rspl="select * from mtjl where tid="&tid
  50. rs.open rspl,conn,1,2
  51. if rs.recordcount<>0 then 
  52. '---错误跳转----
  53. if mtjg>myjf then response.redirect "lt_view.asp?cw=6&cnscu="&cnscu&"&ltid="&ltid&"&tid="&tid&""
  54. if rs("mid")=myid then response.redirect "lt_view.asp?cw=5&cnscu="&cnscu&"&ltid="&ltid&"&tid="&tid&""
  55. '---增加卖贴者积分----
  56.   sql="update cnscu_gr set myjf=myjf+"&mtjg&" Where CStr(id)="&fid
  57.   conn.Execute(sql)
  58. '---扣除购买者积分----
  59.   sql="update cnscu_gr set myjf=myjf-"&mtjg&" Where CStr(id)="&myid
  60.   conn.Execute(sql)
  61. '---开始增加----
  62. rs.addnew
  63. if tid<>"" then rs("tid")=tid
  64. if myid<>"" then rs("mid")=myid
  65. '---结束增加----
  66. rs.update
  67. '---关闭数据----
  68. rs.close
  69. set rs=nothing
  70. else
  71. '---增加卖贴者积分----
  72.   sql="update cnscu_gr set myjf=myjf+"&mtjg&" Where CStr(id)="&fid
  73.   conn.Execute(sql)
  74. '---扣除购买者积分----
  75.   sql="update cnscu_gr set myjf=myjf-"&mtjg&" Where CStr(id)="&myid
  76.   conn.Execute(sql)
  77. '---开始增加----
  78. rs.addnew
  79. if tid<>"" then rs("tid")=tid
  80. if myid<>"" then rs("mid")=myid
  81. '---结束增加----
  82. rs.update
  83. rs.close
  84. set rs=nothing
  85. end if%>
  86. 操作成功。。<br/>正在返回..
  87. </p>
  88. </card>
  89. </wml>