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

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

手机WAP编程

开发平台：

ASP/ASPX

admin_yl.asp：源码内容
  1. <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
  2. <html>
  3. <!--#include file="admin_sb.asp"-->
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  6. </head><body><body bgcolor="#fcefff">
  7. &#x5BF9;&#x4E8E;&#x65E0;&#x6CD5;&#x5728;&#x9884;&#x89C8;&#x4E0B;&#x7BA1;&#x7406;&#x7684;&#x83DC;&#x5355;&#x3002;&#x8FDB;&#x5165;&#x4E0B;&#x9762;&#x94FE;&#x63A5;&#x7BA1;&#x7406;<br/>
  8. <a href="ts_lm.asp?sb=<%=sb%>">&#x7279;&#x6B8A;&#x680F;&#x76EE;&#x7BA1;&#x7406;</a><br/><br/>
  9. <%
  10. set rs=Server.CreateObject("ADODB.Recordset")
  11. rsppl="select * from wap_lm where lx<>500 and did=0 order by pid asc"
  12. rs.open rsppl,conn,1,2
  13. if rs.eof then 
  14. response.write("<br/>")
  15. else
  16. rs.Move(0)
  17. dim j
  18. j=1
  19. do while ((not rs.EOF) and j <=500000)
  22. %>
  27. <%if rs("lx")<>1 and rs("lx")<>8 and rs("lx")<>3 and rs("lx")<>4 then%>
  28. <a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>"><%=rs("nxn")%></a>
  29. <%elseif rs("lx")=3 then%>
  30. <img src="" alt=""/>
  31. <a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>"><%elseif rs("lx")=4 then%></a>
  32. <img src="<%=rs("txt")%>" alt=""/>
  33. <%elseif rs("lx")=7 then%>
  34. <%=rs("nxn")%>
  35. <%elseif rs("lx")=1 then%>
  36. <%=ubb(rs("txt"))%>
  37. <%end if%>
  38. <%if rs("brr")="1" then%>
  39. <br/>
  40. <%end if%>
  43. <%
  44. rs.MoveNext
  45. j=j+1
  46. loop
  47. end if
  48. %>
  49. </table>
  50. </body>
  51. </html>