ckxx_view.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><meta http-equiv='Cache-Control' content='no-cache'/>
  14. </head>
  15. <card title="查看消息">
  16. <p>
  17. <!--#include file="cnscucsb.asp"-->
  18. <%
  19. dim id
  20. id=request("id")
  21. set objgbrr=Server.CreateObject("ADODB.Recordset")
  22.   ssql="select id,fnr,fid,sid from tbxx where cstr(id)="&id&" and cstr(fid)="&myid
  23.   objgbrr.open ssql,conn,1,1
  24. if objgbrr.eof then%>
  25. 没有本信息<br/>
  26. <%else
  27. js=objgbrr("fnr")
  28. ffid=objgbrr("sid")
  29. objgbrr.close
  30. set objgbrr=nothing
  31. set oprs=Server.CreateObject("ADODB.Recordset")
  32.   sqll="select id,nini from cnscu_gr where cstr(id)="&ffid
  33.   oprs.open sqll,conn,1,1
  34. if oprs.eof then
  35. zuoze="1"
  36. Else
  37. zuoze=oprs("nini")
  38. oprs.close
  39. set oprs=nothing
  40. end if
  41. %>
  42. 内容:<%=ubb(js)%><br/>
  43. 目的地:
  44. <%if zuoze<>"1" then%>
  45. <a href="gr_zl.asp?id=<%=ffid%>&amp;cnscu=<%=cnscu%>"><%=zuoze%></a>
  46. <%end if%>
  47. <%if zuoze="1" then%>
  48. 系统消息<br/>
  49. <%end if%>
  50. <br/>************<br/>
  51. <%end if%>
  52. <a href="xx_list.asp?cnscu=<%=cnscu%>">回到消息中心</a><br/>
  53. <!--#include file="w.asp"-->
  54. </p>
  55. </card>
  56. </wml>