jbyou.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. <wml><%
  6. '====================================================================
  7. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  8. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  9. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  10. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  11. '====================================================================
  12. %> <!--#include file="conn.inc"-->
  13. <head>
  14. <meta http-equiv="Cache-Control" content="no-Cache"/>
  15. <meta http-equiv="Cache-Control" content="max-age=0"/>
  16. </head>
  17. <card title="举报站点">
  18. <p>
  19. <%name=usb(request("name"))
  20. if name<>"" then jbname="[举报]"&name&""
  21. url=usb(request("url"))
  22. if url<>"" then urle="地址"&url&""
  23. %>
  24. 作者*<input name="name" title="名称" type="text" format="*M" emptyok="true" maxlength="10" value="游客"/><br/>
  25. 标题*<input name="title<%=minute(now)%><%=second(now)%>" title="标题" type="text" format="*M" emptyok="true" maxlength="20" value="<%=jbname%>"/><br/>
  26. 内容*
  27. <input name="text<%=minute(now)%><%=second(now)%>" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value="<%=urle%>"/><br/>
  28. <%
  29. numb=request.serverVariables("HTTP_X_UP_CALLING_LINE_ID")
  30. numb=right(numb,11)
  31.  if numb="" then 
  32. %>
  33. 联系方式(加密必填!):<br/>
  34. <input name='num' format="*N" maxlength="10" value='numb'/><br/>
  35. <%
  36. num1 = "$(num)"
  37. else
  38. num1 = numb
  39. end if %>
  40. 性质:
  41. <select title="性质" name="open">
  42. <option title="公开" value="0">--公开--</option>
  43. <option title="秘密" value="1">--秘密--</option>
  44. </select><br/>
  45. <anchor>确定提交
  46.     <go href="lyaddcl.asp" method="post" accept-charset="utf-8">
  47.         <postfield name="name" value="$(name)"/>
  48.         <postfield name="title" value="$(title<%=minute(now)%><%=second(now)%>)"/>
  49.         <postfield name="text" value="$(text<%=minute(now)%><%=second(now)%>)"/>
  50.         <postfield name="open" value="$(open)"/>
  51.         <postfield name="num" value="<%=num1%>"/>
  52.         <postfield name="pic" value="$(pic)"/>
  53.     </go>
  54. </anchor><br/>
  55. ----------<br/>
  56. <a href="you.asp">友链首页</a>|<a href="index.asp">网站主页</a>
  57. </p>
  58. </card>
  59. </wml>