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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Board.Asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：34k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Board.Asp：源码内容
  1. <!--#include file="check.asp"-->
  2. <%
  3. const maxdepth=3
  4. server.scripttimeout =999999
  5. response.write("<body>")
  6. call showtable("论坛版面管理","<center><a href='?'>论坛管理</a> | <a href=""?action=addclass"">增加分类</a> | <a href=""?action=addboard"">增加论坛</a> | <a href=""?action=classorders"">分类排序</a> | <a href=""?action=boardunite"">论坛合并</a></center>")
  8. response.flush
  9. select case request("action")
  10. case "addclass"
  11. addclass
  12. case "saveclass"
  13. saveclass
  14. case "editclass"
  15. editclass
  16. case "saveeditclass"
  17. saveeditclass
  18. case "delclass"
  19. delclass
  20. case "addboard"
  21. addboard
  22. case "saveboard"
  23. saveboard
  24. case "editboard"
  25. editboard
  26. case "saveeditboard"
  27. saveeditboard
  28. case "delboard"
  29. delboard
  30. case "classorders"
  31. classorders
  32. case "saveclassorders"
  33. saveclassorders
  34. case "boardunite"
  35. boardunite
  36. case "saveboardunite"
  37. saveboardunite
  38. case "passuser"
  39. passuser
  40. case "savepassuser"
  41. savepassuser
  42. case "ordersboard"
  43. ordersboard
  44. case else
  45. boardinfo()
  46. end select
  47. adminfooter()
  49. sub boardinfo
  50. dim rs,brs,i,install,temp,ii,po,boardtype
  51. %>
  52. <div class="ta">
  53. <div class="th1 jz w390">论坛版面</div>
  54. <div class="th1 jz w390">相应操作</div>
  56. <%
  57. set rs=yxbbs.execute("select boardid,boardname,parentid,depth,child,boardtype from [yx_board] order by rootid,orders")
  58. if rs.eof or rs.bof then
  59. call goback("","论坛没有分类！请先<a href=board.asp?action=addclass> 添加分类</a>")
  60. exit sub
  61. end if
  62. brs=rs.getrows(-1)
  63. rs.close
  64. for i=0 to ubound(brs,2)
  65. temp=""
  66. install="&nbsp;&nbsp;<a href='?action=addboard&boardid="&brs(0,i)&"'>添加论坛</a>"
  67. if brs(3,i)=0 then'分类
  68. temp="<div class=""td1 jz"" style=""text-align: left;"">"&temp
  69. if brs(4,i)>0 then'如果有子论坛
  70. temp=temp&brs(1,i)&" ("&brs(4,i)&")"
  71. else
  72. temp=temp&brs(1,i)
  73. end if
  74. install=install & "&nbsp;|&nbsp;<a href='?action=editclass&boardid="&brs(0,i)&"'>分类改名</a>"
  75. if brs(4,i)>0 then
  76. install=install & "&nbsp;|&nbsp;<a href=javascript:alert('不能删除！该分类含有论坛!nn要删除本类，必须先把属下的论坛删除或移走。')>删除分类</a>"
  77. else
  78. install=install & "&nbsp;|&nbsp;<a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href='?action=delclass&boardid="&brs(0,i)&"'>删除分类</a>"
  79. end if
  80. else'版面
  81. temp="<div class=""td1 jz"" style=""text-align: left;"">"&temp
  82. po=""
  83. for ii=1 to brs(3,i)
  84. po=po&" <font color=red>∣</font> "
  85. next
  86. if brs(4,i)>0 then'如果有子论坛
  87. temp=temp&po&brs(1,i)&" ("&brs(4,i)&")"
  88. else
  89. temp=temp&po&brs(1,i)
  90. end if
  91. install=install & " | <a href='?action=editboard&boardid="&brs(0,i)&"'>修改</a>"
  92. if brs(4,i)>0 then
  93. install=install & " | <a href='javascript:' onclick=alert('不能删除！该版面含有子论坛!nn要删除本版，必须先把属下的子论坛删除或移走。')>删除</a>"
  94. else
  95. install=install & " | <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href='?action=delboard&boardid="&brs(0,i)&"'>删除</a>"
  96. end if
  97. install=install & " | <a href='?action=ordersboard&boardid="&brs(0,i)&"'>置前</a>"
  98. if brs(5,i) then
  99. install=install & " | <a href='?action=passuser&boardid="&brs(0,i)&"'>认证用户</a>"
  100. end if
  101. end if
  102. response.write(temp&"</div><div class=""td2 jz"" style=""text-align: left;"">"&install&"</div>")
  103. next
  104. %>
  106. <div style='clear: both;'></div> 
  107. </div>
  109. <%
  110. end sub
  112. sub addclass
  113. dim newboardid
  114. set rs=yxbbs.execute("select max(boardid) from [yx_board]")
  115. if rs.eof or rs.bof then
  116. newboardid=1
  117. else
  118. newboardid=rs(0)+1
  119. end if
  120. if not isnumeric(newboardid) then newboardid=1
  121. rs.close
  122. %><form method=post style="margin:0" action="?action=saveclass">
  123.         <div class="ta">
  124.         <div class="th jz">添加分类</div>
  125.         <div class="td1 h30"><b>分类名称：</b><br />论坛的分类名称</div>
  126.         <div class="td2 h30" style="text-align: left;"><input name="newboardid" type="hidden" value="<%=newboardid%>"><input type=text name="boardname" size=30></div>
  127.         <div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div></form> </div>
  128. <%
  129. end sub
  131. sub saveclass
  132. dim boardname,newboardid,maxrootid
  133. boardname=yxbbs.fun.getstr("boardname")
  134. newboardid=yxbbs.fun.getstr("newboardid")
  135. if boardname="" or not isnumeric(newboardid) then
  136. call goback("",""):exit sub
  137. else
  138. set rs=yxbbs.execute("select boardid from [yx_board] where boardid="&newboardid)
  139. if not (rs.eof and rs.bof) then
  140. call goback("错误提示","不能指定和别的论坛一样的序号！")
  141. exit sub
  142. end if
  143. rs.close
  144. set rs=yxbbs.execute("select max(rootid) from yx_board")
  145. maxrootid=rs(0)+1
  146. if isnull(maxrootid) then maxrootid=1
  147. rs.close
  148. yxbbs.execute("insert into [yx_board](boardname,boardid,boardsetting,rootid,depth,parentid,orders,child,parentstr)values('"&boardname&"',"&newboardid&",'0,0,30,30720,10,0,0,0,0,0,0',"&maxrootid&",0,0,0,0,'0')")
  149. call suc("","成功的添加了论坛分类 <b>"&boardname&"</b> !","?")
  150. end if
  151. end sub
  153. sub editclass
  154. dim boardid
  155. set rs=yxbbs.execute("select boardname from[yx_board] where boardid="&yxbbs.boardid&"")
  156. if rs.eof then
  157. call goback("系统出错","论坛找不到这个分类，可能已经删除了。"):exit sub
  158. end if
  159. %><form method=post style="margin:0" action="?action=saveeditclass">
  160.           <div class="ta">
  161.         <div class="th jz">添加分类</div>
  162.         <div class="td1 h30"><b>分类名称：</b><br />论坛的分类名称</div>
  163.         <div class="td2 h30" style="text-align: left;"><input name="boardid" type="hidden" value="<%=yxbbs.boardid%>"><input type=text name="boardname" value="<%=rs(0)%>" size=30></div>
  164.         <div style="clear: both;"></div><div class="tf"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div></form></div>
  165. <%rs.close
  166. end sub
  168. sub saveeditclass
  169. dim boardname,boardid
  170. boardname=yxbbs.fun.getstr("boardname")
  171. boardid=yxbbs.fun.getstr("boardid")
  172. if boardname="" or not isnumeric(boardid) then
  173. call goback("",""):exit sub
  174. else
  175. if yxbbs.execute("select boardid from [yx_board] where boardid="&boardid).eof then
  176. call goback("系统出错","论坛找不到这个分类，可能已经删除了。"):exit sub
  177. end if
  178. yxbbs.execute("update [yx_board] set boardname='"&boardname&"' where boardid="&boardid)
  179. call suc("","成功的把论坛分类名称改为 <b>"&boardname&"</b> !","?")
  180. end if
  181. end sub
  183. sub delclass
  184. if  yxbbs.execute("select count(boardid) from[yx_board] where parentid="&yxbbs.boardid)(0)=0 then
  185. yxbbs.execute("delete from[yx_board] where parentid=0 and boardid="&yxbbs.boardid)
  186. call suc("","成功的删除了分类!","?")
  187. end if
  188. end sub
  190. sub addboard
  191. if yxbbs.execute("select boardid from [yx_board] where depth=0").eof then
  192. call goback("","没有分类不能添加论坛！请先<a href=board.asp?action=addclass> ·添加分类</a>")
  193. exit sub
  194. end if%>
  195.         <form method=post style="margin:0" action="?action=saveboard">
  196.         <div class="ta">
  197.         <div class="th jz">论坛添加</div>
  198.         <div class="td1 h40">论坛名称：</div>
  199.         <div class="td2 h40"><input type=text name="boardname" size=30></div>
  200.         <div class="td1 h40">标志图片：<br />论坛版面logo地址，可以不填</div>
  201.         <div class="td2 h40"><input type=text name="boardimg" size=30></div>
  202.         <div class="td1 h40">论坛版主：<br />添加多版主请用@@分隔，如：name@@name</div>
  203.         <div class="td2 h40"><input type=text name="boardadmin" size=30></div>
  204.         <div class="td1 h70">论坛介绍：</div>
  205.         <div class="td2 h70 w446"><textarea rows="3" name="introduce"></textarea></div>
  206. <div class="td1 h40">属于分类或论坛：</div>
  207.         <div class="td2 h40"><select size="1" name="parentid"><%=yxbbs.boardidlist(yxbbs.boardid,20)%></select></div>
  208. <div class="td1 h40">限制用户等级：</div>
  209.         <div class="td2 h40"><select size="1" name="boardgrade">
  210. <option value="0" selected>0级：游客</option>
  211. <%
  212. dim ug
  213. set ug=conn.execute("select gradenum,gradename from yx_usergrade order by gradenum asc")
  214. while not ug.eof
  215. response.write "<option value="&ug(0)&">"&ug(0)&"级："&ug(1)&"</option>"
  216. ug.movenext
  217. wend
  218. set ug=nothing
  219. %>
  220. </select></div>
  221.         <div class="td1 h40">是否认证版面：<br />认证版只有版主和人证会员</div>
  222.         <div class="td2 h40"><input type="radio" value="1" name="boardtype">是&nbsp; <input name="boardtype" type="radio" value="0" checked="true">否</div>
  223.         <div class="td1 h40">锁定版面：<br /> 锁定之后不可以发布帖子</div>
  224.         <div class="td2 h40"><input type="radio" value="1" name="boardlock">是&nbsp; <input name="boardlock" type="radio" value="0" checked="true">否</div>
  225. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  226.  </div></form>
  227. <%
  228. end sub
  230. sub saveboard
  231. dim boardname,introduce,boardadmin,boardimg,boardgrade,boardlock,boardtype,parentid,newboardid,rootid,depth,child,orders,parentstr,i
  232. boardname=yxbbs.fun.getstr("boardname")
  233. introduce=yxbbs.fun.getstr("introduce")
  234. boardadmin=yxbbs.fun.getstr("boardadmin")
  235. boardgrade=yxbbs.fun.getstr("boardgrade")
  236. boardlock=yxbbs.fun.getstr("boardlock")
  237. boardtype=yxbbs.fun.getstr("boardtype")
  238. boardimg=yxbbs.fun.getstr("boardimg")
  239. parentid=yxbbs.fun.getstr("parentid")
  240. if not isnumeric(parentid) or boardname="" or introduce="" then
  241. call goback("",""):exit sub
  242. end if
  243. set rs=yxbbs.execute("select max(boardid) from [yx_board]")
  244. if rs.eof or rs.bof then
  245. call goback("","没有分类不能添加论坛！请先<a href=board.asp?action=addclass> ·添加分类</a>")
  246. exit sub
  247. else
  248. newboardid=rs(0)+1
  249. end if
  250. rs.close
  251. set rs=yxbbs.execute("select rootid,depth,child,orders,parentstr,parentid from[yx_board] where boardid="&parentid&"")
  252. if rs.eof or rs.bof then
  253. call goback("系统程序出错！","没有指定父类或父论坛！")
  254. exit sub
  255. end if
  256. rootid=rs(0)
  257. depth=rs(1)
  258. child=rs(2)
  259. orders=rs(3)
  260. parentstr=rs(4)
  261. rs.close
  262. if depth+1>maxdepth then
  263. call goback("","考虑到论坛的实用易用，本论坛限制了最多只能有" & maxdepth & "级论坛!")
  264. exit sub
  265. end if
  266. if parentstr=0 then
  267. parentstr=parentid
  268. else
  269. parentstr=parentstr & "," & parentid
  270. end if
  271. yxbbs.execute("insert into [yx_board](boardid,boardname,introduce,boardadmin,boardimg,boardsetting,boardlock,boardtype,rootid,depth,parentid,parentstr,orders,child)values("&newboardid&",'"&boardname&"','"&introduce&"','"&boardadmin&"','"&boardimg&"','0,gif|jpg|swf|zip|rar|bmp,30,30720,10,0,0,0,0,0,0,4',"&boardlock&","&boardtype&","&rootid&","&depth+1&","&parentid&",'"&parentstr&"',"&orders+1&",0)")
  272. if boardadmin <> "" then call addmaster(boardadmin,"none",0)
  273. if parentid<>0 then
  274. if depth>0 then
  275. '当上级分类深度大于0的时候要更新其父类（或父类的父类）的版面数和相关排序
  276. for i=1 to depth
  277. '更新其父类版面数
  278. yxbbs.execute("update [yx_board] set child=child+1 where boardid="&parentid)
  279. '得到其父类的父类的版面id
  280. set rs=yxbbs.execute("select parentid from [yx_board] where boardid="&parentid)
  281. if not (rs.eof and rs.bof) then
  282. parentid=rs(0)
  283. end if
  284. rs.close
  285. '当循环次数大于1并且运行到最后一次循环的时候直接进行更新
  286. if i=depth then
  287. yxbbs.execute("update [yx_board] set child=child+1 where boardid="&parentid)
  288. end if
  289. next
  290. '更新该版面排序以及大于本需要和同在本分类下的版面排序序号
  291. yxbbs.execute("update [yx_board] set orders=orders+1 where rootid="&rootid&" and orders>"&orders)
  292. yxbbs.execute("update [yx_board] set orders="&orders&"+1 where boardid="&newboardid&"")
  293. else
  294. '当上级分类深度为0的时候只要更新上级分类版面数
  295. yxbbs.execute("update [yx_board] set child=child+1 where boardid="&parentid)
  296. set rs=yxbbs.execute("select max(orders) from [yx_board]")
  297. yxbbs.execute("update [yx_board] set orders="&rs(0)&"+1 where boardid="&newboardid )
  298. rs.close
  299. end if
  300. end if
  301. call suc("","成功的添加了论坛 <b>"&boardname&"</b> !","board.asp")
  302. end sub
  304. sub editboard
  305. dim boardname,boardlock,boardtype,introduce,boardimg,parentid,boardadmin,boardgrade
  306. set rs=yxbbs.execute("select parentid,boardname,boardadmin,boardgrade,boardlock,boardtype,introduce,boardimg from[yx_board] where boardid="&yxbbs.boardid&"")
  307. if rs.eof then
  308. call goback("","该版面不存在，可能已经删除了")
  309. exit sub
  310. else
  311. parentid=rs(0)
  312. boardname=rs(1)
  313. boardadmin=rs(2)
  314. boardgrade=rs(3)
  315. boardlock=rs(4)
  316. boardtype=rs(5)
  317. introduce=rs(6)
  318. boardimg=rs(7)
  319. end if
  320. rs.close%><form method=post style="margin:0" action="?action=saveeditboard">
  321.          <div class="ta">
  322.         <div class="th jz">论坛修改</div>
  323.         <div class="td1 h40">论坛名称：</div>
  324.         <div class="td2 h40"><input name="boardid" value="<%=yxbbs.boardid%>" type="hidden"><input name="boardname" type=text value="<%=boardname%>" size=30></div>
  325.         <div class="td1 h40">标志图片：<br />论坛版面logo地址，可以不填</div>
  326.         <div class="td2 h40"><input type=text name="boardimg" value="<%=boardimg%>" size=30></div>
  327.         <div class="td1 h40">论坛版主：<br />添加多版主请用@@分隔，如：name@@name</div>
  328.         <div class="td2 h40"><input type=text name="boardadmin" size=30 value="<%=boardadmin%>"><input type="hidden" name="oldboardadmin" size=30 value="<%=boardadmin%>"></div>
  329.         <div class="td1 h70">论坛介绍：</div>
  330.         <div class="td2 h70 w446"><textarea rows="3" name="introduce"><%=introduce%></textarea></div>
  331. <div class="td1 h40">属于分类或论坛：</div>
  332.         <div class="td2 h40"><select size="1" name="parentid"><%=yxbbs.boardidlist(parentid,20)%></select></div>
  333. <div class="td1 h40">限制用户等级：</div>
  334.         <div class="td2 h40"><select size="1" name="boardgrade">
  335. <option value="0" selected>0级：游客</option>
  336. <%
  337. dim ug
  338. set ug=conn.execute("select gradenum,gradename from yx_usergrade order by gradenum asc")
  339. while not ug.eof
  340. if ug(0)=boardgrade then
  341. response.write "<option value="&ug(0)&" selected>"&ug(0)&"级："&ug(1)&"</option>"
  342. else
  343. response.write "<option value="&ug(0)&">"&ug(0)&"级："&ug(1)&"</option>"
  344. end if
  345. ug.movenext
  346. wend
  347. set ug=nothing
  348. %></select></div>
  349.         
  350.         <div class="td1 h40">是否认证版面：<br />认证版只有版主和人证会员</div>
  351.         <div class="td2 h40"><input type="radio" value="1" name="boardtype" <%if boardtype=1 then response.write "checked=""true"""%>>是&nbsp; <input type="radio" value="0" name="boardtype" <%if boardtype=0 then response.write "checked=""true"""%>>否</div>
  353. <div class="td1 h40">锁定版面：<br /> 锁定之后不可以发布帖子</div>
  354.         <div class="td2 h40"><input type="radio" value="1" name="boardlock" <%if boardlock=1 then response.write "checked=""true""" %>>是&nbsp; <input type="radio" value="0" name="boardlock" <%if boardlock=0 then response.write "checked=""true"""%>>否</div>
  355. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  356. </div></form>
  357. <%
  358. end sub
  360. sub saveeditboard
  361. dim boardid,boardname,introduce,boardadmin,oldboardadmin,boardgrade,boardlock,boardtype,boardimg,parentid,rootid,depth,child,orders,parentstr,i
  362. dim newparentid,boardnum,p_rs
  363. boardid=yxbbs.fun.getstr("boardid")
  364. boardname=yxbbs.fun.getstr("boardname")
  365. introduce=yxbbs.fun.getstr("introduce")
  366. boardadmin=yxbbs.fun.getstr("boardadmin")
  367. boardgrade=yxbbs.fun.getstr("boardgrade")
  368. oldboardadmin=yxbbs.fun.getstr("oldboardadmin")
  369. boardlock=yxbbs.fun.getstr("boardlock")
  370. boardtype=yxbbs.fun.getstr("boardtype")
  371. boardimg=yxbbs.fun.getstr("boardimg")
  372. newparentid=yxbbs.fun.getstr("parentid")
  373. if not isnumeric(newparentid) or boardname="" or introduce="" then
  374. call goback("",""):exit sub
  375. elseif boardid=newparentid then
  376. call goback("","所属论坛不能指定自己！"):exit sub
  377. end if
  378. set rs=yxbbs.execute("select rootid,depth,child,orders,parentid,parentstr from[yx_board] where boardid="&boardid)
  379. if rs.eof or rs.bof then
  380. call goback("系统出错！","该版面不存在，可能已经删除了！")
  381. exit sub
  382. end if
  383. rootid=rs(0)
  384. depth=rs(1)
  385. child=rs(2)
  386. orders=rs(3)
  387. parentid=rs(4)
  388. parentstr=rs(5)
  389. rs.close
  390. if parentid=0 then
  391. call goback("系统出错！","分类不能设置"):exit sub
  392. elseif int(newparentid)<>int(parentid) then
  393. '判断所指定的论坛是否其下属论坛
  394. set rs=yxbbs.execute("select boardid from [yx_board] where parentstr like '%"&parentstr&","&boardid&"%' and boardid="&newparentid)
  395. if not (rs.eof and rs.bof) then
  396. call goback("","您不能指定该版面的下属子论坛作为所属论坛")
  397. exit sub
  398. end if
  399. rs.close
  400. '获得新选的父级
  401. set p_rs=yxbbs.execute("select * from [yx_board] where boardid="&newparentid)
  402. if p_rs("depth")+1> maxdepth or (child>0 and p_rs("depth")+2>maxdepth) then
  403. p_rs.close:set p_rs=nothing
  404. call goback("","本论坛限制了最多只能有" & maxdepth & "级论坛.")
  405. exit sub
  406. end if
  407. end if
  408. yxbbs.execute("update [yx_board] set boardname='"&boardname&"',introduce='"&introduce&"',boardadmin='"&boardadmin&"',boardgrade="&boardgrade&",boardlock="&boardlock&",boardtype="&boardtype&",boardimg='"&boardimg&"' where boardid="&boardid&"")
  409. if boardadmin <> oldboardadmin then call addmaster(boardadmin,oldboardadmin,1)
  410. if int(newparentid)<>int(parentid) then
  411. '将一个分论坛移动到其他分论坛下
  412. '获得所指定的论坛的相关信息
  413. '得到其下属版面数
  414. parentstr=parentstr & ","
  415. boardnum=yxbbs.execute("select count(*) from [yx_board] where parentstr like '%"&parentstr & boardid&"%'")(0)
  416. if isnull(boardnum) then boardnum=1
  417. '在获得移动过来的版面数后更新排序在指定论坛之后的论坛排序数据
  418. yxbbs.execute("update [yx_board] set orders=orders + "&boardnum&"+1  where rootid="&p_rs("rootid")&" and orders>"&p_rs("orders")&"")
  419. '更新当前版面数据
  420. if p_rs("parentstr")="0" then
  421. yxbbs.execute("update [yx_board] set depth="&p_rs("depth")&"+1,orders="&p_rs("orders")&"+1,rootid="&p_rs("rootid")&",parentid="&newparentid&",parentstr='" & p_rs("boardid") & "' where boardid="&boardid)
  422. else
  423. yxbbs.execute("update [yx_board] set depth="&p_rs("depth")&"+1,orders="&p_rs("orders")&"+1,rootid="&p_rs("rootid")&",parentid="&newparentid&",parentstr='" & p_rs("parentstr") & ","& p_rs("boardid") &"' where boardid="&boardid)
  424. end if
  425. dim tempparentstr
  426. i=1
  427. '更新下属，同时获得移动总数i
  428. '如果有则更新下属版面数据
  429. '深度为原有深度加上当前所属论坛的深度
  430. set rs=yxbbs.execute("select * from [yx_board] where parentstr like '%"&parentstr & boardid&"%' order by orders")
  431. do while not rs.eof
  432. i=i+1
  433. if p_rs("parentstr")="0" then'如果其父级为类，那么其下属的版面数据
  434. tempparentstr=p_rs("boardid") & "," & replace(rs("parentstr"),parentstr,"")
  435. else
  436. tempparentstr=p_rs("parentstr") & "," & p_rs("boardid") & "," & replace(rs("parentstr"),parentstr,"")
  437. end if
  438. yxbbs.execute("update [yx_board] set depth=depth+"&p_rs("depth")&"-"&depth&"+1,orders="&p_rs("orders")&"+"&i&",rootid="&p_rs("rootid")&",parentstr='"&tempparentstr&"' where boardid="&rs("boardid"))
  439. rs.movenext
  440. loop
  441. rs.close
  442. dim tempparentid,ii
  443. tempparentid=newparentid
  444. if rootid=p_rs("rootid") then'在同一分类下移动
  445. '更新所指向的上级论坛版面数，i为本次移动过来的版面数
  446. '更新其父类版面数
  447. yxbbs.execute("update [yx_board] set child=child+"&i&" where (not parentid=0) and boardid="&tempparentid)
  448. for ii=1 to p_rs("depth")
  449. '得到其父类的父类的版面id
  450. set rs=yxbbs.execute("select parentid from [yx_board] where (not parentid=0) and boardid="&tempparentid)
  451. if not (rs.eof and rs.bof) then
  452. tempparentid=rs(0)
  453. '更新其父类的父类版面数
  454. yxbbs.execute("update [yx_board] set child=child+"&i&" where (not parentid=0) and boardid="&tempparentid)
  455. ''''yxbbs.execute("update [yx_board] set child=child+"&i&" where (not parentid=0) and boardid in　（）)
  456. end if
  457. next
  458. '更新其原父类版面数
  459. yxbbs.execute("update [yx_board] set child=child-"&i&" where (not parentid=0) and boardid="&parentid)
  460. '更新其原来所属论坛数据
  461. for ii=1 to depth
  462. '得到其原父类的父类的版面id
  463. set rs=yxbbs.execute("select parentid from [yx_board] where (not parentid=0) and boardid="&parentid)
  464. if not (rs.eof and rs.bof) then
  465. parentid=rs(0)
  466. '更新其原父类的父类版面数
  467. yxbbs.execute("update [yx_board] set child=child-"&i&" where (not parentid=0) and  boardid="&parentid)
  468. end if
  469. next
  470. else
  471. '更新所指向的上级论坛版面数，i为本次移动过来的版面数
  472. '更新其父类版面数
  473. yxbbs.execute("update [yx_board] set child=child+"&i&" where boardid="&tempparentid)
  474. for ii=1 to p_rs("depth")
  475. '得到其父类的父类的版面id
  476. set rs=yxbbs.execute("select parentid from [yx_board] where boardid="&tempparentid)
  477. if not (rs.eof and rs.bof) then
  478. tempparentid=rs(0)
  479. '更新其父类的父类版面数
  480. yxbbs.execute("update [yx_board] set child=child+"&i&" where  boardid="&tempparentid)
  481. end if
  482. next
  483. '更新其原父类版面数
  484. yxbbs.execute("update [yx_board] set child=child-"&i&" where boardid="&parentid)
  485. '更新其原父类的其它版面排序
  486. yxbbs.execute("update [yx_board] set orders=orders-"&i&" where rootid="&rootid&" and orders>"&orders)
  487. '更新其原来所属论坛数据
  488. for ii=1 to depth
  489. '得到其原父类的父类的版面id
  490. set rs=yxbbs.execute("select parentid from [yx_board] where boardid="&parentid)
  491. if not (rs.eof and rs.bof) then
  492. parentid=rs(0)
  493. '更新其原父类的父类版面数
  494. yxbbs.execute("update [yx_board] set child=child-"&i&" where boardid="&parentid)
  495. end if
  496. next
  497. end if
  498. p_rs.close:set p_rs=nothing
  499.   end if
  500. call suc("","论坛修改成功 !","board.asp")
  501. end sub
  503. sub delboard
  504. dim alltable,i,ii,depth,parentid,rootid,orders
  505. set rs=yxbbs.execute("select depth,parentid,rootid,orders,child from[yx_board] where boardid="&yxbbs.boardid)
  506. if rs.eof then 
  507. call goback("系统出错","不存在，论坛可能已经删除了 !")
  508. exit sub
  509. elseif rs(4)>0 then
  510. call goback("系统出错","该论坛含有属下论坛，不能删除 !")
  511. exit sub
  512. else
  513. depth=rs(0)
  514. parentid=rs(1)
  515. rootid=rs(2)
  516. orders=rs(3)
  517. end if
  518. rs.close
  519. alltable=split(yxbbs.bbstable(0),",")
  520. for i=0 to ubound(alltable)
  521. yxbbs.execute("delete from [yx_bbs"&alltable(i)&"] where boardid="&yxbbs.boardid&"")
  522. next
  524. set rs=yxbbs.execute("select topicid from[yx_topic] where boardid="&yxbbs.boardid&" and isvote ")
  525. do while not rs.eof
  526. yxbbs.execute("delete from [yx_topicvote] where topicid="&rs(0))
  527. yxbbs.execute("delete from [yx_topicvoteuser] where topicid="&rs(0))
  528. rs.movenext
  529. loop
  530. rs.close
  531. '删除主题记录
  532. yxbbs.execute("delete from[yx_topic] where boardid="&yxbbs.boardid)
  533. yxbbs.execute("delete from[yx_board] where boardid="&yxbbs.boardid)
  534. '更新其父类的版面数
  535. yxbbs.execute("update [yx_board] set child=child-1 where boardid="&parentid)
  536. '更新其父类的其它版面排序
  537. yxbbs.execute("update [yx_board] set orders=orders-1 where rootid="&rootid&" and orders>"&orders)
  538. '更新其所属论坛数据
  539. for ii=1 to depth
  540. '得到其父类的父类的版面id
  541. set rs=yxbbs.execute("select parentid from [yx_board] where boardid="&parentid)
  542. if not (rs.eof and rs.bof) then
  543. parentid=rs(0)
  544. '更新其父类的父类版面数
  545. yxbbs.execute("update [yx_board] set child=child-1 where boardid="&parentid)
  546. end if
  547. rs.close
  548. next
  549. call suc("","成功的删除论坛版面 (包括该论坛的所有帖子)!","board.asp")
  550. end sub
  552. sub classorders
  553. dim boardid
  554. set rs=yxbbs.execute("select boardid,boardname,rootid from[yx_board] where depth=0 order by rootid")
  555. if rs.eof then
  556. call goback("","论坛没有分类！请先<a href=?action=addclass> 添加分类</a>")
  557. exit sub
  558. end if
  559. %><form method=post style="margin:0" action="?action=saveclassorders">
  560.         <div class="ta">
  561. <div class="th jz">分类排序</div>
  562.        
  563.         <%
  564. do while not rs.eof
  565. response.write"<div class=""td1 h30"">&nbsp;"&rs(1)&"</div><div class=""td2 h30""><input name='boardid' type='hidden' value='"&rs(0)&"'><input name='rootid' type='hidden' value='"&rs(2)&"'><input type=text name='newrootid' value='"&rs(2)&"' size=4 ></div>"
  566. rs.movenext
  567. loop
  568. %><div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 修 改 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  569.         </div></form>
  571. <%rs.close
  572. end sub
  574. sub saveclassorders
  575. dim boardid,rootid,newrootid,temp,i
  576. temp=","
  577. for i=1 to request.form("boardid").count
  578. boardid = request.form("boardid")(i)
  579. rootid = request.form("rootid")(i)
  580. newrootid = request.form("newrootid")(i)
  581. if instr(temp,","&newrootid&",")>0 then 
  582. call goback("排序错误","各分类排序的数字不能一样!")
  583. exit sub
  584. end if
  585. temp=temp&newrootid&","
  586. if not isnumeric(boardid) or not isnumeric(newrootid) then
  587. call goback("排序错误","请用数字填写!")
  588. exit sub
  589. end if
  590. next
  591. for i=1 to request.form("boardid").count
  592. boardid = request.form("boardid")(i)
  593. rootid = request.form("rootid")(i)
  594. newrootid = request.form("newrootid")(i)
  595. if rootid<>newrootid then
  596. yxbbs.execute("update [yx_board]set rootid="&newrootid&" where boardid="&boardid)
  597. temp=boardid
  598. yxbbs.execute("update [yx_board] set rootid="&newrootid&" where parentstr like '%"&temp&"%' and rootid="&rootid&"")
  599. end if
  600. next
  601. call suc("","排序成功！","?")
  602. end sub
  603. sub addmaster(s,o,n)
  604. dim arr,oarr,i,sql
  605. dim gradenum,gradename,gradepic
  606. set rs=conn.execute("select gradenum,gradename,gradepic from yx_usergrade where classid = 3 order by userminpostnum desc")
  607. if not (rs.eof and rs.bof) then
  608. gradenum = rs(0)
  609. gradename = rs(1)
  610. gradepic = rs(2)
  611. end if
  612. randomize
  613. arr = split(s,"@@")
  614. oarr = split(o,"@@")
  615. set rs = server.createobject("adodb.recordset")
  616. for i = 0 to ubound(arr)
  617. sql = "select * from [yx_user] where name = '" & arr(i) & "'"
  618. rs.open sql,conn,1,3
  619. if rs.eof and rs.bof then
  620. call goback("",arr(i) &"这个用户还没有注册!")
  621. else
  622. if rs("classid") = 5 then
  623. rs("gradenum") = gradenum
  624. rs("classid") = 3
  625. rs.update
  626. end if
  627. end if
  628. rs.close
  629. next
  630. '判断原版主在其他版面是否还担任版主，如没有担任则撤换该用户职位。
  631. if n = 1 then
  632. dim iboardmaster
  633. dim usergrade, article
  634. iboardmaster = false
  635. for i = 0 to ubound(oarr)
  636. set rs = yxbbs.execute("select boardadmin from yx_board")
  637. do while not rs.eof
  638. if instr("|" & trim(rs(0)) & "|","|" & trim(oarr(i)) & "|") > 0 then
  639. iboardmaster = true
  640. exit do
  641. end if
  642. rs.movenext
  643. loop
  644. if not iboardmaster then
  645. set rs = yxbbs.execute("select id,classid,essaynum from [yx_user] where name='" & trim(oarr(i)) & "' or classid=3")
  646. if not (rs.eof and rs.bof) then
  647. 'if rs(1) > 2 then
  648. if not isnumeric(rs(2)) or rs(2) = "" then
  649. article = 0
  650. else
  651. article = cstr(rs(2))
  652. end if
  653. '取对应注册会员的等级
  654. set usergrade = yxbbs.execute("select top 1 gradenum,gradename,gradepic from yx_usergrade where userminpostnum <= " & article & " and not userminpostnum = -1 and classid = 5 order by userminpostnum desc")
  655. if not (usergrade.eof and usergrade.bof) then
  656. yxbbs.execute("update [yx_user] set gradenum="&usergrade(0)&",classid=5 where id="&rs(0))
  657. end if
  658. usergrade.close:set usergrade = nothing
  659. 'end if
  660. end if
  661. end if
  662. iboardmaster = false
  663. next
  664. end if
  665. set rs = nothing
  666. end sub
  668. sub boardunite
  669. %><form method=post style="margin:0" action="?action=saveboardunite">
  670.         <div class="ta">
  671.         <div class="th jz">论坛合并</div>
  672.         <div class="td w772">将论坛： 
  673.   <select size="1" name="boardid"><option value='0'>请选择原论坛</option><%=yxbbs.boardidlist(0,0)%></select> 合并到论坛： <select size="1" name="newboardid"><option value='0'>请选择目标论坛</option><%=yxbbs.boardidlist(0,0)%></select> 中 <input type="submit" onclick=checkclick('操作后将不能恢复！您确定要合并吗？') value=" 论坛合并 ">
  674. <br /><br /><b>注意事项：</b><font color=red>此操作不可恢复，请慎重操作！</font><br />
  675. 分类不能操作，不能和其属下的论坛合并。<br />
  676. 合并后原论坛(包括属下论坛)将被删除，所有帖子(包括属下论坛的帖子)将转移到指定的目标论坛中</div>
  677. <div style="clear: both;"></div></div></form>
  678. <%
  679. end sub
  681. sub saveboardunite
  682. dim boardid,newboardid,tempparentstr,tempparentid,rs1
  683. dim i,alltable
  684. dim parentstr,depth,parentid,child,rootid
  685. boardid=yxbbs.fun.getstr("boardid")
  686. newboardid=yxbbs.fun.getstr("newboardid")
  687. if boardid="" or newboardid="" then
  688. call goback("","请先指定论坛后再进行合并！")
  689. exit sub
  690. elseif boardid=newboardid then
  691. call goback("","同一个论坛不用合并了！")
  692. exit sub
  693. end if
  695. set rs=yxbbs.execute("select parentstr,boardid,depth,parentid,child,rootid from yx_board where boardid="&boardid)
  696. if rs(2)="0" then
  697. call goback("系统错误","分类不能做合并操作！")
  698. exit sub
  699. end if
  700. parentstr=rs(0) & "," & rs(1)
  701. parentid=rs(3)
  702. tempparentstr=rs(1)
  703. depth=rs(2)
  704. child=rs(4)+1
  705. rootid=rs(5)
  706. rs.close
  707. tempparentid=parentid
  708. '判断是否合并到下属论坛
  709. set rs=yxbbs.execute("select boardid from [yx_board] where boardid="&newboardid&" and parentstr like '%"&parentstr&"%'")
  710. if not (rs.eof and rs.bof) then
  711. call goback("","不能将论坛合并到其下属论坛中!")
  712. exit sub
  713. end if
  714. rs.close
  715. '得到全部下属论坛id
  716. i=0
  717. set rs=yxbbs.execute("select boardid from [yx_board] where rootid="&rootid&" and parentstr like '%"&parentstr&"%'")
  718. do while not rs.eof
  719. if i=0 then
  720. tempparentstr=rs(0)
  721. else
  722. tempparentstr=tempparentstr & "," & rs(0)
  723. end if
  724. i=i+1
  725. rs.movenext
  726. loop
  727. if i>0 then
  728. parentstr=tempparentstr & "," & boardid
  729. else
  730. parentstr=boardid
  731. end if
  732. '更新其原来所属论坛版面数
  733. yxbbs.execute("update [yx_board] set child=child-"&child&" where boardid="&tempparentid)
  734. '更新其原来所属论坛数据，排序相当于剪枝而不需考虑
  735. for i=1 to depth
  736. '得到其父类的父类的版面id
  737. set rs=yxbbs.execute("select parentid from [yx_board] where boardid="&tempparentid)
  738. if not (rs.eof and rs.bof) then
  739. tempparentid=rs(0)
  740. yxbbs.execute("update [yx_board] set child=child-"&child&" where boardid="&tempparentid)
  741. end if
  742. next
  743. '更新论坛帖子数据
  744. alltable=split(yxbbs.bbstable(0),",")
  745. for i=0 to ubound(alltable)
  746. yxbbs.execute("update [yx_bbs"&alltable(i)&"] set boardid="&newboardid&" where boardid in ("&parentstr&")")
  747. next
  748. yxbbs.execute("update [yx_topic] set boardid="&newboardid&" where boardid in ("&parentstr&")")
  749. '删除被合并论坛
  750. set rs=yxbbs.execute("select sum(essaynum),sum(topicnum),sum(todaynum) from [yx_board] where rootid="&rootid&" and boardid in ("&parentstr&")")
  751. yxbbs.execute("delete from [yx_board] where rootid="&rootid&" and boardid in ("&parentstr&")")
  752. '更新新论坛帖子计数
  753. yxbbs.execute("update [yx_board] set essaynum=essaynum+"&rs(0)&",topicnum=topicnum+"&rs(1)&",todaynum=todaynum+"&rs(2)&" where boardid ="&newboardid&"")
  754. '更新上级版块
  755. set rs1=yxbbs.execute("select depth,parentstr,boardid from [yx_board] where boardid="&newboardid)
  756. if rs1(0)>1 then
  757. parentstr=rs1(0)
  758. yxbbs.execute("update [yx_board] set essaynum=essaynum+"&rs(0)&",topicnum=topicnum+"&rs(1)&",todaynum=todaynum+"&rs(2)&" where boardid in ("&parentstr&")")
  759. end if
  760. rs1.close:set rs1=nothing
  761. rs.close
  762. call suc("","合并成功！已经将原论坛（包括属下）的所有帖子合并到目标论坛。","?")
  763. end sub
  764. sub ordersboard
  765. dim boardid,parentid,rootid,orders,parentstr,i,boardnum,p_rs,boardname
  766. boardid=yxbbs.boardid
  767. set rs=yxbbs.execute("select orders,parentid,parentstr,boardname from[yx_board] where boardid="&yxbbs.boardid)
  768. if rs.eof or rs.bof then
  769. call goback("系统出错！","该版面不存在，可能已经删除了！")
  770. exit sub
  771. end if
  772. orders=rs(0)
  773. parentid=rs(1)
  774. parentstr=rs(2)
  775.         
  776. rs.close
  777. '当版面为类时
  778. if parentid=0 then call goback("系统出错！","版面id出错。"):exit sub
  779. '得到其下属版面数
  780. parentstr=parentstr & ","
  781. boardnum=yxbbs.execute("select count(*) from [yx_board] where parentstr like '%"&parentstr & boardid&"%'")(0)
  782. if isnull(boardnum) then boardnum=1
  783. '获得父级信息
  784. set p_rs=yxbbs.execute("select * from [yx_board] where boardid="&parentid)
  785. '在获得移动过来的版面数后更新排序在指定论坛之后的论坛排序数据
  786. yxbbs.execute("update [yx_board] set orders=orders + "&boardnum&"+1  where rootid="&p_rs("rootid")&" and orders>"&p_rs("orders")&"")
  787. '更新当前版面数据
  788. yxbbs.execute("update [yx_board] set orders="&p_rs("orders")&"+1 where boardid="&boardid)
  789. dim tempparentstr
  790. i=1
  791. '更新下属，同时获得移动总数i
  792. '如果有则更新下属版面数据
  793. set rs=yxbbs.execute("select * from [yx_board] where parentstr like '%"&parentstr & boardid&"%' order by orders")
  794. do while not rs.eof
  795. i=i+1
  796. if p_rs("parentstr")="0" then'如果其父级为类，那么其下属的版面数据
  797. tempparentstr=p_rs("boardid") & "," & replace(rs("parentstr"),parentstr,"")
  798. else
  799. tempparentstr=p_rs("parentstr") & "," & p_rs("boardid") & "," & replace(rs("parentstr"),parentstr,"")
  800. end if
  801. yxbbs.execute("update [yx_board] set orders="&p_rs("orders")&"+"&i&",parentstr='"&tempparentstr&"' where boardid="&rs("boardid"))
  802. rs.movenext
  803. loop
  804. rs.close
  805. p_rs.close
  806. set p_rs=nothing
  807. call suc("","成功的将该版面置前!","?")
  808. response.end
  809. end sub
  811. sub passuser
  812. set rs=yxbbs.execute("select passuser,boardname from [yx_board] where boardid="&yxbbs.boardid&" and parentid<>0")
  813. if rs.eof then
  814. call goback("","此论坛的类型不是认证论坛，不能设置认证用户。")
  815. exit sub
  816. end if%>
  817. <form method=post style='margin:0' action="?action=savepassuser">
  818. <div class="ta">
  819.         <div class="th jz">修改论坛认证用户</div>
  820.         <div class="td1">所在论坛：</div>
  821.         <div class="td2"><input name="boardid" value="<%=yxbbs.boardid%>" type="hidden"><%=rs("boardname")%></div>
  822.         <div class="td1 h50"><b>通过认证的用户：</b><br />各用户之间用“|”隔开<br />请不要使用回车键enter</div>
  823.         <div class="td2 h50 w446"><textarea name="passuser" rows="2"><%=rs("passuser")%></textarea></div>
  824. <div style="clear: both;"></div><div class="tf"><input type="submit" value=" 提 交 "> &nbsp;&nbsp;<input type="reset" name="submit" value=" 重 置 "></div></div></form>
  825. <%rs.close
  826. end sub
  828. sub savepassuser
  829. dim passusers,boardid
  830. boardid=yxbbs.fun.getstr("boardid")
  831. passusers=trim(replace(request.form("passuser"),"'",""))
  832. passusers=replace(passusers,chr(10), "")
  833. passusers=replace(passusers,chr(13), "")
  834. yxbbs.execute("update [yx_board] set passuser='"&passusers&"' where boardid="&boardid&" and parentid<>0")
  835. cache.name="boardinfo"
  836. cache.clean()
  837. call suc("","成功的更新了该论坛的认证会员！","?")
  838. end sub
  839. %>