开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
list.asp
资源名称：wap.rar　[点击查看]
上传用户：sking1122
上传日期：2020-09-24
资源大小：1005k
文件大小：3k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

list.asp：源码内容
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd" >
  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <!--#include file="conn.inc"-->
  5. <%
  6. mmmm=usb(request("mmmmm"))
  7. id=usb(request("id"))
  8. if id="" then id="0"
  9. set rss=Server.CreateObject("ADODB.Recordset")
  10. rsspl="select * from wap_lm where id="&id
  11. rss.open rsspl,conn,1,2
  12. if rss.eof then 
  13. nxn="出错了"
  14. else
  15. nxn=ubb(rss("nxn"))
  16. txt=ubb(rss("txt"))
  17. mm=ubb(rss("mm"))
  18. yccl=ubb(rss("yc"))
  19. dq=ubb(rss("dq"))
  20. if dq="" then dq="left"
  21. end if
  22. %>
  23. <head>
  24. <meta http-equiv="Content-Type" content="application/vnd.wap.xhtml+xml;charset=UTF-8"/>
  25. <title><%=nxn%></title>
  26. <link href="css.css" rel="stylesheet" type="text/css" />
  27. </head>
  28. <body>
  29. <%
  30. set rs=Server.CreateObject("ADODB.Recordset")
  31. rsppl="select * from wap_lm where lx<>500 and did<>0 and yc<>1 and did="&id&" order by pid asc"
  32. rs.open rsppl,conn,1,2
  33. if rs.eof then 
  34. response.write("栏目建设中。。<br/>")
  35. else%>
  36. <%if mm="0" or mm=mmmm then%>
  37. <%rs.Move(0)
  38. dim j
  39. j=1
  40. do while ((not rs.EOF) and j <=500000)%>
  41. <%if rs("lx")="1" then%>
  42. <%=ubb(rs("txt"))%>
  43. <%elseif rs("lx")="2" then%>
  44. <a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
  45. <%elseif rs("lx")="3" then%>
  46. <img src="<%=ubb(rs("url"))%>" alt="<%=ubb(rs("nxn"))%>"/>
  47. <%elseif rs("lx")="4" then%>
  48. <a href="<%=ubb(rs("url"))%>"><img src="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
  49. <%elseif rs("lx")="5" then%>
  50. <a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
  51. <%elseif rs("lx")="6" then%>
  52. <a href="view.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
  53. <%elseif rs("lx")="7" then%>
  54. <a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
  55. <%elseif rs("lx")="8" then%>
  56. <%=ubb2(rs("txt"))%>
  57. <%elseif rs("lx")="9" then%>
  58. <%=rs("txt")%>
  59. <%elseif rs("lx")="10" then%>
  60. <a href="wlist.asp?id=<%=rs("id")%>&amp;page=1"><%=ubb(rs("txt"))%></a>
  61. <%elseif rs("lx")="11" then%>
  62. <a href="dowm.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
  63. <%elseif rs("lx")="12" then%>
  64. <a href="soft.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  65. <%elseif rs("lx")="13" then%>
  66. <a href="piclist.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
  67. <%end if%>
  68. <%if rs("brr")="1" then%><br/><%end if%>
  69. <%
  70. rs.MoveNext
  71. j=j+1
  72. loop
  73. end if
  74. end if%>
  75. <%if mm<>"0" and mm<>mmmm then%>
  76. 加密页面！请输入正确密码！<br/>
  77. 请输入密码<br/>
  78. <input name="nnmm" title="密码" type="text" maxlength="100" /><br/>
  79. <anchor>
  80. [确定提交]
  81. <go href="list.asp?id=<%=id%>&amp;mkl=<%=time%>" method="post" accept-charset="utf-8">
  82.         <postfield name="mmmmm" value="$(nnmm)"/>
  83.     </go>
  84. </anchor><br/>
  85. <%end if%>
  86. <!--#include file="w.asp"-->
  87. </body>
  88. </html>