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

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

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

开发平台：

DOS

Basic.Asp：源码内容
  2. <!--#include file="check.asp"-->
  3. <%
  4. dim action,id
  5. id=request.querystring("id")
  6. if id="" then id=0
  7. response.write("<body>")
  8. select case request("action")
  9. case "config"
  10. config
  11. case "configsave"
  12.         configsave
  13. case "link"
  14.        link
  15. case "edit"
  16.        edit
  17. case "updatelink"
  18.        updatelink
  19. case "saveadd"
  20.        saveadd
  21. case "saveedit"
  22.        saveedit
  23. case "dellink"
  24.        dellink
  25. case "lockip"
  26.        lockip
  27. case "editip"
  28.        editip
  29. case "delip"
  30.        delip
  31. case "saveaddip"
  32.        saveaddip
  33. case "saveeditip"
  34.        saveeditip
  35. case "setad"
  36.        setad
  37. case "savead"
  38.        savead
  39. case "updatebbs"
  40.        updatebbs
  41. case "execlean"
  42. execlean
  43. case"updatebbsdate"
  44. updatebbsdate
  45. case"updatetopic"
  46. updatetopic
  47. case"updatealluser"
  48. updatealluser
  49. case"delwuiong"
  50. delwuiong
  51. case"boardupdate"
  52. boardupdate
  53. case else
  54.       main
  55. end select
  56. adminfooter()
  57. sub main%>
  59. <div class="ta"> 
  60. <div class="th jz">论坛系统信息</div> 
  61. <div class="td1" >总帖数：<span class="blue"><%=yxbbs.allessaynum%></span></div> 
  62. <div class="td2" >主题数：<span class="blue"><%=yxbbs.topicnum%></span></div> 
  63. <div class="td1" >注册人数：<span class="blue"><%=yxbbs.usernum%></span></div> 
  64. <div class="td2" >最新加入：<span class="blue"><%=yxbbs.newuser%></span></div> 
  65. <div class="td1" >创建时间：<span class="blue"><%=yxbbs.builddate%></span></div> 
  66. <div class="td2" >今日新帖：<span class="blue"><%=yxbbs.todaynum%></span></div> 
  67. <div class="td1" >目前在线人数：<span class="blue"><%=yxbbs.execute("select count(id) from[yx_online]")(0)%></span></div> 
  68. <div class="td2" >最大在线人数：<span class="blue"><%=yxbbs.maxonlinenum%> (<%=yxbbs.maxonlinetime%>)</span></div>
  69. <div style="clear: both;"></div>
  70. </div>
  71. <br />
  72. <%if object_install("scripting.filesystemobject")=true then%>
  73. <div class="ta"> 
  74. <div class="th jz">论坛空间占用情况</div> 
  75. <div class="td1" >数 据 库占用空间</div> 
  76. <div class="td2" >&nbsp;<%=getsize(0,"../data")%></div> 
  77. <div class="td1" >管理目录占用空间</div> 
  78. <div class="td2" >&nbsp;<%=getsize(0,"../"&yxbbs.bbssetting(2)&"")%></div>
  79. <div class="td1" >图片目录占用空间</div> 
  80. <div class="td2" >&nbsp;<%=getsize(0,"../images")%></div>  
  81. <div class="td1" >皮肤目录占用空间</div> 
  82. <div class="td2" >&nbsp;<%=getsize(0,"../skins")%></div> 
  83. <div class="td1" >上传文件占用空间</div> 
  84. <div class="td2" >&nbsp;<%=getsize(0,"../uploadfile")%></div> 
  85. <div class="td1" >函数目录占用空间</div> 
  86. <div class="td2" >&nbsp;<%=getsize(0,"../inc")%></div>
  87. <div class="td1" >论坛占用空间总计</div> 
  88. <div class="td2" >&nbsp;<%=getsize(0,"../")%></div> 
  89. <div style="clear: both;"></div> 
  90. </div>  
  91. <% end if %>
  92. <br />
  93. <div class="ta"> 
  94. <div class="th jz">服务器的有关参数</div> 
  95. <div class="td1" >服务器</div> 
  96. <div class="td2 w449" >&nbsp;<%response.write request.servervariables("local_addr")%></div> 
  97. <div class="td1" >服务器时间：</div> 
  98. <div class="td2 w449" >&nbsp;<%response.write now%></div>
  99. <div class="td1" >服务器版本：</div> 
  100. <div class="td2 w449" >&nbsp;<%response.write request.servervariables("server_software")%></div>  
  101. <div class="td1" >服务器操作系统：</div> 
  102. <div class="td2 w449" >&nbsp;<%if request.servervariables("os")="" then
  103. response.write "windows 2003"
  104. else
  105. response.write request.servervariables("os")
  106. end if%></div> 
  107. <div class="td1" >脚本超时时间：</div> 
  108. <div class="td2 w449" >&nbsp; <%response.write server.scripttimeout%></div> 
  109. <div class="td1" >服务器解译引擎：</div> 
  110. <div class="td2 w449" >&nbsp; <%response.write scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></div>
  111. <div class="td1" >fso文本读写</div> 
  112. <div class="td2 w449" >&nbsp;<%if object_install("scripting.filesystemobject")=false then
  113. session(yxbbs.cachename&"fso")="no"%>
  114.         <span class="b1 red">×</span> （可能导致部分功能不能使用）
  115.         <% else
  116. session(yxbbs.cachename&"fso")="" %>
  117.         <span class="b1">√</span> （支持）
  118.     <% end if %></div> 
  119. <div class="td1" >stream文件流：</div> 
  120. <div class="td2 w449" >&nbsp;<%if object_install("adodb.stream")=false then%>
  121.         <span class="b1 red">×</span> （不支持）
  122.         <% else %>
  123.         <span class="b1">√</span> （支持）
  124.     <% end if %></div> 
  125. <div class="td1" >aspjpeg组件支持：</div> 
  126. <div class="td2 w449" >&nbsp;<%if object_install("persits.jpeg")=false then%>
  127.         <span class="b1 red">×</span> （可能导致不能使用上传水印的功能）
  128.         <% else %>
  129.        <span class="b1">√</span> （支持）
  130.     <% end if %></div> 
  131. <div class="td1" >JMail组件支持：</div> 
  132. <div class="td2 w449" >&nbsp;<%if object_install("JMail.SMTPMail")=false then%>
  133.         <span class="b1 red">×</span> （可能导致不能使用邮件发送的功能）
  134.         <% else %>
  135.        <span class="b1">√</span> （支持）
  136.     <% end if %></div> 
  137. <div style="clear: both;"></div> 
  138. </div> 
  141. <%
  142. end sub
  143. '空间占用
  144. function getsize(f,drvpath)
  145. dim fso,d,size,showsize
  146. set fso=server.createobject("scripting.filesystemobject")
  147. drvpath=server.mappath(drvpath)
  148. if f=1 then
  149. set d=fso.getfile(drvpath)
  150. else
  151. set d=fso.getfolder(drvpath)
  152. end if
  153. size=d.size
  154. showsize=size & "&nbsp;byte"
  155. if size>1024 then
  156.    size=(size/1024)
  157.    showsize=formatnumber(size,2) & "&nbsp;KB"
  158. end if
  159. if size>1024 then
  160.    size=(size/1024)
  161.    showsize=formatnumber(size,2) & "&nbsp;MB"
  162. end if
  163. if size>1024 then
  164.    size=(size/1024)
  165.    showsize=formatnumber(size,2) & "&nbsp;GB"    
  166. end if
  167. getsize=showsize
  168. end function
  169. '组件检测
  170. function object_install(strclassstring)
  171.   on error resume next
  172.   object_install=false
  173.   dim xtestobj
  174.   err=0
  175.   set xtestobj=server.createobject(strclassstring)
  176.   if err=0 then object_install=true
  177.   set xtestobj=nothing
  178.   err=0
  179. end function
  181. '信息设置
  182. sub config
  183. dim info,rs
  184. set rs=yxbbs.execute("select * from [yx_config]")
  185. info=split(rs("info"),"|")
  186. %>
  188. <a name="inc"></a>
  189. <%call showtable("论坛参数设置","<center><a href=""#inc1"">上传设置</a> | <a href=""#inc2"">金钱参数设置</a> | <a href=""#inc3"">论坛显示设置</a> | <a href=""#inc4"">论坛用户设置</a> | <a href=""#inc5"">论坛系统设置</a></center>")%>
  190. <form method=post name=form style="margin:0" action="?action=configsave">
  191. <br />
  192. <div class="ta">
  193. <div class="th jz">论坛基本设置</div>
  194. <div class="td1 h22">论坛名称：</div>
  195. <div class="td2 h22"><input type="text" name="bbsname"  value="<%=rs("bbsname")%>"></div>
  196. <div class="td1 h22">论坛地址：</div>
  197. <div class="td2 h22"><input type="text" name="bbsurl" size="50" value="<%=rs("bbsurl")%>"></div>
  198. <div class="td1 h22">论坛管理目录：</div>
  199. <div class="td2 h22"><input type="text" name="info2" size="10" value="<%=info(2)%>">  <span class="red">*此处填写管理目录名称.</span></div>
  200. <div class="td1 h22">建站日期：</div>
  201. <div class="td2 h22"><input type="text" name="builddate" size="10"  value="<%=rs("builddate")%>"> (格式：yyyy-m-d)</td></div>
  202. <div class="td1 h22">关闭论坛：</div>
  203. <div class="td2 h22"><input type="radio" name="bbsclose" value="0" <%if not rs("bbsclose") then%>checked="true"<%end if%>> 开启  <input type="radio" name="bbsclose" value="1" <%if rs("bbsclose") then%>checked="true"<%end if%>> 关闭</div>
  205. <div class="td1 h65">关闭论坛显示信息：<br />支持html语法</div>
  206. <div class="td2 h65 w446"><textarea rows="3" name="closeinfo"><%=rs("closeinfo")%></textarea></div>
  207. <div class="td1 h65">论坛首页公告：<br />支持html语法</div>
  208. <div class="td2 h65 w446"><textarea rows="3" name="srule"><%=rs("srule")%></textarea></div>
  209. <div class="td1 h65">论坛版权信息：<br />支持html语法</div>
  210. <div class="td2 h65 w446"><textarea rows="3" name="copyright" ><%=rs("copyright")%></textarea></div>
  211. <div class="td1 h65">贴间广告信息：<br />支持html语法</div>
  212. <div class="td2 h65 w446"><textarea rows="3" name="google" ><%=rs("google")%></textarea></div>
  213. <div style="clear: both;"></div> 
  214. </div>
  216. <br />
  217. <a name="inc1"></a>
  218. <div class="ta">
  219. <div class="th jz">上传设置 <a href="#inc">top</a></div>
  220. <div class="td1 h22">是否允许上传头像：</div>
  221. <div class="td2 h22"><input type="radio" name="info18" value="0" <%if info(18)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info18" value="1" <%if info(18)="1" then%>checked="true"<%end if%>> 否 </div>
  222. <div class="td1 h22">上传头像类型(用@@分隔)：</div>
  223. <div class="td2 h22"><input type="text" name="uploadtype" size="50" value="<%=rs("uploadtype")%>"></div>
  224. <div class="td1 h22">头像上传大小限制：</div>
  225. <div class="td2 h22"><input type="text" name="info19" size="5" value="<%=info(19)%>"> kb</div>
  226. <div class="td1 h22">是否开启上传水印：</div>
  227. <div class="td2 h22"><input type="radio" name="info56" value="0" <%if info(56)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info56" value="1" <%if info(56)="1" then%>checked="true"<%end if%>> 否 </div>
  228. <div class="td1 h22">文字样式水印显示：</div>
  229. <div class="td2 h22"><input type="text" name="info57" size="20" value="<%=info(57)%>"></div>
  230. <div class="td1 h22">水印加盖模式：</div>
  231. <div class="td2 h22"><input type="radio" name="info58" value="0" <%if info(58)="0" then%>checked="true"<%end if%>> 文字 <input type="radio" name="info58" value="1" <%if info(58)="1" then%>checked="true"<%end if%>> 图片   *如选图片，请在images下放名为logobox.gif标志.</div>
  232. <div style="clear: both;"></div> 
  233. </div>
  235. <br />
  236. <a name="inc2"></a>
  237. <div class="ta">
  238. <div class="th jz">金钱参数设置 <a href="#inc">top</a></div>
  239. <div class="td1 h22">y币在您论坛的名称：</div>
  240. <div class="td2 h22"><input type="text" name="info23" size="4" value="<%=info(23)%>"></div>
  241. <div class="td1 h22">醒目标题需要金钱：</div>
  242. <div class="td2 h22 blue">加 <input type="text" name="info13" size="2" value="<%=info(13)%>"> 元</div>
  243. <div class="td1 h22">发送短信息需要金钱：</div>
  244. <div class="td2 h22 blue">加 <input type="text" name="info3" size="2" value="<%=info(3)%>"> 元</div>
  245. <div class="td1 h22">论坛发贴：</div>
  246. <div class="td2 h22 blue">加 <input type="text" name="info37" size="2" value="<%=info(37)%>"> 元</div>
  247. <div class="td1 h22">论坛回帖：</div>
  248. <div class="td2 h22 blue">加 <input type="text" name="info38" size="2" value="<%=info(38)%>"> 元</div>
  249. <div class="td1 h22">删除帖子：</div>
  250. <div class="td2 h22 red">减 <input type="text" name="info59" size="2" value="<%=info(59)%>"> 元  减 <input type="text" name="info60" size="2" value="<%=info(60)%>"> YB</div>
  251. <div class="td1 h22">论坛精华：</div>
  252. <div class="td2 h22 blue">加 <input type="text" name="info39" size="2" value="<%=info(39)%>"> 元&nbsp;&nbsp; 加 <input type="text" name="info40" size="2" value="<%=info(40)%>"> YB &nbsp;&nbsp;<span class="red">减 <input type="text" name="info41" size="2" value="<%=info(41)%>"> 元&nbsp;&nbsp;减 <input type="text" name="info42" size="2" value="<%=info(42)%>"> YB</span></div>
  253. <div class="td1 h22">论坛置顶：</div>
  254. <div class="td2 h22 blue">加 <input type="text" name="info43" size="2" value="<%=info(43)%>"> 元&nbsp;&nbsp; 加 <input type="text" name="info44" size="2" value="<%=info(44)%>"> YB &nbsp;&nbsp;<span class="red">减 <input type="text" name="info45" size="2" value="<%=info(45)%>"> 元&nbsp;&nbsp;减 <input type="text" name="info46" size="2" value="<%=info(46)%>"> YB</span></div>
  255. <div class="td1 h22">论坛区置顶：</div>
  256. <div class="td2 h22 blue">加 <input type="text" name="info47" size="2" value="<%=info(47)%>"> 元&nbsp;&nbsp; 加 <input type="text" name="info48" size="2" value="<%=info(48)%>"> YB &nbsp;&nbsp;<span class="red">减 <input type="text" name="info49" size="2" value="<%=info(49)%>"> 元&nbsp;&nbsp;减 <input type="text" name="info50" size="2" value="<%=info(50)%>"> YB</span></div>
  257. <div class="td1 h22">论坛总置顶：</div>
  258. <div class="td2 h22 blue">加 <input type="text" name="info51" size="2" value="<%=info(51)%>"> 元&nbsp;&nbsp; 加 <input type="text" name="info52" size="2" value="<%=info(52)%>"> YB &nbsp;&nbsp;<span class="red">减 <input type="text" name="info53" size="2" value="<%=info(53)%>"> 元&nbsp;&nbsp;减 <input type="text" name="info54" size="2" value="<%=info(54)%>"> YB</span></div>
  259. <div style="clear: both;"></div> 
  260. </div>
  262. <br />
  263. <a name="inc3"></a>
  264. <div class="ta">
  265. <div class="th jz">论坛显示设置 <a href="#inc">top</a></div>
  266. <div class="td1 h22">显示系统信息：</div>
  267. <div class="td2 h22"><input type="radio" name="info7" value="0" <%if info(7)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info7" value="1" <%if info(7)="1" then%>checked="true"<%end if%>> 否 *包括首页公告、快速登陆</div>
  268. <div class="td1 h22">显示在线信息：</div>
  269. <div class="td2 h22"><input type="radio" name="info10" value="0" <%if info(10)="0" then%>checked="true"<%end if%>> 是  <input type="radio" name="info10" value="1" <%if info(10)="1" then%>checked="true"<%end if%>> 否 </div>
  270. <div class="td1 h22">显示会员生日：</div>
  271. <div class="td2 h22"><input type="radio" name="info32" value="0" <%if info(32)="0" then%>checked="true"<%end if%>> 是  <input type="radio" name="info32" value="1" <%if info(32)="1" then%>checked="true"<%end if%>> 否 </div>
  272. <div class="td1 h22">显示论坛联盟：</div>
  273. <div class="td2 h22"><input type="radio" name="info8" value="0" <%if info(8)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info8" value="1" <%if info(8)="1" then%>checked="true"<%end if%>> 否 </div>
  274. <div class="td1 h22">显示执行时间：</div>
  275. <div class="td2 h22"><input type="radio" name="info33" value="1" <%if info(33)="1" then%>checked="true"<%end if%>> 以毫秒显示 <input type="radio" name="info33" value="2" <%if info(33)="2" then%>checked="true"<%end if%>> 以秒显示 <input type="radio" name="info33" value="0" <%if info(33)="0" then%>checked="true"<%end if%>> 不显示</div>
  276. <div style="clear: both;"></div> 
  277. </div>
  279. <br />
  280.   <a name="inc4"></a>
  281. <div class="ta">
  282. <div class="th jz">用户信息设置 <a href="#inc">top</a></div>
  283. <div class="td1 h22">是否审核注册用户：</div>
  284. <div class="td2 h22"><input type="radio" name="info34" value="0" <%if info(34)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info34" value="1" <%if info(34)="1" then%>checked="true"<%end if%>> 否 </div>
  285. <div class="td1 h22">自定义头衔级别 ：</div>
  286. <div class="td2 h22"><input type="text" name="info25" size="4" value="<%=info(25)%>"> 级</div>
  287. <div class="td1 h22">头像上传等级限制：</div>
  288. <div class="td2 h22"><input type="text" name="info35" size="4" value="<%=info(35)%>"> 级</div>
  289. <div class="td1 h22">文件上传等级限制：</div>
  290. <div class="td2 h22"><input type="text" name="info36" size="4" value="<%=info(36)%>"> 级 *如果想禁止上传，就设置21级</div>
  291. <div class="td1 h22">允许个人签名：</div>
  292. <div class="td2 h22"><input type="radio" name="info12" value="0" <%if info(12)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info12" value="1" <%if info(12)="1" then%>checked="true"<%end if%>> 否</div>
  293. <div class="td1 h22">游客查看上传资源 ：</div>
  294. <div class="td2 h22"><input type="radio" name="info55" value="1" <%if info(55)="1" then%>checked="true"<%end if%>> 是 <input type="radio" name="info55" value="0" <%if info(55)="0" then%>checked="true"<%end if%>> 否</div>
  295. <div class="td1 h22">允许新用户注册：</div>
  296. <div class="td2 h22"><input type="radio" name="info0" value="0" <%if info(0)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info0" value="1" <%if info(0)="1" then%>checked="true"<%end if%>> 否</div>
  297. <div class="td1 h22">注册发送留言：</div>
  298. <div class="td2 h22"><input type="radio" name="info5" value="0" <%if info(5)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info5" value="1" <%if info(5)="1" then%>checked="true"<%end if%>> 否</div>
  299. <div class="td1 h65">注册发送留言内容</div>
  300. <div class="td2 h65 w446"><textarea rows="3" name="regautosms"><%=rs("regautosms")%></textarea> </div>
  301. <div class="td1 h22">同一来源2次注册间隔：</div>
  302. <div class="td2 h22"><input type="text" name="info28" size="4" value="<%=info(28)%>" onkeypress='event.returnvalue=(event.keycode >= 48) && (event.keycode <= 57);'> 分钟 <span class="red">*如果不想使用这项功能, 请设置为0</span></div>
  303. <div class="td1 h22">同一来源2次登陆间隔：</div>
  304. <div class="td2 h22"><input type="text" name="info29" size="4" value="<%=info(29)%>"> 分钟 <span class="red">*同上</span></div>
  305. <div class="td1 h22">发贴时限：</div>
  306. <div class="td2 h22"><input type="text" name="info30" size="4" value="<%=info(30)%>"> 秒&nbsp;&nbsp; <span class="red">&nbsp;*同上</span></div>
  307. <div class="td1 h22">用户编辑帖子时间：</div>
  308. <div class="td2 h22"><input type="text" name="info31" size="4" value="<%=info(31)%>"> 分钟  <span class="red">*同上</span></div>
  309. <div style="clear: both;"></div> 
  310. </div>
  312. <br />
  313. <a name="inc5"></a>
  314. <div class="ta">
  315. <div class="th jz">论坛系统设置 <a href="#inc">top</a></div>
  316. <div class="td1 h22">Smtp服务器：</div>
  317. <div class="td2 h22"><input type="text" name="info9"  value="<%=info(9)%>"></div>
  318. <div class="td1 h22">Smtp用户名：</div>
  319. <div class="td2 h22"><input type="text" name="info20"  value="<%=info(20)%>"></div>
  320. <div class="td1 h22">Smtp密码：</div>
  321. <div class="td2 h22"><input type="text" name="info21"  value="<%=info(21)%>"></div>
  322. <div class="td1 h22">是否开启防盗链 ：</div>
  323. <div class="td2 h22"><input type="radio" name="info61" value="0" <%if info(61)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info61" value="1" <%if info(61)="1" then%>checked="true"<%end if%>> 否</div>
  324. <div class="td1 h22">是否开启附件显示 ：</div>
  325. <div class="td2 h22"><input type="radio" name="info22" value="0" <%if info(22)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info22" value="1" <%if info(22)="1" then%>checked="true"<%end if%>> 否</div>
  326. <div class="td1 h22">版主继承：</div>
  327. <div class="td2 h22"><input type="radio" name="info1" value="0" <%if info(1)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info1" value="1" <%if info(1)="1" then%>checked="true"<%end if%>> 否</div>
  328. <div class="td1 h22">登录验证码：</div>
  329. <div class="td2 h22"><input type="radio" name="info6" value="0" <%if info(6)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info6" value="1" <%if info(6)="1" then%>checked="true"<%end if%>> 否</div>
  330. <div class="td1 h22">论坛在线人数统计超时：</div>
  331. <div class="td2 h22"><input type="text" name="info27" size="5" value="<%=info(27)%>"> 分钟 </div>
  332. <div class="td1 h22">帖子列表显New标志取消：</div>
  333. <div class="td2 h22"><input type="text" name="info4" size="5" value="<%=info(4)%>"> 分钟</div>
  334. <div class="td1 h22">论坛分页显示条数：</div>
  335. <div class="td2 h22"><input type="text" name="info26" size="5" value="<%=info(26)%>"> 条</div>
  336. <div class="td1 h22">成为热帖的最低人气值：</div>
  337. <div class="td2 h22"><input type="text" name="info24" size="5" value="<%=info(24)%>"> 条</div>
  338. <div class="td1 h22">论坛头像个数：</div>
  339. <div class="td2 h22"><input type="text" name="info14" size="5" value="<%=info(14)%>"> 个</div>
  340. <div class="td1 h22">头像最大寸尺：</div>
  341. <div class="td2 h22"><input type="text" name="info15" size="5" value="<%=info(15)%>"> 像素</div>
  342. <div class="td1 h22">头像默认寸尺：</div>
  343. <div class="td2 h22"><input type="text" name="info17" size="5" value="<%=info(17)%>">×<input type="text" name="info16" size="5" value="<%=info(16)%>"> 高×宽(像素)</div>
  344. <div class="td1 h22">禁止注册的用户名(用@@分隔)：</div>
  345. <div class="td2 h22"><input type="text" size="70" name="badname" value="<%=rs("badname")%>"></div>
  346. <div class="td1 h22">帖子过滤脏字(用@@分隔)：</div>
  347. <div class="td2 h22"><input type="text" size="70" name="badessay" value="<%=rs("badessay")%>"></div>
  348. <div style="clear: both;"></div> 
  349. <div class="tf jz w770"><input type="submit" value="确定修改"></div>
  350. </div>
  351. </form>
  352. <%
  353. rs.close 
  354. end sub
  356. sub configsave
  357. dim bbsname,bbsurl,bbsclose,closeinfo,srule,copyright,i,temp,uploadtype,builddate,badname,badessay,regautosms,google
  358. temp=""
  359. for i=0 to 61
  360. if i=0 or i=1 then
  361. if yxbbs.fun.getstr("info"&i)="" then
  362. call goback("","")
  363. exit sub
  364. end if
  365. if not yxbbs.fun.isinteger(yxbbs.fun.getstr("info"&i)) then
  366. call goback("","一些参数必须填为正整数，否则论坛不能正常运行。")
  367. exit sub
  368. end if
  369. end if
  370. temp=temp&yxbbs.fun.getstr("info"&i)&"|"
  371. next
  372. bbsname=yxbbs.fun.getstr("bbsname")
  373. bbsurl=yxbbs.fun.getstr("bbsurl")
  374. bbsclose=yxbbs.fun.getstr("bbsclose")
  375. closeinfo=yxbbs.fun.getstr("closeinfo")
  376. copyright=yxbbs.fun.getstr("copyright")
  377. builddate=yxbbs.fun.getstr("builddate")
  378. uploadtype=yxbbs.fun.getstr("uploadtype")
  379. badname=yxbbs.fun.getstr("badname")
  380. badessay=yxbbs.fun.getstr("badessay")
  381. regautosms=yxbbs.fun.getstr("regautosms")
  382.         srule=yxbbs.fun.getstr("srule")
  383. google=yxbbs.fun.getstr("google")
  384.     yxbbs.execute("update [yx_config] set bbsname='"&bbsname&"',bbsurl='"&bbsurl&"',bbsclose="&bbsclose&",closeinfo='"&closeinfo&"',copyright='"&copyright&"',info='"&temp&"',uploadtype='"&uploadtype&"',builddate='"&builddate&"',badname='"&badname&"',badessay='"&badessay&"',regautosms='"&regautosms&"',srule='"&srule&"',google='"&google&"'")
  385. call suc("修改成功","论坛名称以及其他参数修改成功","basic.asp?action=config")
  386. cache.name="config"
  387. cache.clean()
  388. end sub
  390. '联盟
  391. sub link
  392. dim rs,i%>
  393. <form method=post name=form style='margin:0' action=?action=saveadd>
  394. <div class="ta">
  395. <div class="th jz">添加论坛联盟</div>
  396. <div class="td1 h22">论坛名称：</div>
  397. <div class="td2 h22"><input type="text" name="bbsname" size="20"></div>
  398. <div class="td1 h22">论坛地址：</div>
  399. <div class="td2 h22"><input type="text" name="url" size="38"></div>
  400. <div class="td1 h22">论坛图片：</div>
  401. <div class="td2 h22"><input type="text" name="pic" size="38">(可留空)</div>
  402. <div class="td1 h22">论坛说明：</div>
  403. <div class="td2 h22"><input type="text" name="readme" size="38">(可留空)</div>
  404. <div class="td1 h22">图片显示：</div>
  405. <div class="td2 h22"><input type="radio" name="ispic" value="yes"  checked="true">  是 <input type="radio" name="ispic" value="no" > 否</div>
  406. <div style="clear: both;"></div><div class="tf jz w770"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  407. </div></form>
  409. <br />
  410. <form method=post name=form  action=?action=updatelink>
  411. <div class="ta">
  412. <div class="th1 jz w231">论坛联盟信息</div>
  413. <div class="th1 jz w87">排序</div>
  414. <div class="th1 jz w231">显示图片</div>
  415. <div class="th1 jz w231">操作</div>
  416. <%
  417. i=0
  418. set rs=yxbbs.execute("select id,ispic,orders,bbsname,url,readme from[yx_link] order by orders")
  419. do while not rs.eof
  420. i=i+1
  421. %>
  422. <div class="td3 w219 jz"><a href="<%=rs("url")%>" target="_blank" title="<%=rs("readme")%>"><%=rs("bbsname")%></a></div>
  423.         <div class="td3 w87  jz"><input name="id" value="<%=rs("id")%>" type="hidden"><input type="text" name="orders" value="<%=rs("orders")%>" size="2"></div>
  424.         <div class="td3 w219 jz"><input type="radio" name="ispic<%=i%>" value="yes" <%if rs("ispic") then%> checked="true" <%end if%>> 是 <input type="radio" name="ispic<%=i%>" value="no" <%if not rs("ispic") then%> checked="true" <%end if%>> 否</div>
  425. <div class="td3 w219 jz"><a href="?action=edit&id=<%=rs("id")%>"><img src="../images/edit.gif" border="0" align="absmiddle" /> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="?action=dellink&id=<%=rs("id")%>"><img src="../images/del.gif" width="18" height="18" border="0" align="absmiddle"  /> 删除</a></div>
  426. <%rs.movenext
  427. loop
  428. rs.close
  429. %>
  430. <div style="clear: both;"></div><div class="tf w770 jz" ><input type="submit" value=" 更 新 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div></div></form>
  431. <%
  432. end sub
  434. sub edit
  435. set rs=yxbbs.execute("select id,orders,ispic,pic,bbsname,url,readme from[yx_link]where id="&id&"")
  436. if rs.eof then
  437. call goback("这条论坛联盟不存在！")
  438. exit sub
  439. end if
  440. %>
  441. <form method=post name=form style='margin:0' action=?action=saveedit>
  442. <div class="ta">
  443. <div class="th jz">修改论坛联盟</div>
  444. <div class="td1 h22">论坛名称：</div>
  445. <div class="td2 h22"><input name="id" value="<%=rs("id")%>" type="hidden"><input type="text" name="bbsname" size="20" value="<%=rs("bbsname")%>"></div>
  446. <div class="td1 h22">论坛地址：</div>
  447. <div class="td2 h22"><input type="text" name="url" size="38" value="<%=rs("url")%>"></div>
  448. <div class="td1 h22">论坛图片：</div>
  449. <div class="td2 h22"><input type="text" name="pic" size="38" value="<%=rs("pic")%>"></div>
  450. <div class="td1 h22">论坛说明：</div>
  451. <div class="td2 h22"><input type="text" name="readme" size="38" value="<%=rs("readme")%>"></div>
  452. <div class="td1 h22">图片显示：</div>
  453. <div class="td2 h22"><input type="radio" name="ispic" value="yes" <%if rs("ispic") then%> checked="true" <%end if%>>  是 <input type="radio" name="ispic" value="no" <%if not rs("ispic") then%> checked="true" <%end if%>> 否</div>
  454. <div style="clear: both;"></div><div class="tf jz w770"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  455. </div> </form>
  456. <%rs.close
  457. end sub
  459. sub updatelink
  460. dim id,i,orders,ispic
  461. for i=1 to request.form("id").count
  462. id = replace(request.form("id")(i),"'","")
  463. orders = replace(request.form("orders")(i),"'","")
  464. ispic= replace(request.form("ispic"&i&""),"'","")
  465. if not isnumeric(id) or not isnumeric(orders) then
  466. call goback("","请用数字填写!")
  467. exit sub
  468. end if
  469. yxbbs.execute("update [yx_link]set orders="&orders&",ispic="&ispic&" where id="&id&"")
  470. next
  471. cache.name="link_list":cache.clean()
  472. call suc("","更新联盟信息成功！","basic.asp?action=link")
  473. end sub
  475. sub saveadd
  476. dim bbsname,url,pic,readme,orders,ispic
  477. bbsname=yxbbs.fun.getstr("bbsname")
  478. url=yxbbs.fun.ubbg(yxbbs.fun.getstr("url"))
  479. pic=yxbbs.fun.getstr("pic")
  480. readme=yxbbs.fun.getstr("readme")
  481. ispic=yxbbs.fun.getstr("ispic")
  482. if bbsname=""  or url=""  then
  483. call goback("","")
  484. exit sub
  485. elseif not yxbbs.fun.checkname(bbsname) then
  486. call goback("","请不要使用了非法字符")
  487. exit sub
  488. end if
  489. orders=yxbbs.execute("select count(id) from[yx_link]")(0)
  490. orders=int(orders+1)
  491. yxbbs.execute("insert into[yx_link](bbsname,url,pic,readme,orders,ispic)values('"&bbsname&"','"&url&"','"&pic&"','"&readme&"',"&orders&","&ispic&")")
  492. cache.name="link_list":cache.clean()
  493. call suc("","添加论坛联盟成功！","basic.asp?action=link")
  494. end sub
  496. sub saveedit
  497. dim bbsname,url,pic,readme,id,ispic
  498. id=yxbbs.fun.getstr("id")
  499. bbsname=yxbbs.fun.getstr("bbsname")
  500. url=yxbbs.fun.ubbg(yxbbs.fun.getstr("url"))
  501. pic=yxbbs.fun.getstr("pic")
  502. readme=yxbbs.fun.getstr("readme")
  503. ispic=yxbbs.fun.getstr("ispic")
  504. if bbsname=""  or url=""  then
  505. call goback("","")
  506. exit sub
  507. elseif not yxbbs.fun.checkname(bbsname) then
  508. call goback("","请不要使用了非法字符")
  509. exit sub
  510. end if
  511. yxbbs.execute("update [yx_link]set url='"&url&"',pic='"&pic&"',bbsname='"&bbsname&"',readme='"&readme&"',ispic="&ispic&" where id="&id&"")
  512. cache.name="link_list":cache.clean()
  513. call suc("","修改论坛联盟成功！","basic.asp?action=link")
  514. end sub
  516. sub dellink
  517. dim id
  518. id=request.querystring("id")
  519. if  not isnumeric(id) then
  520. call goback("","提交的参数不正确！")
  521. else
  522. yxbbs.execute("delete from [yx_link] where id="&id&"")
  523. cache.name="link_list":cache.clean()
  524. call suc("","删除论坛联盟成功！","basic.asp?action=link")
  525. end if
  526. end sub
  528. sub lockip%>
  529. <form method=post name=form style='margin:0' action=?action=saveaddip>
  530. <div class="ta"> 
  531. <div class="th jz">ip封锁</div> 
  532. <div class="td1 h22">起始ip：</div> 
  533. <div class="td2 h22">&nbsp;<input name='startip' type='text'></div> 
  534. <div class="td1 h22">结束ip：</div> 
  535. <div class="td2 h22">&nbsp;<input name='endip' type='text'> *封锁单个ip时不必填写</div> 
  536. <div class="td1 h22">封禁说明：</div> 
  537. <div class="td2 h22">&nbsp;<input name='readme' type='text' style="width:90%"></div> 
  538. <div style="clear: both;"></div><div class="tf w770 jz"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  539. </div></form><br />
  542. <div class="ta">
  543. <div class="th jz">已经被封的ip记录</div>
  544. <div class="td3 jz w231">网段</div><div class="td3 jz w231">说明</div><div class="td3 jz w291">操作</div>
  545. <% 
  546. set rs=yxbbs.execute("select startip,endip,readme,id from [yx_lockip]")
  547. if rs.eof then
  548. response.write"<div style=""clear: both;""></div><div class=""tf jz w770"" >没有记录</div>"
  549. else
  550. do while not rs.eof
  551.                response.write"<div class=""td3 jz w231"">"&yxbbs.fun.ipdecode(rs("startip"))&" - "&yxbbs.fun.ipdecode(rs("endip"))&"</div><div class=""td3 jz w231"">&nbsp;"&rs("readme")&"</div><div class=""td3 jz w291""><a href=?action=editip&id="&rs("id")&"><img src=../images/edit.gif border=0 align='absmiddle'  /> 修改</a> <a href=?action=delip&id="&rs("id")&"><img src=../images/del.gif border='0' align='absmiddle'  /> 删除</a></div><br />"
  552. rs.movenext
  553. loop
  554. end if
  555. rs.close
  556. %>
  557. <div style="clear: both;"></div></div>
  558. <%end sub
  560. sub editip
  561. set rs=yxbbs.execute("select startip,endip,readme,id from[yx_lockip] where id="&id&"")
  562. if rs.eof then
  563. call goback("","记录不存在"):exit sub
  564. end if
  565. %>
  566. <form method=post name=form style='margin:0' action=?action=saveeditip>
  567. <div class="ta"> 
  568. <div class="th jz">ip封锁</div> 
  569. <div class="td1 h22" >起始ip：</div> 
  570. <div class="td2 h22" >&nbsp;<input name="id" value="<%=rs("id")%>" type="hidden"><input name='startip' type='text' value="<%=yxbbs.fun.ipdecode(rs("startip"))%>"></div> 
  571. <div class="td1 h22" >结束ip：</div> 
  572. <div class="td2 h22" >&nbsp;<input name='endip' type='text' value="<%=yxbbs.fun.ipdecode(rs("endip"))%>"> *封锁单个ip时不必填写</div> 
  573. <div class="td1 h22" >封禁说明：</div> 
  574. <div class="td2 h22" >&nbsp;<input name='readme' type='text' style="width:90%" value="<%=rs("readme")%>"></div> 
  575. <div style="clear: both;"></div><div class="tf w770 jz" ><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></div>
  576. </div></form>
  577. <%
  578. rs.close
  579. end sub
  581. sub delip
  582. dim id
  583. id=int(request("id"))
  584. yxbbs.execute("delete from[yx_lockip] where id="&id&"")
  585. cache.name="ipdata"
  586. cache.clean()
  587. response.redirect "?action=lockip"
  588. end sub
  590. sub saveaddip
  591. dim startip,endip,readme
  592. startip=yxbbs.fun.getstr("startip")
  593. endip=yxbbs.fun.getstr("endip")
  594. readme=yxbbs.fun.getstr("readme")
  595. if startip="" then
  596. call goback("","")
  597. exit sub
  598. end if
  599. if endip="" then endip=startip
  600. yxbbs.execute("insert into [yx_lockip](startip,endip,readme)values("&yxbbs.fun.ipencode(startip)&","&yxbbs.fun.ipencode(endip)&",'"&readme&"')")
  601. call suc("操作成功","成功添加封锁ip纪录!","?action=lockip")
  602. cache.name="ipdata"
  603. cache.clean()
  604. end sub
  606. sub saveeditip
  607. dim id,startip,endip,readme
  608. id=yxbbs.fun.getstr("id")
  609. startip=yxbbs.fun.getstr("startip")
  610. endip=yxbbs.fun.getstr("endip")
  611. readme=yxbbs.fun.getstr("readme")
  612. if startip="" then
  613. call goback("",""):exit sub
  614. end if
  615. if endip="" then endip=startip
  616. yxbbs.execute("update [yx_lockip]set startip="&yxbbs.fun.ipencode(startip)&",endip="&yxbbs.fun.ipencode(endip)&",readme='"&readme&"' where id="&id&"")
  617. call suc("","修改封锁ip成功!","?action=lockip")
  618. cache.name="ipdata"
  619. cache.clean()
  620. end sub
  621. sub setad
  622. %>
  624. <form method=post action=?action=savead>
  625. <div class="ta"> 
  626. <div class="th jz">广告管理</div> 
  627. <div class="td1 jz h70" style="float: left;text-align: left;">论坛已有广告的显示效果：</div> 
  628. <div class="td2 jz h70" style="float: left;text-align: left;">论坛已有广告的代码：<br />清空代码即删除广告。<br /><font color=red>注意：此处仅支持简单的文字图片连接，不支持google adsense等广告!</div> 
  629. <%
  630. dim fso1,openfile,tmpstr,tmp,ad_num,ad_i,ad_tmp
  631. set fso1 = server.createobject("scripting.filesystemobject")
  632. Set openfile=fso1.OpenTextFile(Server.MapPath("../inc/ads.js"))
  633. tmpstr=openfile.readall
  634. tmp=split(tmpstr,chr(13)&chr(10))
  635. ad_num=replace(tmp(1),"a = ","")
  636. ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
  637. for ad_i=1 to ad_num
  638. ad_tmp=replace(tmp(ad_i+8),"b["&ad_i&"].under =","")
  639. ad_tmp=replace(ad_tmp,"'","")
  640. response.write"<div class=""td1 h75"">"&ad_tmp&"</div><div class=""td2 jz h75""><textarea  rows=5 cols=60 name=ad_v"&ad_i&" style='font-family: 宋体; font-size: 9pt'>"&ad_tmp&"</textarea></div>"
  641. next
  642. openfile.close
  643. set fso1=nothing
  644. %>  
  645. <div class="td1 h75">增加广告：</div> 
  646. <div class="td2 jz h75"><textarea row=3 cols=60 name=ad_v<%=ad_num+1%> rows="5" style="font-family: 宋体; font-size: 9pt"></textarea></div> 
  647. <div style="clear: both;"></div><div class="tf jz"> <input type="submit" value="     确  认  修  改     " name="b1"></div>
  648. </div></form>
  651. <%
  652. end sub
  653. sub savead
  654. dim adv_num,ad_msg,fso1,OpenFile,tmpstr,tmp,ad_num,ad_i,ad_tmp
  655. set fso1 = server.createobject("scripting.filesystemobject")
  656. Set openfile=fso1.OpenTextFile(Server.MapPath("../inc/ads.js"))
  657. tmpstr=openfile.readall
  658. tmp=split(tmpstr,chr(13)&chr(10))
  659. ad_num=replace(tmp(1),"a = ","")
  660. ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
  661. openfile.close
  662. set fso1=nothing
  663. adv_num=0
  664. for ad_i=1 to ad_num+1
  665. ad_tmp=replace(request.form("ad_v"&ad_i&""),"'","")
  666. if trim(ad_tmp)<>"" or isnull(ad_tmp)then
  667. adv_num=adv_num+1
  668. ad_msg=ad_msg&"b["&adv_num&"].under ='"&ad_tmp&"'"&vbcrlf
  669. end if
  670. next
  671. dim objFSO,objname
  672. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  673. Set objname=objFSO.CreateTextFile(Server.MapPath("../inc/ads.js"),True)
  674. objname.Write"<!--"&vbcrlf&"a = "&adv_num&";if(a==0){a=1}"&vbcrlf&"var slump = Math.random();"&vbcrlf&"var talet = Math.round(slump * (a-1))+1;"&vbcrlf&"function create() { "&vbcrlf&"this.under = '' "&vbcrlf&"}"&vbcrlf&"b = new Array() "&vbcrlf&"for(var i=1; i<=a; i++) { b[i] = new create() } "&vbcrlf&ad_msg&"var visa = """";"&vbcrlf&"document.write(b[talet].under); "&vbcrlf&"//-->"
  675. objname.close
  676. set objfso=nothing
  677. response.redirect"?action=setad"
  678. end sub
  680. sub updatebbs
  681. %>
  683. <div class="ta">
  684. <div class="th jz">论坛整理修复</div>
  685. <div class="tf h30"><b>注意事项：</b>论坛整理中的各项运行都需要消耗比较多的资源<br />所以请你选择论坛访问人数较少的时候进行整理，或者在整理过程中可以先暂时关闭论坛</div>
  686. <div class="td3 w152 h40">更新空间缓存</div><div class="td3 w470 h40" style="text-align: left;">论坛采用了服务器缓存技术，一些改动有时不会马上生效，所以您需要更新空间的缓存才能看到效果！本站现使用缓存<font color=red><%=application.contents.count%></font>个</div><div class="td3 w131 h40 jz"><input value="开始更新" type="button" onclick=window.location.href='?action=execlean'></div>
  687. <div class="td3 w152 h40">论坛系统整理</div><div class="td3 w470 h40" style="text-align: left;">重新计算总主题数、总帖数、今日帖数、用户数、新注册用户等<br /> 建议每隔一段时间运行一次。</div><div class="td3 w131 h40 jz"><input value="开始整理" type="button" onclick=window.location.href='?action=updatebbsdate'></div>
  688. <div class="td3 w152 h40">论坛版面整理</div><div class="td3 w470 h40" style="text-align: left;">各版面总帖数、主题数、今日帖数、各版版主、最后回复等.建议每隔一段时间运行一次。清理的过程中请不要刷新和关闭！</div><div class="td3 w131 h40 jz"><input value="开始整理" type="button" onclick=window.location.href='?action=boardupdate'></div>
  689. <div class="td3 w152 h40">论坛垃圾清理</div><div class="td3 w470 h40" style="text-align: left;">清理无效版主、无效帖子、无效主题、无效帖子、无效投票、元效留言、无效用户帖等.清理的过程中请不要刷新和关闭！</div><div class="td3 w131 h40 jz"><input value="开始清理" type="button" onclick=window.location.href='?action=delwuiong'></div>
  690. <div class="td3 w152 h40">修复主题帖数</div><div class="td3 w470 h40" style="text-align: left;">重新整理计算每个主题帖的回复帖数、最后回复信息等<br />如果论坛帖子非常多，整理过程可能将消耗大量资源。</div><div class="td3 w131 h40 jz"><input value="开始整理" type="button" onclick=window.location.href='?action=updatetopic'></div>
  691. <div class="td3 w152 h40">修复用户信息</div><div class="td3 w470 h40" style="text-align: left;">各版面总帖数、主题数、今日帖数、各版版主、最后回复等.建议每隔一段时间运行一次。清理的过程中请不要刷新和关闭！</div><div class="td3 w131 h40 jz"><input value="开始整理" type="button" onclick=window.location.href='?action=updatealluser'></div>
  692. <div style="clear: both;"></div></div>
  693. <%
  694. end sub
  696. sub execlean
  697. application.contents.removeall
  698. call suc("","更新缓存成功","?action=updatebbs")
  699. end sub
  701. sub updatebbsdate
  702. dim essaynum,topicnum,newuser,todaynum,usernum,alltable,i
  703. usernum=yxbbs.execute("select count(id) from[yx_user]")(0)
  704. newuser=yxbbs.execute("select top 1 name from [yx_user] order by id desc")(0)
  705. alltable=split(yxbbs.bbstable(0),",")
  706. for i=0 to ubound(alltable)
  707. essaynum=essaynum+yxbbs.execute("select count(bbsid) from[yx_bbs"&alltable(i)&"] where isdel=false")(0)
  708. todaynum=todaynum+yxbbs.execute("select count(bbsid) from[yx_bbs"&alltable(i)&"] where isdel=false and datediff('d',lasttime,'"&yxbbs.nowbbstime&"')<1")(0)
  709. next
  710. topicnum=yxbbs.execute("select count(topicid) from[yx_topic]")(0)
  711. yxbbs.execute("update [yx_config] set usernum="&usernum&",allessaynum="&essaynum&",topicnum="&topicnum&",todaynum="&todaynum&",newuser='"&newuser&"'")
  712. call suc("论坛系统整理成功","论坛系统整理成功，整理后：<li>总帖数："&essaynum&" | 主题数："&topicnum&" | 今日帖数："&todaynum&" | 注册用户数："&usernum&" | 最新注册用户："&newuser&"","?action=updatebbs")
  713. cache.name="config"
  714. cache.clean()
  715. end sub
  717. sub updatetopic
  718. dim caption,content,id1,id2,lastreply,go,replynum,alltable,i,temp,maxid
  719. id1=yxbbs.fun.getstr("id1")
  720. id2=yxbbs.fun.getstr("id2")
  721. maxid=yxbbs.execute("select max(topicid)from [yx_topic]")(0)
  722. if id1="" then
  723. id1=1:id2=100
  724. go= " 开始整理 "
  725. else
  726. if not isnumeric(id1) or not isnumeric(id2) then call goback("","<li>请用数字填写！"):exit sub
  727. set rs=yxbbs.execute("select topicid,sqltableid from [yx_topic] where topicid>="&id1&" and topicid<="&id2&"")
  728. if rs.eof then
  729. if int(id2) < int(maxid) then
  730. call goback("数据据中没有数据","在id：<font color=red>"&id1&"</font> 至 <font color=red>"&id2&"</font> 之间不存在帖子，请把结束id的数字填大一些。")
  731. else
  732. call suc("整理结束","全部整理成功!","?action=updatebbs")
  733. end if
  734. exit sub
  735. end if
  736. alltable=split(yxbbs.bbstable(0),",")
  737. do while not rs.eof
  738. for i=0 to ubound(alltable)
  739. if int(rs(1))=int(alltable(i)) then
  740. replynum=yxbbs.execute("select count(bbsid) from [yx_bbs"&rs(1)&"] where isdel=false and replytopicid="&rs(0)&"")(0)
  741. yxbbs.execute("update [yx_topic] set replynum="&replynum&" where topicid="&rs(0)&"")
  742. exit for
  743. end if
  744. next
  745. rs.movenext
  746. loop
  747. rs.close
  748. temp=id1
  749. id1=int(id2)+1
  750. id2=int(id2)+int(id2)-int(temp)+1
  751. go=" 继续整理 "
  752. end if
  753. caption="主题帖子整理"
  754. content="<div style=""height:109px;text-align: left;""><form method=post action='?action=updatetopic' onsubmit='ok.disabled=true;ok.value=""正在整理-请稍等...""'>请填写你要整理的帖子的开始id和结束id：（两者之间不要相差太大）<br />你的论坛帖子最大的 id 为："&maxid&"<br />初始id：<input type=text name='id1' size=20 value="&id1&"><br />结束id：<input type=text name='id2' size=20 value="&id2&"><br /><input type=submit name='ok' value="&go&"><input type=reset value=' 重 置 '> </p></form></div>"
  755. call showtable(caption,content)
  756. end sub
  758. sub updatealluser
  759. dim caption,content,id1,id2,gradenum,goodnum,essaynum,ug,go,alltable,i,temp,maxid
  760. id1=yxbbs.fun.getstr("id1"):id2=yxbbs.fun.getstr("id2")
  761. maxid=yxbbs.execute("select max(id)from [yx_user]")(0)
  762. if id1="" then
  763. id1=1:id2=100
  764. go= " 开始整理 "
  765. else
  766. if not isnumeric(id1) or not isnumeric(id2) then call goback("","<li>请用数字填写！"):exit sub
  767. set rs=yxbbs.execute("select name,classid from [yx_user] where id>="&id1&" and id<="&id2&"")
  768. if rs.eof then
  769. if int(id2) < int(maxid) then
  770. call goback("数据据中没有数据","在id：<font color=red>"&id1&"</font> 至 <font color=red>"&id2&"</font> 之间不存在用户，请把结束id的数字填大一些。")
  771. else
  772. call suc("整理结束","全部整理成功!","?action=updatebbs")
  773. end if
  774. exit sub
  775. end if
  776. alltable=split(yxbbs.bbstable(0),",")
  777. do while not rs.eof
  778. essaynum=0
  779. goodnum=0
  780. for i=0 to ubound(alltable)
  781. essaynum=essaynum+yxbbs.execute("select count(bbsid) from [yx_bbs"&alltable(i)&"] where name='"&rs(0)&"'")(0)
  782. next
  783. goodnum=yxbbs.execute("select count(topicid) from [yx_topic] where name='"&rs(0)&"' and isgood=true")(0)
  784. set ug=yxbbs.execute("select top 1 gradenum from yx_usergrade where classid="&rs(1)&" and userminpostnum<="&essaynum&" order by userminpostnum desc")
  785. if not ug.eof then
  786. gradenum=ug(0)
  787. end if
  788. ug.close
  789. set ug=nothing
  790. yxbbs.execute("update [yx_user] set essaynum="&essaynum&",goodnum="&goodnum&",gradenum="&gradenum&" where name='"&rs(0)&"'")
  791. rs.movenext
  792. loop
  793. rs.close
  794. temp=id1
  795. id1=int(id2)+1
  796. id2=int(id2)+int(id2)-int(temp)+1
  797. go=" 继续整理 "
  798. end if
  799. caption="用户整理修复"
  800. content="<form method=post action='?action=updatealluser' onsubmit='ok.disabled=true;ok.value=""正在整理-请稍等...""'><div style=""height:109px;text-align: left;"">请填写你要整理用户的开始id和结束id：（两者之间不要相差太大）<br />论坛注册用户最大的 id 为："&maxid&"<br />初始id：<input type=text name='id1' size=20 value="&id1&"><br />结束id：<input type=text name='id2' size=20 value="&id2&"><br /><input name='ok'  type=submit value="&go&" ><input type=reset value=' 重 置 '> </p></div></form>"
  801. call showtable(caption,content)
  802. end sub
  804. sub delwuiong
  805. dim ii,i,alltable%>
  806. <div class="ta">
  807. <div class="th jz">论坛垃圾清理</div>
  808. <div class="tf jz h75" style="text-align: left;"><b><span id=YxBBsT name=YxBBsT>正在清理无效主题！请稍等...</span></b><br /><img src="../images/hr.gif" width=0 height=16 id=YxBBsimg name=YxBBsimg align=absmiddle /><br /><span id=YxBBstxt name=YxBBstxt style="font-size:9pt">0</span><span style="font-size:9pt">%</span></div>
  809. </div>
  812. <%response.flush
  813. alltable=split(yxbbs.bbstable(0),",")
  814. for i=0 to ubound(alltable)
  815. yxbbs.execute("delete * from [yx_bbs"&alltable(i)&"] where topicid<>0 and not exists (select name from [yx_topic] where [yx_bbs"&alltable(i)&"].topicid=[yx_topic].topicid)")
  816. yxbbs.execute("delete * from [yx_topic] where sqltableid="&alltable(i)&" and not exists (select name from [yx_bbs"&alltable(i)&"] where [yx_topic].topicid=[yx_bbs"&alltable(i)&"].topicid)")
  817. next
  818. call table("无效主题清理完毕！","")
  820. call picpro(1,6,"正在清理无效投票！请稍等...")
  821. yxbbs.execute("delete * from [yx_topicvote] where  not exists (select name from [yx_topic] where [yx_topicvote].topicid=[yx_topic].topicid)")
  822. yxbbs.execute("delete * from [yx_topicvoteuser] where  not exists (select name from [yx_topic] where [yx_topicvoteuser].topicid=[yx_topic].topicid)")
  823. call table("无效投票清理完毕！","")
  825. call picpro(2,6,"正在清理无效留言！请稍等...")
  826. yxbbs.execute("delete * from [yx_sms] where not exists (select name from [yx_user] where [yx_sms].myname=[yx_user].name)")
  827. call table("无效留言清理完毕！","")
  829. call picpro(3,6,"正在清理删除用户的帖子！请稍等...")
  830. for i=0 to ubound(alltable)
  831. yxbbs.execute("delete * from [yx_bbs"&alltable(i)&"] where not exists (select name from [yx_user] where [yx_bbs"&alltable(i)&"].name=[yx_user].name)")
  832. next
  833. yxbbs.execute("delete * from [yx_topic] where not exists (select name from [yx_user] where [yx_topic].name=[yx_user].name)")
  834. call table("无效用户的帖子清理完毕！","")
  836. call picpro(4,6,"正在清理无效回复帖子！请稍等...;")
  837. for i=0 to ubound(alltable)
  838. set rs=yxbbs.execute("select replytopicid from [yx_bbs"&alltable(i)&"] where replytopicid<>0")
  839. do while not rs.eof
  840. if yxbbs.execute("select topicid from [yx_bbs"&alltable(i)&"] where topicid="&rs(0)&"").eof then
  841. yxbbs.execute("delete from [yx_bbs"&alltable(i)&"] where replytopicid="&rs(0)&"")
  842. end if
  843. rs.movenext
  844. loop
  845. rs.close
  846. next
  847. call table("无效回复清理完毕！","")
  848. Response.Write "<script>YxBBsimg.width=400;YxBBstxt.innerHTML=""100"";YxBBsT.innerHTML=""<font color=red>成功完成整理！</font>"";</script>"
  849. end sub
  852. '进度条
  853. Sub PicPro(i,sum,strtxt)
  854. Response.Write "<script>YxBBsimg.width=" & Fix((i/sum) * 400) & ";" & VbCrLf
  855. Response.Write "YxBBstxt.innerHTML=""" & FormatNumber(i/sum*100,4,-1) & """;" & VbCrLf
  856. Response.Write "YxBBsT.innerHTML="""& StrTxt & """;"& VbCrLf
  857. Response.Write "</script>" & VbCrLf
  858. Response.Flush
  859. End Sub
  861. sub boardupdate
  862. %>
  863. <div class="ta">
  864. <div class="th jz">论坛版面整理</div>
  865. <div class="tf jz h75" style="text-align: left;"><b><span id=YxBBsT name=YxBBsT>数据版面正在整理，请稍等</span></b><br /><img src="../images/hr.gif" width=0 height=16 id=YxBBsimg name=YxBBsimg align=absmiddle><br /><span id=YxBBstxt name=YxBBstxt style="font-size:9pt">0</span><span style="font-size:9pt">%</span></div>
  866. </div>
  867. <%response.flush
  868. dim boardnum,essaynum,topicnum,todaynum,parentstr,lastreply,lastcaption
  869. dim alltable,i,ii,iii,sql
  870. boardnum=yxbbs.execute("select count(boardid) from[yx_board] where parentid<>0")(0)
  871. ii=0
  872. set rs=yxbbs.execute("select boardid,boardname,child,parentstr,rootid from[yx_board] where parentid<>0  order by child,rootid,orders desc")
  873. if not rs.eof then 
  874. sql=rs.getrows()
  875. rs.close
  876. for i=0 to ubound(sql,2)
  877. essaynum=0
  878. topicnum=0
  879. todaynum=0
  880. lastreply=""
  881. lastcaption="无"
  882. alltable=split(yxbbs.bbstable(0),",")
  883. for iii=0 to ubound(alltable)
  884. essaynum=essaynum+yxbbs.execute("select count(*) from[yx_bbs"&alltable(iii)&"] where boardid="&sql(0,i)&" and isdel=false")(0)
  885. todaynum=todaynum+yxbbs.execute("select count(*) from[yx_bbs"&alltable(iii)&"] where boardid="&sql(0,i)&" and isdel=false and datediff('d',[lasttime],'"&yxbbs.nowbbstime&"')<1")(0)
  886. next
  887. topicnum=yxbbs.execute("select count(topicid) from[yx_topic] where boardid="&sql(0,i)&" and isdel=false")(0)
  888. set rs=yxbbs.execute("select top 1 topicid,name,caption,addtime,face,sqltableid,boardid from [yx_topic] where isdel=false and boardid="&sql(0,i)&" order by topicid desc")
  889. if not rs.eof then
  890. lastcaption=replace(yxbbs.fun.strleft(rs("caption"),20),"'","&#39;")
  891. lastreply=rs("name")&"|"&lastcaption&"|"&rs("addtime")&"|"&rs("face")&"|"&rs("topicid")&"|"&rs("boardid")&"|"&rs("sqltableid")&""
  892. end if
  893. rs.close
  894. yxbbs.execute("update [yx_board] set essaynum="&essaynum&",todaynum="&todaynum&",topicnum="&topicnum&",lastreply='"&lastreply&"' where boardid="&sql(0,i)&"")
  895. '如果有上级论坛，那么更新上级论坛
  896. if sql(2,i)>0 then
  897. parentstr=sql(3,i) & "," & sql(0,i)
  898. set rs=yxbbs.execute("select sum(essaynum),sum(topicnum),sum(todaynum) from [yx_board] where parentstr = '"&parentstr&"'")
  899. if not isnull(rs(0)) then essaynum = rs(0) + essaynum
  900. if not isnull(rs(1)) then topicnum = rs(1) + topicnum
  901. if not isnull(rs(2)) then todaynum = rs(2) + todaynum
  902. rs.close
  903. set rs=yxbbs.execute("select top 1 topicid,name,caption,addtime,face,sqltableid,boardid from [yx_topic] where isdel=false and boardid in ("&parentstr&") order by lasttime desc")
  904. if not rs.eof then
  905. lastcaption=replace(yxbbs.fun.strleft(rs("caption"),20),"'","&#39;")
  906. lastreply=rs("name")&"|"&lastcaption&"|"&rs("addtime")&"|"&rs("face")&"|"&rs("topicid")&"|"&rs("boardid")&"|"&rs("sqltableid")&""
  907. end if
  908. rs.close
  909. yxbbs.execute("update [yx_board] set essaynum="&essaynum&",todaynum="&todaynum&",topicnum="&topicnum&",lastreply='"&lastreply&"' where boardid="&sql(0,i)&"")
  910. end if
  911. call table("论坛 <font color=blue>"&sql(1,i)&"</font> 整理成功","总帖数"&essaynum&" | 主题数："&topicnum&" | 今日帖："&todaynum&" | 最新主题："&lastcaption&"")
  912. ii=ii+1
  913. Response.Write "<script>YxBBsimg.width=" & Fix((ii/BoardNum) * 400) & ";" & VbCrLf
  914. Response.Write "YxBBstxt.innerHTML=""" & FormatNumber(ii/BoardNum*100,4,-1) & """;" & VbCrLf
  915. Response.Write "</script>" & VbCrLf
  916. response.flush
  917. next
  918. end if
  919. Response.Write "<script>YxBBsimg.width=400;YxBBstxt.innerHTML=""100"";YxBBsT.innerHTML=""<font color=red>成功完成整理！</font>"";</script>"
  920. end sub
  921. %>