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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
LT_BanMian_CaoZuo.Asp
资源名称：4.rar　[点击查看]
上传用户：zhbanny
上传日期：2020-11-04
资源大小：161k
文件大小：19k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

LT_BanMian_CaoZuo.Asp：源码内容
  1. <!--#Include File="../Inc/Head.Asp"--><%
  2. Private FangWen
  3. Set FangWen=New xkon_FangWen
  4. FangWen.FangWen()
  5. FangWen.BanKuai()
  6. Set FangWen=Nothing
  7. Private c,s
  8. Set c=New xkon_Response
  9. Set s=New xkon_Request
  10. Private l
  11. l=s.QueryString("l")
  12. Private Sub LieBiao(Str)
  13. Dim Cn1
  14. c.Write("上级版块:<select name=""ShangJi_ID""><option value=""0"">顶级版块</option>")
  15. Call OpenData()
  16. Set Cn1=Server.CreateObject("Adodb.Recordset")
  17. Cn1.Open "Select id,BanKuai_MingChen From BanKuai Order By Id Desc",Conn,1,1
  18. Do While(Not Cn1.Eof)
  19. c.Write("<option value="""&Cn1("ID")&""" "&Selected(Cn1("ID"),Str)&">"&Cn1("BanKuai_MingChen")&"</option>")
  20. Cn1.MoveNext
  21. Loop
  22. Cn1.Close
  23. Set Cn1=Nothing
  24. Call CloseData()
  25. c.Writeln("</select>")
  26. End Sub
  27. Private Sub j()
  28. c.Writeln("<form method=""post"" action=""LT_BanMian_CaoZuo.Asp?l=j2"">版面名称:<input name=""BanKuai_MingChen"" />")
  29. c.Writeln("简介:<input name=""BanKuai_JianJia"" />")
  30. c.Writeln("版主用户名:<input name=""BanKuai_BanZhu"" value=""0"" />")
  31. c.Writeln("显示版主:<select name=""XianShi_BanZhu""><option value=""1"">显示</option><option value=""0"">不显示</option></select>")
  32. c.Writeln("允许发贴:<select name=""FangWen_FaTie""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  33. c.Writeln("允许回复:<select name=""FangWen_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  34. ' c.Writeln("允许复制贴子:<select name=""FuZhi_TieZhi""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  35. ' c.Writeln("允许复制回复:<select name=""FuZhi_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  36. Call LieBiao("")
  37. c.Writeln("LOGO:<input name=""BanKuai_LOGO"" />")
  38. c.Writeln("显示LOGO:<select name=""XianShi_LOGO""><option value=""0"">不显示</option><option value=""1"">显示</option></select>")
  39. ' c.Writeln("允许管理:<select name=""FangWen_GuanLi""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  40. c.Writeln("显示下级版块:<select name=""XianShi_XiaJi""><option value=""1"">显示</option><option value=""0"">不显示</option></select>")
  41. c.Writeln("允许游客发贴:<select name=""YouKe_FaTie""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  42. c.Writeln("允许游客回复:<select name=""YouKe_HuiFu""><option value=""1"">允许</option><option value=""0"">禁止</option></select>")
  43. c.Writeln("进入需要等级:<input name=""DenJi"" value=""0"" />")
  44. c.Writeln("发贴审核:<select name=""ShengHe""><option value=""0"">否</option><option value=""1"">是</option></select>")
  45. c.Writeln("权限:<select name=""BanKuai_QuanXian""><option value=""0"">任何人可进入</option><option value=""1"">会员才能进入</option><option value=""2"">特殊会员才可进入</option></select>")
  46. C.Writeln("成员加入:<select name=""ChengYuan_JiaRu""><option value=""1"">允许任何人加入</option><option value=""2"">加入需要审核</option><option value=""3"">禁止任何人加入</option></select>")
  47. c.Write("<input type=""submit"" value=""增加"" /></form>")
  48. End Sub
  49. Private Sub j2()
  50. Dim BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,ShangJi_ID,ShangJi_Str,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,XianShi_TieZhi,XianShi_XiaJi,XianShi_Jing,XianShi_Ding,XianShi_Suo,XianShi_Mai,XianShi_Tou,YouKe_FaTie,YouKe_HuiFu,DenJi,ShengHe,BanKuai_QuanXian,BanKuai_ZhuangTai,BanZhu_NiChen,ChengYuan_JiaRu
  51. ChengYuan_JiaRu=s.Form("ChengYuan_JiaRu")
  52. BanKuai_MingChen=s.Form_Str("BanKuai_MingChen",1,250)
  53. BanKuai_JianJie=s.Form_Str("BanKuai_JianJie",1,250)
  54. BanKuai_BanZhu=s.Form_Str("BanKuai_BanZhu",1,250)
  55. If BanKuai_BanZhu<>"0" Then
  56. Call OpenData()
  57. BanZhu_NiChen=Get_NiChen(BanKuai_BanZhu)
  58. Call CloseData()
  59. End If
  60. XianShi_BanZhu=s.Form("XianShi_BanZhu")
  61. FangWen_FaTie=s.Form("FangWen_FaTie")
  62. FangWen_HuiFu=s.Form("FangWen_HuiFu")
  63. FuZhi_TieZhi=s.Form("FuZhi_TieZhi")
  64. FuZhi_HuiFu=s.Form("FuZhi_HuiFu")
  65. ShangJi_ID=s.Form("ShangJi_ID")
  66. ShangJi_Str=BanMian_MingChen(ShangJi_ID)
  67. BanKuai_LOGO=s.Form("BanKuai_LOGO")
  68. XianShi_LOGO=s.Form("XianShi_LOGO")
  69. FangWen_GuanLi=s.Form("FangWen_GuanLi")
  70. XianShi_XiaJi=s.Form("XianShi_XiaJi")
  71. YouKe_FaTie=s.Form("YouKe_FaTie")
  72. YouKe_HuiFu=s.Form("YouKe_HuiFu")
  73. DenJi=s.Form("DenJi")
  74. ShengHe=s.Form("ShengHe")
  75. BanKuai_QuanXian=s.Form("BanKuai_QuanXian")
  76. If BanKuai_MingChen="" Then
  77. Call xkon_Error("版面名称不能为空")
  78. Else
  79. Dim SQL
  80. Call OpenData()
  81. Dim Cn1,Cn2
  82. Set Cn1=Server.CreateObject("Adodb.Command")
  83. Cn1.ActiveConnection=Conn
  84. Cn1.CommandType=1
  85. Cn1.CommandText="Select id From BanKuai Order By ID Desc"
  86. Set Cn2=Cn1.Execute
  87. Dim J_ID
  88. If Cn2.Eof Then
  89. J_ID=1
  90. Else
  91. J_ID=Cn2("ID")+1
  92. End If
  93. Set Cn2=Nothing
  94. Set Cn1=Nothing
  95. SQL="Insert Into BanKuai("
  96. SQL=SQL&"ID,BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,BanZhu_NiChen,ShuLiang_TieZhi,ShuLiang_HuiFu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,BanKuai_ShiJian,BanKuai_DianJi,ShangJi_ID,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,ZuiHouFaTieShiJian,ZuiHouFaTieHuiYuan,ShangJi_Str,XianShi_XiaJi,YouKe_FaTie,YouKe_HuiFu,DenJi,ShengHe,BanKuai_QuanXian,ChengYuan_JiaRu"
  97. SQL=SQL&")Values("
  98. SQL=SQL&"'"&J_ID&"',"
  99. SQL=SQL&"'"&BanKuai_MingChen&"',"
  100. SQL=SQL&"'"&BanKuai_JianJie&"',"
  101. SQL=SQL&"'"&BanKuai_BanZhu&"',"
  102. SQL=SQL&"'"&BanZhu_NiChen&"',"
  103. SQL=SQL&"'0','0',"
  104. SQL=SQL&"'"&XianShi_BanZhu&"',"
  105. SQL=SQL&"'"&FangWen_FaTie&"',"
  106. SQL=SQL&"'"&FangWen_HuiFu&"',"
  107. SQL=SQL&"'"&FuZhi_TieZhi&"',"
  108. SQL=SQL&"'"&FuZhi_HuiFu&"',"
  109. SQL=SQL&"'"&now()&"',"
  110. SQL=SQL&"'0',"
  111. SQL=SQL&"'"&Clng(ShangJi_ID)&"',"
  112. SQL=SQL&"'"&BanKuai_LOGO&"',"
  113. SQL=SQL&"'"&XianShi_LOGO&"',"
  114. SQL=SQL&"'"&FangWen_GuanLi&"',"
  115. SQL=SQL&"'"&Now()&"',"
  116. SQL=SQL&"'',"
  117. SQL=SQL&"'"&ShangJi_Str&"',"
  118. SQL=SQL&"'"&XianShi_XiaJi&"',"
  119. SQL=SQL&"'"&YouKe_FaTie&"',"
  120. SQL=SQL&"'"&YouKe_HuiFu&"',"
  121. SQL=SQL&"'"&Clng(DenJi)&"',"
  122. SQL=SQL&"'"&ShengHe&"',"
  123. SQL=SQL&"'"&BanKuai_QuanXian&"',"
  124. SQL=SQL&"'"&ChengYuan_JiaRu&"')"
  125. Conn.Execute(SQL)
  126. Call JiLu("增加版面"&J_ID)
  127. Call CloseData()
  128. Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
  129. Response.End()
  130. End If
  131. End Sub
  132. Private ID
  133. ID=s.QueryString("ID")
  134. Private Sub x()
  135. Dim Cn1,cn2,BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,ShuLiang_TieZhi,ShuLiang_HuiFu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,BanKuai_ShiJian,BanKuai_DianJi,ShangJi_ID,BanKuai_ZhuangTai,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,ZuiHouFaTieShiJian,ZuiHouFaTieHuiYuan,ShangJi_Str,XianShi_TieZhi,XianShi_XiaJi,TieZhi_Ding,TieZhi_Jing,TieZhi_Suo,TieZhi_Mai,XianShi_Ding,XianShi_Jing,XianShi_Suo,XianShi_Mai,YouKe_FaTie,YouKe_HuiFu,TieZhi_Tou,XianShi_Tou,DenJi,ShengHe,BanKuai_QuanXian,ChengYuan_JiaRu
  136. Call OpenData()
  137. Set Cn1=Server.CreateObject("Adodb.Command")
  138. Cn1.ActiveConnection=Conn
  139. Cn1.CommandType=1
  140. Cn1.CommandText="Select * From BanKuai Where ID="&Clng(ID)
  141. Set Cn2=Cn1.Execute
  142. If Cn2.Eof Then
  143. c.Writeln("该内容不存在")
  144. Else
  145. BanKuai_MingChen=Cn2("BanKuai_MingChen")
  146. BanKuai_JianJie=Cn2("BanKuai_JianJie")
  147. BanKuai_BanZhu=Cn2("BanKuai_BanZhu")
  148. ShuLiang_TieZhi=Cn2("ShuLiang_TieZhi")
  149. ShuLiang_HuiFu=Cn2("ShuLiang_HuiFu")
  150. XianShi_BanZhu=Cn2("XianShi_BanZhu")
  151. FangWen_FaTie=Cn2("FangWen_FaTie")
  152. FangWen_HuiFu=Cn2("FangWen_HuiFu")
  153. FuZhi_TieZhi=Cn2("FuZhi_TieZhi")
  154. FuZhi_HuiFu=Cn2("FuZhi_HuiFu")
  155. BanKuai_ShiJian=Cn2("BanKuai_ShiJian")
  156. BanKuai_DianJi=Cn2("BanKuai_DianJi")
  157. ShangJi_ID=Cn2("ShangJi_ID")
  158. BanKuai_LOGO=Cn2("BanKuai_LOGO")
  159. XianShi_LOGO=Cn2("XianShi_LOGO")
  160. FangWen_GuanLi=Cn2("FangWen_GuanLi")
  161. ZuiHouFaTieShiJian=Cn2("ZuiHouFaTieShiJian")
  162. ZuiHouFaTieHuiYuan=Cn2("ZuiHouFaTieHuiYuan")
  163. ShangJi_Str=Cn2("ShangJi_Str")
  164. XianShi_XiaJi=Cn2("XianShi_XiaJi")
  165. YouKe_FaTie=Cn2("YouKe_FaTie")
  166. YouKe_HuiFu=Cn2("YouKe_HuiFu")
  167. DenJi=Cn2("DenJi")
  168. ShengHe=Cn2("ShengHe")
  169. BanKuai_QuanXian=Cn2("BanKuai_QuanXian")
  170. ChengYuan_JiaRu=Cn2("ChengYuan_JiaRu")
  171. End If
  172. Set Cn1=Nothing
  173. Set Cn2=Nothing
  174. Call CloseData()
  175. Select Case BanKuai_QuanXian
  176. Case "0"
  177. BanKuai_QuanXian="任何人可进入"
  178. Case "1"
  179. BanKuai_QuanXian="会员才可进入"
  180. Case "2"
  181. BanKuai_QuanXian="特殊会员才可进入"
  182. End Select
  183. Select Case ChengYuan_JiaRu
  184. Case "1"
  185. ChengYuan_JiaRu="任何人可加入"
  186. Case "2"
  187. ChengYuan_JiaRu="加入需要审核"
  188. Case "3"
  189. ChengYuan_JiaRu="禁止任何人加入"
  190. End Select
  191. c.Writeln("版面ID:"&ID)
  192. c.Writeln("版面名称:"&BanKuai_MingChen)
  193. c.Writeln("版面简介:"&BanKuai_JianJie)
  194. c.Writeln("版面版主:"&BanKuai_BanZhu)
  195. c.Writeln("贴子数量:"&ShuLiang_TieZhi)
  196. c.Writeln("回复数量:"&ShuLiang_HuiFu)
  197. c.Writeln("显示版主:"&Str_Z(XianShi_BanZhu))
  198. c.Writeln("允许发贴:"&Str_Z(FangWen_FaTie))
  199. c.Writeln("允许回复:"&Str_Z(FangWen_HuiFu))
  200. 'c.Writeln("允许复制贴子:"&Str_Z(FuZhi_TieZhi))
  201. 'c.Writeln("允许复制回复:"&Str_Z(FuZhi_HuiFu))
  202. c.Writeln("版面创建时间:"&BanKuai_ShiJian)
  203. 'c.Writeln("版面总点击数:"&BanKuai_DianJi)
  204. c.Writeln("上级版面ID:"&ShangJi_ID)
  205. c.Writeln("版面LOGO:"&BanKuai_LOGO)
  206. c.Writeln("显示LOGO:"&Str_Z(XianShi_LOGO))
  207. 'c.Writeln("允许管理:"&Str_Z(FangWen_GuanLi))
  208. 'c.Writeln("最后发贴时间:"&ZuiHouFaTieShiJian)
  209. 'c.Writeln("最后发贴会员:"&ZuiHouFaTieHuiYuan)
  210. c.Writeln("上级版面:"&ShangJi_Str)
  211. c.Writeln("显示下级版面:"&Str_Z(XianShi_XiaJi))
  212. c.Writeln("允许游客发贴:"&Str_Z(YouKe_FaTie))
  213. c.Writeln("允许游客回复:"&Str_Z(YouKe_HuiFu))
  214. c.Writeln("进入需要等级:"&DenJi)
  215. c.Writeln("发贴审核:"&Str_Z(ShengHe))
  216. c.Writeln("权限:"&BanKuai_QuanXian)
  217. c.Writeln("成员加入:"&ChengYuan_JiaRu)
  218. End Sub
  219. Private Sub b()
  220. Dim Cn1,cn2,BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,ShuLiang_TieZhi,ShuLiang_HuiFu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,BanKuai_ShiJian,BanKuai_DianJi,ShangJi_ID,BanKuai_ZhuangTai,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,ZuiHouFaTieShiJian,ZuiHouFaTieHuiYuan,ShangJi_Str,XianShi_TieZhi,XianShi_XiaJi,TieZhi_Ding,TieZhi_Jing,TieZhi_Suo,TieZhi_Mai,XianShi_Ding,XianShi_Jing,XianShi_Suo,XianShi_Mai,YouKe_FaTie,YouKe_HuiFu,TieZhi_Tou,XianShi_Tou,DenJi,ShengHe,BanKuai_QuanXian,ChengYuan_JiaRu
  221. Call OpenData()
  222. Set Cn1=Server.CreateObject("Adodb.Command")
  223. Cn1.ActiveConnection=Conn
  224. Cn1.CommandType=1
  225. Cn1.CommandText="Select * From BanKuai Where ID="&Clng(ID)
  226. Set Cn2=Cn1.Execute
  227. If Cn2.Eof Then
  228. Call xkon_Error("该内容不存在")
  229. Else
  230. BanKuai_MingChen=Cn2("BanKuai_MingChen")
  231. BanKuai_JianJie=Cn2("BanKuai_JianJie")
  232. BanKuai_BanZhu=Cn2("BanKuai_BanZhu")
  233. ShuLiang_TieZhi=Cn2("ShuLiang_TieZhi")
  234. ShuLiang_HuiFu=Cn2("ShuLiang_HuiFu")
  235. XianShi_BanZhu=Cn2("XianShi_BanZhu")
  236. FangWen_FaTie=Cn2("FangWen_FaTie")
  237. FangWen_HuiFu=Cn2("FangWen_HuiFu")
  238. FuZhi_TieZhi=Cn2("FuZhi_TieZhi")
  239. FuZhi_HuiFu=Cn2("FuZhi_HuiFu")
  240. BanKuai_ShiJian=Cn2("BanKuai_ShiJian")
  241. BanKuai_DianJi=Cn2("BanKuai_DianJi")
  242. ShangJi_ID=Cn2("ShangJi_ID")
  243. BanKuai_LOGO=Cn2("BanKuai_LOGO")
  244. XianShi_LOGO=Cn2("XianShi_LOGO")
  245. FangWen_GuanLi=Cn2("FangWen_GuanLi")
  246. ZuiHouFaTieShiJian=Cn2("ZuiHouFaTieShiJian")
  247. ZuiHouFaTieHuiYuan=Cn2("ZuiHouFaTieHuiYuan")
  248. ShangJi_Str=Cn2("ShangJi_Str")
  249. XianShi_XiaJi=Cn2("XianShi_XiaJi")
  250. YouKe_FaTie=Cn2("YouKe_FaTie")
  251. YouKe_HuiFu=Cn2("YouKe_HuiFu")
  252. DenJi=Cn2("DenJi")
  253. ShengHe=Cn2("ShengHe")
  254. BanKuai_QuanXian=Cn2("BanKuai_QuanXian")
  255. ChengYuan_JiaRu=Cn2("ChengYuan_JiaRu")
  256. End If
  257. Set Cn1=Nothing
  258. Set Cn2=Nothing
  259. Call CloseData()
  260. c.Writeln("<form method=""post"" action=""LT_BanMian_CaoZuo.Asp?l=b2&amp;id="&id&""">版面名称:<input name=""BanKuai_MingChen"" value="""&BanKuai_MingChen&""" />")
  261. c.Writeln("简介:<input name=""BanKuai_JianJie"" value="""&BanKuai_JianJie&""" />")
  262. c.Writeln("版主用户名:<input name=""BanKuai_BanZhu"" value="""&BanKuai_BanZhu&""" />")
  263. c.Writeln("显示版主:<select name=""XianShi_BanZhu""><option value=""1"" "&Selected("1",XianShi_BanZhu)&">显示</option><option value=""0"" "&Selected("0",XianShi_BanZhu)&">不显示</option></select>")
  264. c.Writeln("允许发贴:<select name=""FangWen_FaTie""><option value=""1"" "&Selected("1",FangWen_FaTie)&">允许</option><option value=""0"" "&Selected("0",FangWen_FaTie)&">禁止</option></select>")
  265. c.Writeln("允许回复:<select name=""FangWen_HuiFu""><option value=""1"" "&Selected("1",FangWen_HuiFu)&">允许</option><option value=""0"" "&Selected("0",FangWen_HuiFu)&">禁止</option></select>")
  266. 'c.Writeln("允许复制贴子:<select name=""FuZhi_TieZhi""><option value=""1"" "&Selected("1",FuZhi_TieZhi)&">允许</option><option value=""0"" "&Selected("0",FuZhi_TieZhi)&">禁止</option></select>")
  267. 'c.Writeln("允许复制回复:<select name=""FuZhi_HuiFu""><option value=""1"" "&Selected("1",FuZhi_HuiFu)&">允许</option><option value=""0"" "&Selected("0",FuZhi_HuiFu)&">禁止</option></select>")
  268. Call LieBiao(ShangJi_ID)
  269. c.Writeln("LOGO:<input name=""BanKuai_LOGO"" value="""&BanKuai_LOGO&""" />")
  270. c.Writeln("显示LOGO:<select name=""XianShi_LOGO""><option value=""0"" "&Selected("0",XianShi_LOGO)&">不显示</option><option value=""1"" "&Selected("1",XianShi_LOGO)&">显示</option></select>")
  271. 'c.Writeln("允许管理:<select name=""FangWen_GuanLi""><option value=""1"" "&Selected("1",FangWen_GuanLi)&">允许</option><option value=""0"" "&Selected("0",FangWen_GuanLi)&">禁止</option></select>")
  272. c.Writeln("显示下级版块:<select name=""XianShi_XiaJi""><option value=""1"" "&Selected("1",XianShi_XiaJi)&">显示</option><option value=""0"" "&Selected("0",XianShi_XiaJi)&">不显示</option></select>")
  273. c.Writeln("允许游客发贴:<select name=""YouKe_FaTie""><option value=""1"" "&Selected("1",YouKe_FaTie)&">允许</option><option value=""0"" "&Selected("0",YouKe_FaTie)&">禁止</option></select>")
  274. c.Writeln("允许游客回复:<select name=""YouKe_HuiFu""><option value=""1"" "&Selected("1",YouKe_HuiFu)&">允许</option><option value=""0"" "&Selected("0",YouKe_HuiFu)&">禁止</option></select>")
  275. c.Writeln("进入需要等级:<input name=""DenJi"" value="""&DenJi&""" />")
  276. c.Writeln("发贴审核:<select name=""ShengHe""><option value=""0"" "&Selected("0",ShengHe)&">否</option><option value=""1"" "&Selected("1",ShengHe)&">是</option></select>")
  277. c.Writeln("权限:<select name=""BanKuai_QuanXian""><option value=""0"" "&Selected("0",BanKuai_QuanXian)&">任何人可进入</option><option value=""1"" "&Selected("1",BanKuai_QuanXian)&">会员才能进入</option><option value=""2"" "&Selected("3",BanKuai_QuanXian)&">特殊会员才可进入</option></select>")
  278. c.Writeln("成员加入:<select name=""ChengYuan_JiaRu""><option value=""1"" "&Selected("1",ChengYuan_JiaRu)&">任何人可加入</option><option value=""2"" "&Selected("2",ChengYuan_JiaRu)&">需要审核才可进入</option><option value=""3"" "&Selected("3",ChengYuan_JiaRu)&">禁止任何人加入</option></select>")
  279. c.Write("<input type=""submit"" value=""修改"" /></form>")
  280. End Sub
  281. Private Sub b2()
  282. Dim BanKuai_MingChen,BanKuai_JianJie,BanKuai_BanZhu,XianShi_BanZhu,FangWen_FaTie,FangWen_HuiFu,FuZhi_TieZhi,FuZhi_HuiFu,ShangJi_ID,ShangJi_Str,BanKuai_PaiXu,BanKuai_LOGO,XianShi_LOGO,FangWen_GuanLi,XianShi_TieZhi,XianShi_XiaJi,XianShi_Jing,XianShi_Ding,XianShi_Suo,XianShi_Mai,XianShi_Tou,YouKe_FaTie,YouKe_HuiFu,DenJi,ShengHe,BanKuai_QuanXian,BanKuai_ZhuangTai,SQL,BanZhu_NiChen,ChengYuan_JiaRu
  283. ChengYuan_JiaRu=s.Form("ChengYuan_JiaRu")
  284. BanKuai_MingChen=s.Form("BanKuai_MingChen")
  285. BanKuai_JianJie=s.Form("BanKuai_JianJie")
  286. BanKuai_BanZhu=s.Form("BanKuai_BanZhu")
  287. If BanKuai_BanZhu<>"0" Then
  288. Call OpenData()
  289. BanZhu_NiChen=Get_NiChen(BanKuai_BanZhu)
  290. Call CloseData()
  291. End If
  292. XianShi_BanZhu=s.Form("XianShi_BanZhu")
  293. FangWen_FaTie=s.Form("FangWen_FaTie")
  294. FangWen_HuiFu=s.Form("FangWen_HuiFu")
  295. FuZhi_TieZhi=s.Form("FuZhi_TieZhi")
  296. FuZhi_HuiFu=s.Form("FuZhi_HuiFu")
  297. ShangJi_ID=s.Form("ShangJi_ID")
  298. ShangJi_Str=BanMian_MingChen(ShangJi_ID)
  299. BanKuai_LOGO=s.Form("BanKuai_LOGO")
  300. XianShi_LOGO=s.Form("XianShi_LOGO")
  301. FangWen_GuanLi=s.Form("FangWen_GuanLi")
  302. XianShi_XiaJi=s.Form("XianShi_XiaJi")
  303. YouKe_FaTie=s.Form("YouKe_FaTie")
  304. YouKe_HuiFu=s.Form("YouKe_HuiFu")
  305. DenJi=s.Form("DenJi")
  306. ShengHe=s.Form("ShengHe")
  307. BanKuai_QuanXian=s.Form("BanKuai_QuanXian")
  308. XianShi_Tou=s.Form("XianShi_Tou")
  309. If BanKuai_MingChen="" Then
  310. Call xkon_Error("版面名称不能为空")
  311. Else
  312. SQL="Update BanKuai Set "
  313. SQL=SQL&"BanKuai_MingChen='"&BanKuai_MingChen&"',"
  314. SQL=SQL&"BanKuai_JianJie='"&BanKuai_JianJie&"',"
  315. SQL=SQL&"BanKuai_BanZhu='"&BanKuai_BanZhu&"',"
  316. SQL=SQL&"XianShi_BanZhu='"&XianShi_BanZhu&"',"
  317. SQL=SQL&"FangWen_FaTie='"&FangWen_FaTie&"',"
  318. SQL=SQL&"FangWen_HuiFu='"&FangWen_HuiFu&"',"
  319. SQL=SQL&"FuZhi_TieZhi='"&FuZhi_TieZhi&"',"
  320. SQL=SQL&"FuZhi_HuiFu='"&FuZhi_HuiFu&"',"
  321. SQL=SQL&"ShangJi_ID='"&ShangJi_ID&"',"
  322. SQL=SQL&"ShangJi_Str='"&ShangJi_Str&"',"
  323. SQL=SQL&"BanKuai_LOGO='"&BanKuai_LOGO&"',"
  324. SQL=SQL&"XianShi_LOGO='"&XianShi_LOGO&"',"
  325. SQL=SQL&"FangWen_GuanLi='"&FangWen_GuanLi&"',"
  326. SQL=SQL&"XianShi_XiaJi='"&XianShi_XiaJi&"',"
  327. SQL=SQL&"YouKe_FaTie='"&YouKe_FaTie&"',"
  328. SQL=SQL&"YouKe_HuiFu='"&YouKe_HuiFu&"',"
  329. SQL=SQL&"DenJi='"&DenJi&"',"
  330. SQL=SQL&"BanZhu_NiChen='"&BanZhu_NiChen&"',"
  331. SQL=SQL&"ShengHe='"&ShengHe&"',"
  332. SQL=SQL&"ChengYuan_JiaRu='"&ChengYuan_JiaRu&"',"
  333. SQL=SQL&"BanKuai_QuanXian='"&BanKuai_QuanXian&"'"
  334. SQL=SQL&" Where ID="&Clng(ID)
  335. Call OpenData()
  336. Conn.Execute(SQL)
  337. Call JiLu("修改版面信息"&ID)
  338. Call CloseData()
  339. Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
  340. Response.End()
  341. End If
  342. End Sub
  343. Private Sub Delete()
  344. Call OpenData()
  345. Conn.Execute("Delete From BanKuai Where ID="&Clng(ID))
  346. Conn.Execute("Update TieZhi Set Shan='1' Where BanKuai="&Clng(ID))
  347. Call JiLu("删除版块"&ID)
  348. Call CloseData()
  349. Response.Write("<script language=javascript>location.href=""LT_BanMian.Asp"";</script>")
  350. Response.End()
  351. End Sub
  352. Call H_Title("版面管理")
  353. Select Case l
  354. Case "j"
  355. Call j()
  356. Case "j2"
  357. Call j2()
  358. Case "x"
  359. Call x()
  360. Case "b"
  361. Call b()
  362. Case "b2"
  363. Call b2()
  364. Case "s"
  365. Call Delete()
  366. End Select
  367. c.Write("<a href=""LT_BanMian.Asp"">返回版块管理</a>")
  368. Call H_End()
  369. Set c=Nothing
  370. Set s=Nothing
  371. %>