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

手机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. <%id=usb(request("id"))
  22. set rs=Server.CreateObject("ADODB.Recordset")
  23. rspl="select * from wap_lm where id="&id
  24. rs.open rspl,conn,1,2
  25. if rs("lx")="1" then mmlx="文本菜单<br/>本菜单不支持UBB语法、WML语法"
  26. if rs("lx")="2" then mmlx="链接菜单<br/>即超级链接"
  27. if rs("lx")="3" then mmlx="图片菜单<br/>即显示图片"
  28. if rs("lx")="4" then mmlx="图片菜单<br/>即图片型超级链接"
  29. if rs("lx")="5" then mmlx="页面菜单<br/>即新的页面菜单。"
  30. if rs("lx")="6" then mmlx="页面内容<br/>简便型的文章,支持UBB语法。"
  31. if rs("lx")="7" then mmlx="WML页面<br/>支持WML语法的页面。"
  32. if rs("lx")="8" then mmlx="UBB标签<br/>支持UBB语法,不支持WML语法,"
  33. if rs("lx")="9" then mmlx="WML标签<br/>支持WML语法,不支持UBB语法。"
  34. if rs("lx")="10" then mmlx="文章栏目<br/>放置文章列表的栏目"
  35. if rs("lx")="11" then mmlx="文件<br/>自己上传的文件"
  36. if rs("lx")="12" then mmlx="文件菜单<br/>储存文件的菜单栏目"
  37. if rs("lx")="13" then mmlx="图片菜单<br/>储存图片的菜单栏目"
  38. if rs("lx")>13 or rs("lx")<0 then mmlx="未知类型<br/>可能是传递数据错误!"
  39. ok=rs("lx")
  40. %>
  41. 项目编号:<%=rs("id")%><br/>
  42. 项目类型:<%=mmlx%><br/>
  43. <%if ok="1" then%>
  44. ----------<br/>
  45. 项目名称<br/>
  46. <input name='nam<%=minute(now)%><%=second(now)%>' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识文本菜单,必须输入<br/>
  47. 文本内容<br/>
  48. <input name='txt<%=minute(now)%><%=second(now)%>' title='文本内容' value='<%=ubb(rs("txt"))%>'/>显示出来的内容,最大8000字<br/>
  49. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  50. <option value='1'>自动换行</option>
  51. <option value='0'>不换行</option>
  52. </select><br/>
  53. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  54. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  55. <option value='0'>正常显示</option>
  56. <option value='1'>隐藏显示</option>
  57. </select><br/>
  58. <%elseif ok="2" then%>
  59. ----------<br/>
  60. 链接名称:<br/>
  61. <input name='nam<%=minute(now)%><%=second(now)%>' title='链接名称' value='<%=ubb(rs("nxn"))%>'/>用于显示的链接名称,必须输入<br/>
  62. 链接地址:<br/>
  63. <input name='txt<%=minute(now)%><%=second(now)%>' title='链接地址' value='<%=ubb(rs("txt"))%>'/>用于链接的地址,必须输入<br/>
  64. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  65. <option value='1'>自动换行</option>
  66. <option value='0'>不换行</option>
  67. </select><br/>
  68. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  69. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  70. <option value='0'>正常显示</option>
  71. <option value='1'>隐藏显示</option>
  72. </select><br/>
  73. <%elseif ok="3" then%>
  74. ----------<br/>
  75. 图片名称:<br/>
  76. <input name='nam<%=minute(now)%><%=second(now)%>' title='图片名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片菜单,必须输入<br/>
  77. 图片地址:<br/>
  78. <input name='url<%=minute(now)%><%=second(now)%>' title='图片地址' value='<%=ubb(rs("url"))%>'/><br/>
  79. 图片说明:<br/>
  80. <input name='txt<%=minute(now)%><%=second(now)%>' title='图片说明' value='<%=ubb(rs("txt"))%>'/><br/>
  81. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  82. <option value='1'>自动换行</option>
  83. <option value='0'>不换行</option>
  84. </select><br/>
  85. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  86. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  87. <option value='0'>正常显示</option>
  88. <option value='1'>隐藏显示</option>
  89. </select><br/>
  90. <%elseif ok="4" then%>
  91. ----------<br/>
  92. 页面名称:<br/>
  93. <input name='nam<%=minute(now)%><%=second(now)%>' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片链接,必须输入<br/>
  94. 链接地址:<br/>
  95. <input name='url<%=minute(now)%><%=second(now)%>' title='链接地址' value='<%=ubb(rs("url"))%>'/><br/>
  96. 图片地址:<br/>
  97. <input name='txt<%=minute(now)%><%=second(now)%>' title='图片地址' value='<%=ubb(rs("txt"))%>'/><br/>
  98. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  99. <option value='1'>自动换行</option>
  100. <option value='0'>不换行</option>
  101. </select><br/>
  102. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  103. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  104. <option value='0'>正常显示</option>
  105. <option value='1'>隐藏显示</option>
  106. </select><br/>
  107. <%elseif ok="5" then%>
  108. ----------<br/>
  109. 项目名称:<br/>
  110. <input name='nam<%=minute(now)%><%=second(now)%>' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片链接,必须输入<br/>
  111. 页面介绍:<br/>
  112. <input name='txt<%=minute(now)%><%=second(now)%>' title='页面介绍' value='<%=ubb(rs("txt"))%>'/><br/>
  113. 对齐方式:<select name='dq<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("dq"))%>'>
  114. <option value="left">居左</option>
  115. <option value="center">居中</option>
  116. <option value="right">居右</option>
  117. </select><br/>
  118. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  119. <option value='1'>自动换行</option>
  120. <option value='0'>不换行</option>
  121. </select><br/>
  122. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  123. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  124. <option value='0'>正常显示</option>
  125. <option value='1'>隐藏显示</option>
  126. </select><br/>
  127. 查看密码:<br/>
  128. <input name='mm<%=minute(now)%><%=second(now)%>' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  129. <%elseif ok="6" then%>
  130. ----------<br/>
  131. 页面名称:<br/>
  132. <input name='nam<%=minute(now)%><%=second(now)%>' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识页面内容,显示在当前位置上,必须输入<br/>
  133. 页面内容:<br/>
  134. <input name='txt<%=minute(now)%><%=second(now)%>' title='页面内容' value='<%=usb(rs("txt"))%>'/>支持UBB语法,最大8000字<br/>
  135. 对齐方式:<select name='dq<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("dq"))%>'>
  136. <option value="left">居左</option>
  137. <option value="center">居中</option>
  138. <option value="right">居右</option>
  139. </select><br/>
  140. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  141. <option value='1'>自动换行</option>
  142. <option value='0'>不换行</option>
  143. </select><br/>
  144. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  145. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  146. <option value='0'>正常显示</option>
  147. <option value='1'>隐藏显示</option>
  148. </select><br/>
  149. 查看密码:<br/>
  150. <input name='mm<%=minute(now)%><%=second(now)%>' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  151. <%elseif ok="7" then%>
  152. ----------<br/>
  153. 页面名称:<br/>
  154. <input name='nam<%=minute(now)%><%=second(now)%>' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识页面内容,显示在当前位置上,必须输入<br/>
  155. 页面内容:<br/>
  156. <input name='txt<%=minute(now)%><%=second(now)%>' title='页面内容' value='<%=ubb(rs("txt"))%>'/>支持Wml语法<br/>
  157. 对齐方式:<select name='dq<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  158. <option value="left">居左</option>
  159. <option value="center">居中</option>
  160. <option value="right">居右</option>
  161. </select><br/>
  162. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  163. <option value='1'>自动换行</option>
  164. <option value='0'>不换行</option>
  165. </select><br/>
  166. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  167. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  168. <option value='0'>正常显示</option>
  169. <option value='1'>隐藏显示</option>
  170. </select><br/>
  171. 查看密码:<br/>
  172. <input name='mm<%=minute(now)%><%=second(now)%>' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  173. <%elseif ok="8" then%>
  174. ----------<br/>
  175. 项目名称:<br/>
  176. <input name='nam<%=minute(now)%><%=second(now)%>' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识UBB标签,必须输入<br/>
  177. 标签内容:<br/>
  178. <input name='txt<%=minute(now)%><%=second(now)%>' title='标签内容' value='<%=ubb(rs("txt"))%>'/>显示出来的内容,最大8000字<br/>
  179. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  180. <option value='1'>自动换行</option>
  181. <option value='0'>不换行</option>
  182. </select><br/>
  183. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  184. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  185. <option value='0'>正常显示</option>
  186. <option value='1'>隐藏显示</option>
  187. </select><br/>
  188. <%elseif ok="9" then%>
  189. ----------<br/>
  190. 项目名称:<br/>
  191. <input name='nam<%=minute(now)%><%=second(now)%>' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识WML标签,如"下拉框","返回"等,必须输入<br/>
  192. 标签内容:<br/>
  193. <input name='txt<%=minute(now)%><%=second(now)%>' title='标签内容' value='<%=ubb(rs("txt"))%>'/>显示出来的内容,最大8000字<br/>
  194. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  195. <option value='1'>自动换行</option>
  196. <option value='0'>不换行</option>
  197. </select><br/>
  198. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  199. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  200. <option value='0'>正常显示</option>
  201. <option value='1'>隐藏显示</option>
  202. </select><br/>
  203. <%elseif ok="10" then%>
  204. ----------<br/>
  205. 项目名称:<br/>
  206. <input name='nam<%=minute(now)%><%=second(now)%>' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识WML标签,如"下拉框","返回"等,必须输入<br/>
  207. 标签内容:<br/>
  208. <input name='txt<%=minute(now)%><%=second(now)%>' title='标签内容' value='<%=ubb(rs("txt"))%>'/>显示出来的内容,标签一定要完整,否则容易发生错误<br/>
  209. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  210. <option value='1'>自动换行</option>
  211. <option value='0'>不换行</option>
  212. </select><br/>
  213. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  214. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  215. <option value='0'>正常显示</option>
  216. <option value='1'>隐藏显示</option>
  217. </select><br/>
  218. <%elseif ok="11" then%>
  219. ----------<br/>
  220. 软件名称:<br/>
  221. <input name='nam<%=minute(now)%><%=second(now)%>' title='软件名称' value='<%=ubb(rs("nxn"))%>'/>用于标识文件名称,必须输入<br/>
  222. 软件地址:<br/>
  223. <input name='url<%=minute(now)%><%=second(now)%>' title='软件地址' value='<%=ubb(rs("url"))%>'/><br/>
  224. 软件说明:<br/>
  225. <input name='txt<%=minute(now)%><%=second(now)%>' title='软件说明' value='<%=ubb(rs("txt"))%>'/><br/>
  226. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  227. <option value='1'>自动换行</option>
  228. <option value='0'>不换行</option>
  229. </select><br/>
  230. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  231. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  232. <option value='0'>正常显示</option>
  233. <option value='1'>隐藏显示</option>
  234. </select><br/>
  235. <%elseif ok="12" then%>
  236. ----------<br/>
  237. 栏目名称:<br/>
  238. <input name='nam<%=minute(now)%><%=second(now)%>' title='软件名称' value='<%=ubb(rs("nxn"))%>'/><br/>
  239. 栏目说明:<br/>
  240. <input name='txt<%=minute(now)%><%=second(now)%>' title='软件说明' value='<%=ubb(rs("txt"))%>'/><br/>
  241. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  242. <option value='1'>自动换行</option>
  243. <option value='0'>不换行</option>
  244. </select><br/>
  245. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  246. 对齐方式:<select name='dq<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  247. <option value="left">居左</option>
  248. <option value="center">居中</option>
  249. <option value="right">居右</option>
  250. </select><br/>
  251. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  252. <option value='0'>正常显示</option>
  253. <option value='1'>隐藏显示</option>
  254. </select><br/>
  255. <%elseif ok="13" then%>
  256. ----------<br/>
  257. 栏目名称:<br/>
  258. <input name='nam<%=minute(now)%><%=second(now)%>' title='栏目名称' value='<%=ubb(rs("nxn"))%>'/><br/>
  259. 栏目说明:<br/>
  260. <input name='txt<%=minute(now)%><%=second(now)%>' title='栏目说明' value='<%=ubb(rs("txt"))%>'/><br/>
  261. 内容后面:<select name='brr<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  262. <option value='1'>自动换行</option>
  263. <option value='0'>不换行</option>
  264. </select><br/>
  265. 显示顺序:<input name='idi<%=minute(now)%><%=second(now)%>' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  266. 对齐方式:<select name='dq<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("brr"))%>'>
  267. <option value="left">居左</option>
  268. <option value="center">居中</option>
  269. <option value="right">居右</option>
  270. </select><br/>
  271. 公开方式:<select name='yc<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("yc"))%>'>
  272. <option value='0'>正常显示</option>
  273. <option value='1'>隐藏显示</option>
  274. </select><br/>
  275. <%end if%>
  276. 调用模式:<select name='dy<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("dy"))%>'>
  277. <option value='0'>无须调用</option>
  278. <option value='1'>动态新闻</option>
  279. <option value='2'>动态首链</option>
  280. <option value='3'>动态广告</option>
  281. <option value='4'>最新帖子</option>
  282. <option value='5'>动态友链</option>
  283. <option value='6'>热门帖子</option>
  284. <option value='7'>最新文章</option>
  285. <option value='8'>最热文章</option>
  286. <option value='9'>最新上传</option>
  287. </select><br/>
  288. <anchor>[确定修改]<go href='lmxg.asp?sb=<%=sb%>&amp;fs=<%=fs%>' method='post' accept-charset='utf-8'>
  289. <postfield name='nam' value='$(nam<%=minute(now)%><%=second(now)%>)'/><postfield name='idi' value='$(idi<%=minute(now)%><%=second(now)%>)'/>
  290. <postfield name='txt' value='$(txt<%=minute(now)%><%=second(now)%>)'/><postfield name='url' value='$(url<%=minute(now)%><%=second(now)%>)'/>
  291. <postfield name='mm' value='$(mm<%=minute(now)%><%=second(now)%>)'/><postfield name='dq' value='$(dq<%=minute(now)%><%=second(now)%>)'/>
  292. <postfield name='yc' value='$(yc<%=minute(now)%><%=second(now)%>)'/><postfield name='brr' value='$(brr<%=minute(now)%><%=second(now)%>)'/>
  293. <postfield name='lx' value='<%=ok%>'/><postfield name='did' value='$(did<%=minute(now)%><%=second(now)%>)'/><postfield name='id' value='<%=rs("id")%>'/>
  294. <postfield name='dy' value='$(dy<%=minute(now)%><%=second(now)%>)'/>
  295. </go></anchor><br/>
  296. <a href="cnscu_lm.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站设计</a><br/>
  297. <a href="admin_index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
  298. <a href="../index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
  299. 报时:<%=time%>
  300. </p></card></wml>