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

手机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="cnscu_sb.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. <meta http-equiv="Cache-Control" content="max-age=0"/>
  17. <meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
  18. </head>
  19. <card id="main" title="社区界面设计-首页" >
  20. <p>
  21. <%
  22. set rs=Server.CreateObject("ADODB.Recordset")
  23. rsppl="select * from sclt order by pid asc"
  24. rs.open rsppl,conn,1,2
  25. %>
  26. <a href="tjss.asp?fs=<%=fs%>&amp;sb=<%=sb%>">添加设施</a>◆<a href="scxipx.asp?sb=<%=sb%>&amp;fs=<%=fs%>">重新排序</a><br/>
  27. <a href="sq.asp?sb=<%=sb%>">社区设置</a>◆<a href="../bbs/index.asp?sb=<%=sb%>">访问本页</a><br/>
  28. <%if fs="0" then%>
  29. <a href="sqbm.asp?fs=2&amp;sb=<%=sb%>">列表分页</a>◆<a href="sqbm.asp?fs=1&amp;sb=<%=sb%>">预览方式</a><br/>
  30. ----------<br/>
  31. <%
  32. if rs.eof then 
  33. response.write("暂无内容<br/>")
  34. else
  35. rs.Move(0)
  36. dim j
  37. j=1
  38. do while ((not rs.EOF) and j <=500000)
  39. if rs("lx")="1" then mmlx="文本菜单"
  40. if rs("lx")="2" then mmlx="链接菜单"
  41. if rs("lx")="3" then mmlx="图片菜单"
  42. if rs("lx")="4" then mmlx="图片链接"
  43. if rs("lx")="5" then mmlx="空白设施"
  44. if rs("lx")="6" then mmlx="论坛板块"
  45. if rs("lx")="7" then mmlx="聊天室"
  46. if rs("lx")="8" then mmlx="UBB标签"
  47. if rs("lx")="9" then mmlx="WML标签"
  48. %>
  49. <a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>">[管理]</a>[<%=mmlx%>]<%=rs("pid")%>.<%=rs("name")%><br/>
  50. <%
  51. rs.MoveNext
  52. j=j+1
  53. loop
  54. end if
  55. %>
  56. <%elseif fs="1" then%>
  57. <!--预览方式-->
  58. <a href="sqbm.asp?fs=2&amp;sb=<%=sb%>">列表分页</a>◆<a href="sqbm.asp?fs=0&amp;sb=<%=sb%>">列表方式</a><br/>
  59. ----------<br/>
  60. 对于无法在预览下管理的菜单。进入下面链接管理<br/>
  61. <a href="ts_lm.asp?sb=<%=sb%>">特殊栏目管理</a><br/><br/>
  62. <%if rs.eof then 
  63. response.write("暂无内容<br/>")
  64. else
  65. rs.Move(0)
  66. dim i
  67. i=1
  68. do while ((not rs.EOF) and i <=500000)%>
  69. <%if rs("lx")<>2 and rs("lx")<>5 and rs("lx")<>6 then%>
  70. <a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>"><%=rs("name")%></a>
  71. <%else%>
  72. <%=rs("nxn")%>
  73. <%end if%>
  74. <%if rs("brr")="1" then%>
  75. <br/>
  76. <%end if%>
  77. <%
  78. rs.MoveNext
  79. i=i+1
  80. loop
  81. end if
  82. %>
  83. <%elseif fs="2" then%>
  84. <!--列表分页-->
  85. <a href="sqbm.asp?fs=0&amp;sb=<%=sb%>">列表方式</a>◆<a href="sqbm.asp?fs=1&amp;sb=<%=sb%>">预览方式</a><br/>
  86. ----------<br/>
  87. <%if rs.eof then 
  88. response.write("暂无内容<br/>")
  89. else
  90. pag=10
  91. dim page,maxpage
  92. page=cint(request.QueryString("page"))
  93. if page="" or page<1 then page=1
  94. maxpage=int((rs.recordcount-1)/pag)+1
  95. if page>maxpage then page=maxpage
  96. rs.Move((page-1)*pag)
  97. dim l
  98. l=1
  99. do while ((not rs.EOF) and l <=cint(pag))
  100. if rs("lx")="1" then mmlx="文本菜单"
  101. if rs("lx")="2" then mmlx="链接菜单"
  102. if rs("lx")="3" then mmlx="图片菜单"
  103. if rs("lx")="4" then mmlx="图片菜单"
  104. if rs("lx")="5" then mmlx="页面菜单"
  105. if rs("lx")="6" then mmlx="页面内容"
  106. if rs("lx")="7" then mmlx="WML页面"
  107. if rs("lx")="8" then mmlx="UBB标签"
  108. if rs("lx")="9" then mmlx="WML标签"
  109. if rs("lx")="10" then mmlx="自助WML"
  110. %>
  111. <a href="lm_gl.asp?id=<%=rs("id")%>&amp;sb=<%=sb%>&amp;fs=<%=fs%>">[管理]</a>[<%=mmlx%>]<%=rs("pid")%>.<%=rs("name")%><br/>
  112. <%
  113. rs.MoveNext
  114. l=l+1
  115. loop
  116. end if
  117. if page*pag<rs.recordcount then response.write("<a href='scbm.asp?fs="&fs&"&amp;sb="&sb&"&amp;page=" & page+1 & "'>下一页</a>")
  118. if page>1 then response.write("<a href='scbm.asp?fs="&fs&"&amp;sb="&sb&"&amp;page=" & page-1 & "'>上一页</a>")
  119. %>
  120. <%end if
  121. rs.close
  122. set rs=nothing
  123. %>
  124. <br/>----------<br/>
  125. <a href="admin_index.asp?sb=<%=sb%>">返回管理首页</a><br/>
  126. <a href="../index.asp?sb=<%=sb%>">返回网站首页</a><br/>
  127. <a href="bg.asp?sb=<%=sb%>">提出建议</a>|<a href="bg.asp?sb=<%=sb%>">报告错误</a>
  128. <!--#include file="bq.gif"-->
  129. </p></card></wml>