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

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

手机WAP编程

开发平台：

ASP/ASPX

bj_lm.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. <%
  8. id=usb(request("id"))
  9. set rs=Server.CreateObject("ADODB.Recordset")
  10. rspl="select * from wap_lm where id="&id
  11. rs.open rspl,conn,1,2
  12. if rs("lx")="1" then mmlx="文本菜单<br/>本菜单不支持UBB语法、WML语法"
  13. if rs("lx")="2" then mmlx="链接菜单<br/>即超级链接"
  14. if rs("lx")="3" then mmlx="图片菜单<br/>即显示图片"
  15. if rs("lx")="4" then mmlx="图片菜单<br/>即图片型超级链接"
  16. if rs("lx")="5" then mmlx="页面菜单<br/>即新的页面菜单。"
  17. if rs("lx")="6" then mmlx="页面内容<br/>简便型的文章，支持UBB语法。"
  18. if rs("lx")="7" then mmlx="WML页面<br/>支持WML语法的页面。"
  19. if rs("lx")="8" then mmlx="UBB标签<br/>支持UBB语法，不支持WML语法，"
  20. if rs("lx")="9" then mmlx="WML标签<br/>支持WML语法，不支持UBB语法。"
  21. if rs("lx")="10" then mmlx="自助WML<br/>添加自助的WML页面，请注意语法"
  22. if rs("lx")="11" then mmlx="文件<br/>自己上传的文件"
  23. if rs("lx")="12" then mmlx="文件菜单<br/>储存文件的菜单栏目"
  24. if rs("lx")>12 or rs("lx")<0 then mmlx="未知类型<br/>可能是传递数据错误！"
  25. ok=rs("lx")
  26. %>
  27. <form action="bj_lmcl.asp" method="post" target="_blank">
  28. 项目编号:<%=rs("id")%><br/>
  29. 项目类型:<%=mmlx%><br/>
  30. <%if ok="1" then%>
  31. ----------<br/>
  32. 项目名称<br/>
  33. <input name='nam' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识文本菜单，必须输入<br/>
  34. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>
  35. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  36. <option value='1'>自动换行</option>
  37. <option value='0'>不换行</option>
  38. </select><br/>
  39. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  40. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  41. <option value='0'>正常显示</option>
  42. <option value='1'>隐藏显示</option>
  43. </select><br/>
  44. <%elseif ok="2" then%>
  45. ----------<br/>
  46. 链接名称:<br/>
  47. <input name='nam' title='链接名称' value='<%=ubb(rs("nxn"))%>'/>用于显示的链接名称，必须输入<br/>
  48. 链接地址:<br/>
  49. <td><textarea rows="10" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>用于链接的地址，必须输入<br/>
  50. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  51. <option value='1'>自动换行</option>
  52. <option value='0'>不换行</option>
  53. </select><br/>
  54. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  55. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  56. <option value='0'>正常显示</option>
  57. <option value='1'>隐藏显示</option>
  58. </select><br/>
  60. <%elseif ok="3" then%>
  61. ----------<br/>
  62. 图片名称:<br/>
  63. <input name='nam' title='图片名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片菜单，必须输入<br/>
  64. 图片地址:<br/>
  65. <td><textarea rows="10" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>
  66. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  67. <option value='1'>自动换行</option>
  68. <option value='0'>不换行</option>
  69. </select><br/>
  70. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  71. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  72. <option value='0'>正常显示</option>
  73. <option value='1'>隐藏显示</option>
  74. </select><br/>
  76. <%elseif ok="4" then%>
  77. ----------<br/>
  78. 页面名称:<br/>
  79. <input name='nam' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片链接，必须输入<br/>
  80. 链接地址:<br/>
  81. <td><textarea rows="5" name="txt" cols="70" /><%=ubb(rs("txt"))%></textarea></td><br/>
  82. 图片地址:<br/>
  83. <td><textarea rows="5" name="txt" cols="70" /><%=ubb(rs("txt"))%></textarea></td><br/>
  84. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  85. <option value='1'>自动换行</option>
  86. <option value='0'>不换行</option>
  87. </select><br/>
  88. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  89. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  90. <option value='0'>正常显示</option>
  91. <option value='1'>隐藏显示</option>
  92. </select><br/>
  94. <%elseif ok="5" then%>
  95. ----------<br/>
  96. 项目名称:<br/>
  97. <input name='nam' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识图片链接，必须输入<br/>
  98. 页面介绍:<br/>
  99. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>
  101. 对齐方式:<select name='dq' value='<%=ubb(rs("dq"))%>'>
  102. <option value="left">居左</option>
  103. <option value="center">居中</option>
  104. <option value="right">居右</option>
  105. </select><br/>
  106. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  107. <option value='1'>自动换行</option>
  108. <option value='0'>不换行</option>
  109. </select><br/>
  110. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  111. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  112. <option value='0'>正常显示</option>
  113. <option value='1'>隐藏显示</option>
  114. </select><br/>
  115. 查看密码:<br/>
  116. <input name='mm' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  123. <%elseif ok="6" then%>
  124. ----------<br/>
  125. 页面名称:<br/>
  126. <input name='nam' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识页面内容，显示在当前位置上，必须输入<br/>
  127. 页面内容:<br/>
  128. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>支持UBB语法，最大8000字<br/>
  130. 对齐方式:<select name='dq' value='<%=ubb(rs("dq"))%>'>
  131. <option value="left">居左</option>
  132. <option value="center">居中</option>
  133. <option value="right">居右</option>
  134. </select><br/>
  135. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  136. <option value='1'>自动换行</option>
  137. <option value='0'>不换行</option>
  138. </select><br/>
  139. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  140. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  141. <option value='0'>正常显示</option>
  142. <option value='1'>隐藏显示</option>
  143. </select><br/>
  144. 查看密码:<br/>
  145. <input name='mm' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  151. <%elseif ok="7" then%>
  152. ----------<br/>
  153. 页面名称:<br/>
  154. <input name='nam' title='页面名称' value='<%=ubb(rs("nxn"))%>'/>用于标识页面内容，显示在当前位置上，必须输入<br/>
  155. 页面内容:<br/>
  156. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>支持Wml语法<br/>
  158. 对齐方式:<select name='dq' value='<%=ubb(rs("brr"))%>'>
  159. <option value="left">居左</option>
  160. <option value="center">居中</option>
  161. <option value="right">居右</option>
  162. </select><br/>
  163. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  164. <option value='1'>自动换行</option>
  165. <option value='0'>不换行</option>
  166. </select><br/>
  167. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  168. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  169. <option value='0'>正常显示</option>
  170. <option value='1'>隐藏显示</option>
  171. </select><br/>
  172. 查看密码:<br/>
  173. <input name='mm' title='查看密码' value='<%=ubb(rs("mm"))%>'/>密码不为0时有效<br/>
  176. <%elseif ok="8" then%>
  177. ----------<br/>
  178. 项目名称:<br/>
  179. <input name='nam' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识UBB标签，必须输入<br/>
  180. 标签内容:<br/>
  181. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>显示出来的内容，最大8000字<br/>
  182. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  183. <option value='1'>自动换行</option>
  184. <option value='0'>不换行</option>
  185. </select><br/>
  186. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  187. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  188. <option value='0'>正常显示</option>
  189. <option value='1'>隐藏显示</option>
  190. </select><br/>
  195. <%elseif ok="9" then%>
  196. ----------<br/>
  197. 项目名称:<br/>
  198. <input name='nam' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识WML标签，如"下拉框","返回"等，必须输入<br/>
  199. 标签内容:<br/>
  200. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>显示出来的内容，最大8000字<br/>
  201. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  202. <option value='1'>自动换行</option>
  203. <option value='0'>不换行</option>
  204. </select><br/>
  205. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  206. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  207. <option value='0'>正常显示</option>
  208. <option value='1'>隐藏显示</option>
  209. </select><br/>
  212. <%elseif ok="10" then%>
  213. ----------<br/>
  214. 项目名称:<br/>
  215. <input name='nam' title='项目名称' value='<%=ubb(rs("nxn"))%>'/>用于标识WML标签，如"下拉框","返回"等，必须输入<br/>
  216. 标签内容:<br/>
  217. <td><textarea rows="25" name="txt" cols="90" /><%=ubb(rs("txt"))%></textarea></td><br/>显示出来的内容，标签一定要完整，否则容易发生错误<br/>
  218. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  219. <option value='1'>自动换行</option>
  220. <option value='0'>不换行</option>
  221. </select><br/>
  222. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  223. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  224. <option value='0'>正常显示</option>
  225. <option value='1'>隐藏显示</option>
  226. </select><br/>
  228. <%elseif ok="11" then%>
  229. ----------<br/>
  230. 软件名称:<br/>
  231. <input name='nam' title='软件名称' value='<%=ubb(rs("nxn"))%>'/>用于标识文件名称，必须输入<br/>
  232. 软件地址:<br/>
  233. <input name='url' title='软件地址' value='<%=ubb(rs("url"))%>'/><br/>
  234. 软件说明:<br/>
  235. <td><textarea rows="10" name="txt" cols="70" /><%=ubb(rs("txt"))%></textarea></td><br/><br/>
  236. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  237. <option value='1'>自动换行</option>
  238. <option value='0'>不换行</option>
  239. </select><br/>
  240. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  241. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  242. <option value='0'>正常显示</option>
  243. <option value='1'>隐藏显示</option>
  244. </select><br/>
  246. <%elseif ok="12" then%>
  247. ----------<br/>
  248. 栏目名称:<br/>
  249. <input name='nam' title='软件名称' value='<%=ubb(rs("nxn"))%>'/><br/>
  250. 栏目说明:<br/>
  251. <td><textarea rows="15" name="txt" cols="70" /><%=ubb(rs("txt"))%></textarea></td><br/><br/>
  252. 内容后面:<select name='brr' value='<%=ubb(rs("brr"))%>'>
  253. <option value='1'>自动换行</option>
  254. <option value='0'>不换行</option>
  255. </select><br/>
  256. 显示顺序:<input name='idi' title='显示顺序' format='*N' maxlength='6' value='<%=ubb(rs("pid"))%>' size='2' emptyok='false'/><br/>
  257. 对齐方式:<select name='dq' value='<%=ubb(rs("brr"))%>'>
  258. <option value="left">居左</option>
  259. <option value="center">居中</option>
  260. <option value="right">居右</option>
  261. </select><br/>
  262. 公开方式:<select name='yc' value='<%=ubb(rs("yc"))%>'>
  263. <option value='0'>正常显示</option>
  264. <option value='1'>隐藏显示</option>
  265. </select><br/>
  267. <%end if%>
  270. 调用模式:<select name='dy' value='<%=ubb(rs("dy"))%>'>
  271. <option value='0'>无须调用</option>
  272. <option value='1'>开启调用1</option>
  273. <option value='2'>开启调用2</option>
  274. <option value='3'>开启调用3</option>
  275. </select><br/>
  276. <input type="hidden" name="id" value="<%=id%>">
  277. <input type=submit name=提交 value=提　交 class=fmbtn>　</form>
  278. <br/>
  280. 报时:<%=time%>
  281. </table>
  282. </body>
  283. </html>