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

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

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

开发平台：

DOS

Users.Asp：源码内容
  1. <!--#include file="check.asp"-->
  2. <!--#include file="../inc/page_cls.asp"-->
  3. <%
  4. response.write("<body>")
  5. select case request("action")
  6. case "update"
  7. updateuserdata
  8. case "useredit"
  9. useredit
  10. case "edituser"
  11. edituser
  12. case "addadmin"
  13. addadmin
  14. case "saveadmin"
  15. saveadmin
  16. case "admin"
  17. admin
  18. case "editadmin"
  19. editadmin
  20. case "saveeditadmin"
  21. saveeditadmin
  22. case "deladmin"
  23. deladmin
  24. case "classadd"
  25. userclassadd
  26. case "saveaddclass"
  27. saveaddclass
  28. case "userclass"
  29. userclass
  30. case "classedit"
  31. userclassedit
  32. case "saveeditclass"
  33. saveeditclass
  34. case "deluserclass"
  35.         deluserclass
  36. case "addgrade"
  37. usergradeadd
  38. case "saveaddgrade"
  39. saveaddgrade
  40. case "usergrade"
  41. usergrade
  42. case "updategrade"
  43. updateusergrade
  44. case "delusergrade"
  45. delusergrade
  46. case "delmoreuser"
  47. delmoreuser
  48. case else
  49. showuserlist
  51. end select
  52. adminfooter()
  54. sub showuserlist()
  55. dim action,wheresql,ordersql,order,pageinfo,keyword,search,classid
  56. order=request.querystring("order")
  57. keyword=request.querystring("keyword")
  58. search=request.querystring("search")
  59. classid=request.querystring("classid")
  60. action=lcase(request.querystring("action"))
  61. wheresql="id<>0"
  62. if classid<>"" then wheresql=wheresql&" and classid="&classid
  63. if keyword<>"" then
  64. if search="1" then
  65. wheresql=wheresql&" and mail like '%"&keyword&"%'"
  66. else
  67. wheresql=wheresql&" and name like '%"&keyword&"%'"
  68. end if
  69. end if
  71. select case action
  72. case"sex"
  73. ordersql="sex"
  74. case"coin"
  75. ordersql="coin"
  76. case"essay"
  77. ordersql="essaynum"
  78. case"mark"
  79. ordersql="mark"
  80. case"regtime"
  81. ordersql="regtime"
  82. case"grade"
  83. ordersql="gradenum"
  84. case"isdel"
  85. wheresql="isdel=FALSE"
  86. case else
  87. ordersql="id"
  88. end select
  89. if order<>"1" then ordersql =ordersql&" desc"
  90. if order="3" then ordersql =""
  91. %>
  93. <form>
  94. <div class="ta"><div class="th jz">查找用户</div><div class="tf"><font color="#800000">搜索 <select size="1" name="search">
  95. <option value=0>用户名</option>
  96. <option value=1>email</option>
  97. </select>&nbsp; <input type="text" name="keyword" size="20"> 
  98. <input type="submit" value="查找" name="b1"></font></div><div style="clear: both;"></div></div>
  99.  </form>
  100. <%
  101. response.write "<form method=""post"" action=""?action=update"" name=""recycle""><div class=""ta""><div class=""th jz"">用户信息管理</div><div class=""tf w470"" style=""float: left;"">查看按：<a href=?action=sex&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">性别</a>&nbsp;/&nbsp;<a href=?action=essay&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">贴数</a>&nbsp;/&nbsp;<a href=?action=coin&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">金钱</a>&nbsp;/&nbsp;<a href=?action=mark&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">y币</a>&nbsp;/&nbsp;<a href=?action=regtime&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">注册时间</a>&nbsp;/&nbsp;<a href=?action=grade&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">等级</a>&nbsp;/&nbsp;<a href=?action=isdel&order=3>审核</a></div><div class=""tf w280"" style=""float: left;"">排序方式：<a href=?action="&action&"&order=1&search="&search&"&keyword="&keyword&"&classid="&classid&">顺</a> / <a href=?action="&action&"&order=2&search="&search&"&keyword="&keyword&"&classid="&classid&">倒</a></div>"
  102. dim pages,page,arr_rs,i,temp,content
  103. page = request.querystring("page")
  104. set pages = new cls_pageview
  105. pages.strtablename = "[yx_user]"
  106. pages.strpageurl = "?action="&action&"&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid
  107. pages.strfieldslist = "id,name,sex,mail,essaynum,coin,mark,regtime,GradeNum,isdel"
  108. pages.strcondiction = wheresql
  109. pages.strorderlist = ordersql
  110. pages.strprimarykey = "id"
  111. pages.intpagesize = 20
  112. pages.intpagenow = page
  113. pages.strcookiesname = "members"&keyword&search&classid
  114. pages.reloadtime=3
  115. pages.strpagevar = "page"
  116. pages.initclass
  117. arr_rs = pages.arrrecordinfo
  118. pageinfo = pages.strpageinfo
  119. page=pages.intpagenow
  120. set pages = nothing
  121. response.write "<div class=""td1 h20 jz w131"">用户名</div><div class=""td1 jz h20 w50"">性别</div><div class=""td1 h20 jz w87"">e-mail</div><div class=""td1 jz h20 w87"">发帖数</div><div class=""td1 jz h20 w50"">金钱</div><div class=""td1 jz h20 w50"">y币</div><div class=""td1 jz h20 w100"">注册时间</div><div class=""td1 jz h20 w94"">等级</div><div class=""td1 jz h20 w50""><input type=checkbox value=""on"" name=""chkall"" onclick=""checkall(this.form)""></div>"
  122. if isarray(arr_rs) then
  123. for i = 0 to ubound(arr_rs, 2)
  124. SET Rs=YxBBs.Execute("Select GradeName,GradePic From [YX_UserGrade] where GradeNum="&Arr_Rs(8,i)&"")
  125. if arr_rs(2,i) then temp="男" else temp="女"
  126. response.write "<div class=""td1 h20 jz w131""><a href='?action=useredit&userid="&arr_rs(0,i)&"'>"&arr_rs(1,i)&"</a></div><div class=""td1 jz h20 w50"">"&temp&"</div><div class=""td1 h20 jz w87""><a href='mailto:"&arr_rs(3,i)&"'><img src='../images/mail.gif' border='0' /></a></div><div class=""td1 jz h20 w87"">"&arr_rs(4,i)&"</div><div class=""td1 jz h20 w50"">"&arr_rs(5,i)&"</div><div class=""td1 jz h20 w50"">"&arr_rs(6,i)&"</div><div class=""td1 jz h20 w100"">"&formatdatetime(arr_rs(7,i),2)&"</div><div class=""td1 jz h20 w94""><img src='../"&Rs("Gradepic")&"' alt="&Rs("GradeName")&"></div><div class=""td1 jz h20 w50""><input type=""checkbox"" name=""userid"" value="""&arr_rs(0,i)&"""></div>"
  127. next
  128. end if
  129. response.write "<div class=""td2 w770""><input type=""radio"" value=""0"" name=""useraction""> 审核用户 <input type=""radio"" value=""1"" name=""useraction""> 屏蔽用户 <input type=""radio"" value=""2"" name=""useraction""> 解除屏蔽 <input type=""radio"" value=""3"" name=""useraction""> 删除用户资料 <input type=""radio"" value=""4"" name=""useraction""> 删除用户帖子 <input type=""radio"" value=""5"" name=""useraction""  checked=""true""> 移动到用户组 <select size=""1"" name=""classid"">"
  130. dim ucl
  131. set ucl=conn.execute("select classid,classname from yx_userclass where classid<>6 order by classid asc")
  132. while not ucl.eof
  133. if ucl(0)=5 then
  134. response.write "<option value="&ucl(0)&" selected>"&ucl(1)&"</option>"
  135. else
  136. response.write "<option value="&ucl(0)&">"&ucl(1)&"</option>"
  137. end if
  138. ucl.movenext
  139. wend
  140. set ucl=nothing
  141. response.write "</select> <input type=""submit"" value=""执行操作"" name=""b1"" onclick=""{if(confirm('确定执行选择的操作吗?')){this.document.recycle.submit();return true;}return false;}""></div>"
  142. response.write "<div class=""tf h20"">"&pageinfo&"</div><div style=""clear: both;""></div></div></form>"
  143. %>
  144. <form method="post" action="?action=delmoreuser">
  145. <div class="ta"><div class="th jz">批量删除用户</div><div class="tf"><font color="#800000">发帖数 <select size="1" name="EssayNum">
  146. <option value=0>0帖</option>
  147. <option value=1>1帖</option>
  148. <option value=3>3帖</option>
  149. <option value=5>5帖</option>
  150. </select>&nbsp; 登陆次数<select size="1" name="LoginNum">
  151. <option value=0>0次</option>
  152. <option value=1>1次</option>
  153. <option value=3>3次</option>
  154. <option value=5>5次</option>
  155. </select>
  156. <input type="submit" value="删除" name="b1"></font></div><div style="clear: both;"></div></div>
  157.  </form>
  158. <script language="javascript">
  159. <!--
  160. function checkall(form) {
  161.  for (var i=0;i<form.elements.length;i++) {
  162. var e = form.elements[i];
  163. if (e.name != 'chkall')
  164. e.checked = form.chkall.checked; 
  165. }
  166.  }
  167. //-->
  168. </script>
  169. <%
  170. end sub
  172. Sub delmoreuser
  173. dim EssayNum,LoginNum
  174. EssayNum=request.form("EssayNum")
  175. LoginNum=request.form("LoginNum")
  176. yxbbs.execute("delete from[yx_user] where EssayNum<="&EssayNum&" and LoginNum<="&LoginNum&"")
  177. call suc("","成功的删除了帖子少于"&EssayNum&",并且登陆少于"&LoginNum&"次的用户！","users.asp")
  178. end sub
  179. sub updateuserdata
  180. dim useraction,userid,classid,succstr,topiccount,flag,i,urs,alltable
  181. useraction=request.form("useraction")
  182. userid=request.form("userid")
  183. classid=request.form("classid")
  184. if replace(userid,",","")="" then
  185. call goback("","请选择相应的用户！")
  186. exit sub
  187. end if
  189. select case useraction
  190. case 0
  191. yxbbs.execute("update [yx_user] set isdel=1 where id in (" &userid& ")")
  192. call suc("","用户审核通过！","users.asp")
  193. case 1
  194. yxbbs.execute("update [yx_user] set isshow=true where id in (" &userid& ")")
  195. call suc("","成功屏蔽用户发言！","users.asp")
  196. case 2
  197. yxbbs.execute("update [yx_user] set isshow=false where id in (" &userid& ")")
  198. call suc("","成功解除屏蔽用户发言！","users.asp")
  199. case 3
  200. '计算被删贴子数
  201. set urs=conn.execute("select name from [yx_user] where id in (" &userid& ")")
  202. while not urs.eof
  203. alltable=split(yxbbs.bbstable(0),",")
  204. for i=0 to ubound(alltable)
  205. yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where name='"&urs(0)&"'")
  206. yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where replytopicid in (select topicid from[yx_topic] where name='"&urs(0)&"')")
  207. next
  208. yxbbs.execute("delete from[yx_topic] where  name='"&urs(0)&"'")
  209. yxbbs.execute("delete from[yx_sms] where  myname='"&urs(0)&"'")
  210. yxbbs.execute("delete from[yx_admin] where username='"&urs(0)&"'")
  211. yxbbs.execute("delete from[yx_user] where name='"&urs(0)&"'")
  212. urs.movenext
  213. wend
  214. set urs=nothing
  215. call suc("","所选用户（包括所有帖子、留言等）已经被彻底删除！","users.asp")
  216. case 4
  217. '计算被删贴子数
  218. set urs=conn.execute("select name from [yx_user] where id in (" &userid& ")")
  219. while not urs.eof
  220. alltable=split(yxbbs.bbstable(0),",")
  221. for i=0 to ubound(alltable)
  222. yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where name='"&urs(0)&"'")
  223. yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where replytopicid in (select topicid from[yx_topic] where name='"&urs(0)&"')")
  224. next
  225. yxbbs.execute("delete from[yx_topic] where name='"&urs(0)&"'")
  226. urs.movenext
  227. wend
  228. set urs=nothing
  229. call suc("","成功删除所选用户发表的所有帖子！","users.asp")
  230. case 5
  231. set rs=conn.execute("select gradenum,gradename,gradepic from yx_usergrade where classid="&classid)
  232. if rs.eof or rs.bof then
  233. call goback("错误提示","没有此用户组或已被删除。")
  234. exit sub
  235. end if
  236. conn.execute("update yx_user set gradenum="&rs("gradenum")&",classid="&classid&" where id in (" &userid& ")")
  237. set rs=nothing
  238. call suc("","成功转移所选用户!","users.asp")
  239. end select
  240. end sub
  242. sub useredit
  243. dim rs,i,classid,username,userid,password,question,answer,sex,gradename,email,homepage,qq,icq,msn,headfile,headwidth
  244. dim usertitle,mark,coin,banksave
  245. dim headheight,sign,birthday,registtime,lastlogintime,useraction
  246. userid=request("userid")
  247. set rs=conn.execute("select * from yx_user where id="&userid)
  248. if rs.eof then
  249. call goback("错误提示","找不到用户或已被删除！")
  250. response.end
  251. end if
  252. classid=rs("classid")
  253. username=rs("name")
  254. password=rs("password")
  255. question=rs("clue")
  256. answer=rs("answer")
  257. sex=rs("sex")
  258. email=rs("mail")
  259. homepage=rs("home")
  260. qq=rs("qq")
  261. headfile=rs("pic")
  262. headwidth=rs("picw")
  263. headheight=rs("pich")
  264. sign=rs("sign")
  265. usertitle=rs("honor")
  266. mark=rs("mark")
  267. coin=rs("coin")
  268. banksave=rs("banksave")
  269. birthday=rs("birthday")
  270. registtime=rs("regtime")
  271. lastlogintime=rs("lasttime")
  272. useraction=rs("isshow")
  273. set rs=nothing
  274. %>
  275. <form action="?action=edituser" method=post>
  276. <div class="ta">
  277. <div class="th jz">用户基本资料修改</div>
  278. <div class="td1 h20">用户组</div>
  279. <div class="td2 h20"><input type="hidden" name="userid" value="<%=userid%>">
  280. <input type="hidden" name="oldclassid" value="<%=classid%>">
  281. <select size="1" name="classid">
  282. <%
  283. dim ucl
  284. set ucl=conn.execute("select classid,classname from yx_userclass where classid<>6 order by classid asc")
  285. while not ucl.eof
  286. response.write "<option value='"&ucl("classid")&"'"
  287. if classid=ucl("classid") then response.write "selected"
  288. response.write ">"&ucl("classname")&"</option>"
  289. ucl.movenext
  290. wend
  291. set ucl=nothing
  292. %>
  293. </select></div>
  294. <div class="td1 h20">用户名</div>
  295. <div class="td2 h20"><input type="hidden" name="oldusername" value="<%=username%>"><input name="username" size="30" value="<%=username%>"></div>
  296. <div class="td1 h20">密&nbsp;&nbsp; 码</div>
  297. <div class="td2 h20"><input type="hidden" name="oldpassword" value="<%=password%>"><input name="password" size="30" >　如不修改请留空</div>
  298. <div class="td1 h20">密码问题</div>
  299. <div class="td2 h20"><input name="question" size="30" value="<%=question%>"></div>
  300. <div class="td1 h20">密码答案</div>
  301. <div class="td2 h20"><input type="hidden" name="oldanswer" value="<%=answer%>"><input name="answer" size="30">　如不修改请留空</div>
  302. <div class="td1 h20">性别</div>
  303. <div class="td2 h20"><input type="radio" name="sex" value="1" <%if sex then response.write"checked=""true"""%>>
  304. 男 <input type="radio" name="sex" value="0" <%if not sex then response.write"checked=""true"""%>>
  305. 女</div>
  306. <div class="td1 h20">自定头衔</div>
  307. <div class="td2 h20"><input name="usertitle" size="30" value="<%=usertitle%>"></div>
  308. <div class="td1 h20">用户状态</div>
  309. <div class="td2 h20">正常 
  310. <input type="radio" value="0" name="useraction" <%if not useraction then response.write " checked=""true"""%>>&nbsp; 
  311. 屏蔽 
  312. <input type="radio" value="1" name="useraction" <%if useraction then response.write " checked=""true"""%>></div>
  313. <div class="td1 h20">邮箱</div>
  314. <div class="td2 h20"><input name="email" size="30" value="<%=email%>"></div>
  315. <div class="td1 h20">个人主页</div>
  316. <div class="td2 h20"><input name="homepage" size="30" value="<%=homepage%>"></div>
  317. <div class="td1 h20">qq号码</div>
  318. <div class="td2 h20"><input name="qq" size="30" value="<%=qq%>"></div>
  319. <div class="td1 h20">论坛头像</div>
  320. <div class="td2 h20"><input name="headfile" size="30" value="<%=headfile%>">　图片宽<input name="headwidth" size="5" value="<%=headwidth%>">&nbsp; 
  321. 图片高<input name="headheight" size="5" value="<%=headheight%>"></div>
  322. <div class="td1 h65">个人签名</div>
  323. <div class="td2 h65 w446"><textarea rows="3" name="sign" cols="29"><%=sign%></textarea></div>
  325. <div class="td1 h20">用户金钱</div>
  326. <div class="td2 h20"><input name="coin" size="30" value="<%=coin%>"></div>
  327. <div class="td1 h20">用户存款</div>
  328. <div class="td2 h20"><input name="banksave" size="30" value="<%=banksave%>"></div>
  329. <div class="td1 h20">用户y币</div>
  330. <div class="td2 h20"><input name="mark" size="30" value="<%=mark%>"></div>
  332. <div class="td1 h20">出生日期</div>
  333. <div class="td2 h20"><input name="birthday" size="30" value="<%=birthday%>">　格式:1986-8-16</div>
  334. <div class="td1 h20">注册时间</div>
  335. <div class="td2 h20"><input name="registtime" size="30" value="<%=registtime%>"></div>
  336. <div class="td1 h20">最后登录</div>
  337. <div class="td2 h20"><input name="lastlogintime" size="30" value="<%=lastlogintime%>"></div>
  338. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="编 辑" name="b1"></div>
  339. </div></form>
  341. <%
  342. end sub
  344. sub edituser
  346. dim rs,classid,username,userid,oldpassword,password,question,answer,sex,gradename,email,homepage,qq,icq,msn,headfile,headwidth
  347. dim usertitle,mark,coin,banksave
  348. dim headheight,sign,birthday,registtime,lastlogintime,useraction,oldclassid,oldanswer,oldpassowrd,sql,oldusername,alltable,i
  349. userid=request.form("userid")
  350. classid=request.form("classid")
  351. oldclassid=request.form("oldclassid")
  352. username=request.form("username")
  353. oldusername=request.form("oldusername")
  354. password=request.form("password")
  355. oldpassword=request.form("oldpassword")
  356. question=request.form("question")
  357. answer=request.form("answer")
  358. oldanswer=request.form("oldanswer")
  359. sex=request.form("sex")
  360. usertitle=request.form("usertitle")
  361. mark=request.form("mark")
  362. coin=request.form("coin")
  363. banksave=request.form("banksave")
  364. email=request.form("email")
  365. homepage=request.form("homepage")
  366. qq=request.form("qq")
  367. icq=request.form("icq")
  368. msn=request.form("msn")
  369. headfile=request.form("headfile")
  370. headwidth=request.form("headwidth")
  371. headheight=request.form("headheight")
  372. sign=request.form("sign")
  373. birthday=request.form("birthday")
  374. registtime=request.form("registtime")
  375. lastlogintime=request.form("lastlogintime")
  376. useraction=request.form("useraction")
  377. if cint(classid)<>cint(oldclassid) then
  378. set rs=conn.execute("select gradenum,gradename,gradepic from yx_usergrade where classid="&classid)
  379. if rs.eof or rs.bof then
  380. call goback("错误提示","没有此用户组或已被删除！")
  381. exit sub
  382. end if
  383. conn.execute("update yx_user set gradenum="&rs("gradenum")&",classid="&classid&" where id =" &userid)
  384. set rs=nothing
  385. end if
  387. if oldusername<>"" or username<>"" or username <> oldusername then
  388. if lcase(username)=lcase(oldusername) then
  389. if yxbbs.execute("select name from[yx_user] where name='"&oldusername&"'").eof then call goback("","这个用户根本不存在！"):exit sub
  390. else
  391. if yxbbs.execute("select name from[yx_user] where name='"&oldusername&"'").eof then call goback("","这个用户根本不存在！"):exit sub
  392. if not yxbbs.execute("select name from[yx_user] where name='"&username&"'").eof then call goback("","新用户名称已经被注册了！"):exit sub
  393. end if
  394. alltable=split(yxbbs.bbstable(0),",")
  395. for i=0 to ubound(alltable)
  396. yxbbs.execute("update [yx_bbs"&alltable(i)&"] set name='"&username&"' where lcase(name)='"&oldusername&"'")
  397. next
  398. yxbbs.execute("update [yx_topicvoteuser] set [user]='"&username&"' where lcase([user])='"&oldusername&"'")
  399. yxbbs.execute("update [yx_topic] set name='"&username&"' where lcase(name)='"&oldusername&"'")
  400. yxbbs.execute("update [yx_sms] set myname='"&username&"' where lcase(myname)='"&oldusername&"'")
  401. yxbbs.execute("update [yx_sms] set name='"&username&"' where lcase(name)='"&oldusername&"'")
  402. yxbbs.execute("update [yx_user] set name='"&username&"' where lcase(name)='"&oldusername&"'")
  403. yxbbs.execute("update [yx_admin] set name='"&username&"' where lcase(name)='"&oldusername&"'")
  404. end if
  406. set rs=server.createobject("adodb.recordset")
  407. sql="select * from yx_user where id="&userid
  408. rs.open sql,conn,1,3
  409. if rs.eof then
  410. call goback("错误提示","没有此用户或已被删除。")
  411. exit sub
  412. end if
  413. rs("name")=username
  414. if password<>"" then rs("password")=md5(password)
  415. rs("clue")=question
  416. if answer<>"" then rs("answer")=md5(answer)
  417. rs("sex")=sex
  418. rs("home")=homepage
  419. rs("qq")=qq
  420. rs("mail")=email
  421. rs("pic")=headfile
  422. rs("picw")=headwidth
  423. rs("pich")=headheight
  424. rs("sign")=sign
  425. rs("honor")=usertitle
  426. rs("mark")=mark
  427. rs("coin")=coin
  428. rs("banksave")=banksave
  429. rs("birthday")=birthday
  430. rs("regtime")=registtime
  431. rs("lasttime")=lastlogintime
  432. rs("isshow")=useraction
  433. rs.update
  434. rs.close
  435. set rs= nothing
  436. call suc("","用户修改成功!","users.asp")
  437. end sub
  439. sub addadmin%>
  440.  <form action="?action=saveadmin" method=post>
  441. <div class="ta">
  442.         <div class="th jz">管 理 员 添 加</div>
  443.         <div class="td1 h20">后台登陆名称</div>
  444.         <div class="td2 h20""><input name="adminname" size="30"></div>
  445. <div class="td1 h20"">后台登陆密码</div>
  446. <div class="td2 h20""><input type=password name="password" size="30"></div>
  447.         <div class="td1 h20"">前台用户名称</div>
  448. <div class="td2 h20""><input type="text" name="username" size="30"></div>
  449. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="添 加" name="b1"></div>
  450. </div></form>
  451. <%end sub
  453. sub saveadmin
  454. Dim Password,UserName,UserID
  455. AdminName=Request.form("AdminName")
  456. Password=Request.form("Password")
  457. UserName=Request.form("UserName")
  459. if AdminName="" or UserName="" then
  460. Call GoBack("","请输入前台或后台登陆名称！")
  461. end if
  463. if Password="" then
  464. Call GoBack("","请输入后台密码！")
  465. else
  466.   Password=Md5(Password)
  467. end if
  469. set rs=Conn.execute("Select ID from YX_User where Name='"&UserName&"'")
  470. if rs.eof or rs.bof then
  471. Call GoBack("","无效的注册用户")
  472. else
  473. UserID=rs(0)
  474. end if
  475. set Rs=Conn.execute("select Name from YX_Admin where Name='"&AdminName&"'")
  476. if not (rs.eof and rs.bof) then
  477. Call GoBack("","此用户已存在！请使用其他名称！")
  479. end if
  480. dim GradeNum
  481. set Rs=Conn.Execute("select GradeNum from YX_UserGrade where GradeID=1")
  482. GradeNum=Rs(0)
  483. set rs=nothing
  485. Conn.execute("Update YX_User set ClassID=1,GradeNum="&GradeNum&" where ID="&UserID)
  486. Conn.execute("Insert into YX_Admin (Name,[Password],UserName) values('"&AdminName&"','"&Password&"','"&UserName&"')")
  487. Call Suc("","恭喜您！添加成功！","?action=admin")
  488. end sub
  491. sub admin%>
  492. <div class="ta">
  493.         <div class="th jz">管 理 员 信 息</div>
  494.         <div class="td3 h20 w231"  style="float: left;">用户名</div>
  495.         <div class="td3 h20 w231"  style="float: left;">前台用户名</div>
  496.         <div class="td3 h20 w291"  style="float: left;">操作</div>
  497. <%
  498. set rs=conn.execute("select id,name,username from yx_admin")
  499. while not rs.eof
  500. %>
  501.   <div class="td3 w231"><a href="?action=useredit&userid=<%=rs("id")%>"><%=rs("name")%></a></div>
  502. <div class="td3 w231"><%=rs("username")%></div>
  503. <div class="td3 w291" ><a href="?action=editadmin&id=<%=rs("id")%>">编辑</a> <a href="?action=deladmin&id=<%=rs("id")%>" onclick="return okdel()">删除</a></div>
  504. <%
  505. rs.movenext
  506. wend
  507. set rs=nothing
  508. %>
  509. <div style="clear: both;"></div></div>
  510. <%end sub
  512. sub editadmin
  513. dim id
  514. id=request("id")
  515. if id="" or not isnumeric(id) then
  516. call goback("","错误参数！")
  517. end if
  519. set rs=conn.execute("select name,username from yx_admin where id="&id)
  520. if rs.eof or rs.bof then
  521. call goback("","没有此管理员！")
  522. else
  523. %>
  524.  <form action="?action=saveeditadmin" method=post>
  525. <div class="ta">
  526.         <div class="th jz">管 理 员 编 辑</div>
  527.         <div class="td1 h20">后台登陆名称</div>
  528.         <div class="td2 h20"><input type="hidden" name="id" value="<%=id%>">
  529. <input name="adminname" size="30" value="<%=rs(0)%>"></div>
  530. <div class="td1 h20">后台登陆密码</div>
  531. <div class="td2 h20"><input type=password name="password" size="30"> <font color="#999999">如不更改请留空！</font></div>
  532.         <div class="td1 h20">前台用户名称</div>
  533. <div class="td2 h20"><%=rs(1)%></div>
  534. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="编 辑" name="b1"></div>
  535. </div></form>
  536. <%
  537. end if
  538. set rs=nothing
  539. end sub
  541. sub saveeditadmin
  542. dim id,sql,password
  543. adminname=request.form("adminname")
  544. password=request.form("password")
  545. id=request.form("id")
  547. if id="" or not isnumeric(id) then
  548. call goback("","参数错误！")
  549. end if
  551. if adminname="" then
  552. call goback("","请输入后台登录名称！")
  553. end if
  555. set rs=server.createobject("adodb.recordset")
  556. sql="select * from yx_admin where id="&id
  557. rs.open sql,conn,1,3
  558. if rs.eof or rs.bof then
  559. call goback("","没有此用户！")
  560. else
  561. rs("name")=adminname
  562. if password <> "" then rs("password")=md5(password)
  563. rs.update
  564. end if
  565. rs.close
  566. set rs=nothing
  567. call suc("","管理员修改成功！","?action=admin")
  568. end sub
  570. sub deladmin
  571.         if conn.execute("select count(*) from yx_admin")(0)<=1 then 
  572.         call goback("","目前只有一个管理员，不能删除！")
  573.         else
  574.         conn.execute("delete from yx_admin where id="&request("id")&"")
  575.         call suc("","管理员删除成功！","?action=admin")
  576.     end if
  577. end sub
  579. sub userclassadd
  580. %>
  581.  <form action="?action=saveaddclass" method=post name="creator">
  582. <div class="ta">
  583. <div class="th jz">用 户 组 添 加</div>
  584. <div class="td1 h20">组名称</div>
  585. <div class="td2 h20"><input name="classname" size="20"></div>
  586. <div style="clear: both;"></div><div class="tf">一般权限</div>
  587. <div class="td1 h20">可以查看会员信息</div>
  588. <div class="td2 h20">是<input  checked="true" name="canviewuserinfo" type="radio" value="1">&nbsp;否<input name="canviewuserinfo" type="radio" value="0"></div>
  589. <div class="td1 h20">可以查看其他人发布的主题</div>
  590. <div class="td2 h20">是<input  checked="true" name="canviewnewtopic" type="radio" value="1">&nbsp;否<input name="canviewnewtopic" type="radio" value="0"></div>
  591. <div class="td1 h20">可以浏览精华帖子</div>
  592. <div class="td2 h20">是<input checked="true" name="canviewtopicdigest" type="radio" value="1">&nbsp;否<input name="canviewtopicdigest" type="radio" value="0"></div>
  593. <div class="td1 h20">可以发布新主题</div>
  594. <div class="td2 h20">是<input checked="true" name="cannewtopic" type="radio" value="1">&nbsp;否<input name="cannewtopic" type="radio" value="0"></div>
  595. <div class="td1 h20">可以回复自己的主题</div>
  596. <div class="td2 h20">是<input checked="true" name="canpostmytopic" type="radio" value="1">&nbsp;否<input name="canpostmytopic" type="radio" value="0"></div>
  597. <div class="td1 h20">可以回复其他人的主题</div>
  598. <div class="td2 h20">是<input checked="true" name="canpostorthertopic" type="radio" value="1">&nbsp;否<input name="canpostorthertopic" type="radio" value="0"></div>
  599. <div class="td1 h20">可以上传附件</div>
  600. <div class="td2 h20">是<input checked="true" name="canupfile" type="radio" value="1">&nbsp;否<input name="canupfile" type="radio" value="0"></div>
  601. <div class="td1 h20">可以发布新投票</div>
  602. <div class="td2 h20">是<input checked="true" name="cannewtopicvote" type="radio" value="1">&nbsp;否<input name="cannewtopicvote" type="radio" value="0"></div>
  603. <div class="td1 h20">可以参与投票</div>
  604. <div class="td2 h20">是<input checked="true" name="canposttopicvote" type="radio" value="1">&nbsp;否<input name="canposttopicvote" type="radio" value="0"></div>
  605. <div class="td1 h20">可以编辑自己的帖子</div>
  606. <div class="td2 h20">是<input checked="true" name="caneditmytopic" type="radio" value="1">&nbsp;否<input name="caneditmytopic" type="radio" value="0"></div>
  607. <div class="td1 h20">可以发送短信</div>
  608. <div class="td2 h20">是<input name="cansendmessage" type="radio" value="1" checked="true">&nbsp;否<input name="cansendmessage" type="radio" value="0"></div>
  609. <div class="td1 h20">每日最多上传</div>
  610. <div class="td2 h20"><input name="sendmaxcount" size="10" value="5"></div>
  611. <div class="td1 h20">上传大小限制</div>
  612. <div class="td2 h20"><input name="sendmessagemaxsize" size="10" value="300"> KB</div>
  613. <div class="td1 h20">信箱大小限制</div>
  614. <div class="td2 h20"><input name="messagemaxsize" size="10" value="100"> KB</div>
  615. <div style="clear: both;"></div><div class="tf">管理权限</div>
  616. <div class="td1 h20">可以删除其它人帖子</div>
  617. <div class="td2 h20">是<input name="candeltopic" type="radio" value="1">&nbsp;否<input name="candeltopic" type="radio" value="0" checked="true"></div>
  618. <div class="td1 h20">可以移动其它人帖子</div>
  619. <div class="td2 h20">是<input name="canmovetopic" type="radio" value="1">&nbsp;否<input name="canmovetopic" type="radio" value="0" checked="true"></div>
  620. <div class="td1 h20">可以固顶/解除固顶帖子</div>
  621. <div class="td2 h20">是<input name="cantoptopic" type="radio" value="1">&nbsp;否<input name="cantoptopic" type="radio" value="0" checked="true"></div>
  622. <div class="td1 h20">可以进行帖子总固顶操作</div>
  623. <div class="td2 h20">是<input name="canttoptopic" type="radio" value="1">&nbsp;否<input name="canttoptopic" type="radio" value="0" checked="true"></div>
  624. <div class="td1 h20">可以编辑其它人帖子</div>
  625. <div class="td2 h20">是<input name="canedittopic" type="radio" value="1">&nbsp;否<input name="canedittopic" type="radio" value="0" checked="true"></div>
  626. <div class="td1 h20">可以加入/解除精华帖子v</div>
  627. <div class="td2 h20">是<input name="candigesttopic" type="radio" value="1">&nbsp;否<input name="candigesttopic" type="radio" value="0" checked="true"></div>
  628. <div class="td1 h20">可以锁定/解除锁定其它人帖子</div>
  629. <div class="td2 h20">是<input name="canlocktopic" type="radio" value="1">&nbsp;否<input name="canlocktopic" type="radio" value="0" checked="true"></div>
  630. <div class="td1 h20">可以提升他人帖子</div>
  631. <div class="td2 h20">是<input name="tstopic" type="radio" value="1">&nbsp;否<input name="tstopic" type="radio" value="0" checked="true"></div>
  632. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="添 加" name="b1"></div></div></form>
  633. <%
  634. end sub
  636. sub saveaddclass
  637. dim classname,classsetting
  638. classname=request.form("classname")
  639. if classname="" then
  640. call goback("","您没有输入组名,请输入组名。")
  641. exit sub
  642. end if
  644. classsetting=request.form("canviewuserinfo") & "," & request.form("canviewnewtopic") & "," & request.form("canviewtopicdigest") & "," & request.form("cannewtopic") & "," & request.form("canpostmytopic") & "," & request.form("canpostorthertopic") & "," & request.form("canupfile") & "," & request.form("cannewtopicvote") & "," & request.form("canposttopicvote") & "," & request.form("caneditmytopic") & "," & request.form("cansendmessage") & "," & request.form("sendmaxcount") & "," & request.form("sendmessagemaxsize") & "," & request.form("messagemaxsize") & "," & request.form("candeltopic") & "," & request.form("canmovetopic") & "," & request.form("cantoptopic") & "," & request.form("canttoptopic") & ","& request.form("canedittopic") & "," & request.form("candigesttopic") & "," & request.form("canlocktopic") & "," & request.form("tstopic")
  645. dim rs
  646. set rs=conn.execute("select * from yx_usergrade where gradename='" & classname & "'")
  648. if not(rs.eof and rs.bof) then
  649. call goback("","该等级名称已经存在!")
  650. exit sub
  651. end if
  653. dim sql
  654. set rs=server.createobject("adodb.recordset")
  655. sql="select * from yx_userclass where classname='"& classname &"'"
  656. rs.open sql,conn,1,3
  657. if rs.eof or rs.bof then
  658. rs.addnew
  659. rs("classname")=classname
  660. rs("classsetting")=classsetting
  661. rs.update
  662. else
  663. call goback("","该用户组名称已经存在！")
  664. exit sub
  665. end if
  667. rs.close
  668. set rs=nothing
  669. call suc("","用户组添加成功！","?action=userclass")
  670. end sub
  672. sub userclass
  673. %>
  674. <div class="ta">
  675. <div class="th jz">用 户 组 管 理</div>
  676. <div class="td3 w160">用户组</div>
  677. <div class="td3 w100">用户数量</div>
  678. <div class="td3 w152">编辑权限</div>
  679. <div class="td3 w160">例出所有用户</div>
  680. <div class="td3 w162">操作</div>
  681.   <%
  682. dim user_count,uc
  683. set rs=conn.execute("select classid,classname from yx_userclass")
  684. while not rs.eof 
  685. set uc=conn.execute("select count(id) from yx_user where classid="&rs(0)&"")
  686. user_count=uc(0)
  687. uc.close
  688. set uc=nothing
  689. %>
  691. <div class="td3 w160"><%=rs("classname")%></div>
  692. <div class="td3 w100"><%=user_count%></div>
  693. <div class="td3 w152"><a href="?action=classedit&classid=<%=rs("classid")%>">编辑</a></div>
  694. <div class="td3 w160"><a href="users.asp?classid=<%=rs("classid")%>">查看</a></div>
  695.                 <div class="td3 w162"><a href="users.asp?action=deluserclass&classid=<%=rs("classid")%>" onclick="checkclick('删除前请先将该组用户全部移动到其他组,否则后果自负!nn您确定要删除吗？')">删除</a></div>
  696.   <%
  697. rs.movenext
  698. wend
  699. rs.close
  700. set rs=nothing
  701. %>
  702. <div style="clear: both;"></div></div>
  703. <%end sub
  705. sub userclassedit
  706. dim rs,classid,classname,classsetting
  707. classid=request("classid")
  708. if not isnumeric(classid) then
  709. call goback("错误提示","参数错误，请提交正确的参数")
  710. exit sub
  711. end if
  712. set rs=conn.execute("select * from yx_userclass where classid="& classid)
  713. if rs.eof or rs.bof then
  714. call goback("错误提示","找不到此用户组或已被删除。")
  715. exit sub
  716. else
  717. classname=rs("classname")
  718. classsetting=split(rs("classsetting"),",")
  719. %>
  720. <form action="?action=saveeditclass" method=post name="creator">
  721. <div class="ta">
  722. <div class="th jz">用 户 组 添 加</div>
  723. <div class="td1 h20">组名称</div>
  724. <div class="td2 h20"><input type="hidden" name="classid" value="<%=classid%>">
  725. <input name="classname" size="20" value="<%=classname%>" readonly></div>
  726. <div style="clear: both;"></div><div class="tf">一般权限</div>
  727. <div class="td1 h20">可以查看会员信息</div>
  728. <div class="td2 h20">是<input name="canviewuserinfo" type="radio" value="1" <%if classsetting(0)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canviewuserinfo" type="radio" value="0" <%if classsetting(0)=0 then response.write "checked=""true"""%>></div>
  729. <div class="td1 h20">可以查看其他人发布的主题</div>
  730. <div class="td2 h20">是<input name="canviewnewtopic" type="radio" value="1" <%if classsetting(1)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canviewnewtopic" type="radio" value="0" <%if classsetting(1)=0 then response.write "checked=""true"""%>></div>
  731. <div class="td1 h20">可以浏览精华帖子</div>
  732. <div class="td2 h20">是<input name="canviewtopicdigest" type="radio" value="1" <%if classsetting(2)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canviewtopicdigest" type="radio" value="0" <%if classsetting(2)=0 then response.write "checked=""true"""%>></div>
  733. <div class="td1 h20">可以发布新主题</div>
  734. <div class="td2 h20">是<input name="cannewtopic" type="radio" value="1" <%if classsetting(3)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="cannewtopic" type="radio" value="0" <%if classsetting(3)=0 then response.write "checked=""true"""%>></div>
  735. <div class="td1 h20">可以回复自己的主题</div>
  736. <div class="td2 h20">是<input name="canpostmytopic" type="radio" value="1" <%if classsetting(4)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canpostmytopic" type="radio" value="0" <%if classsetting(4)=0 then response.write "checked=""true"""%>></div>
  737. <div class="td1 h20">可以回复其他人的主题</div>
  738. <div class="td2 h20">是<input name="canpostorthertopic" type="radio" value="1" <%if classsetting(5)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canpostorthertopic" type="radio" value="0" <%if classsetting(5)=0 then response.write "checked=""true"""%>></div>
  739. <div class="td1 h20">可以上传附件</div>
  740. <div class="td2 h20">是<input name="canupfile" type="radio" value="1" <%if classsetting(6)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canupfile" type="radio" value="0" <%if classsetting(6)=0 then response.write "checked=""true"""%>></div>
  741. <div class="td1 h20">可以发布新投票</div>
  742. <div class="td2 h20">是<input name="cannewtopicvote" type="radio" value="1" <%if classsetting(7)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="cannewtopicvote" type="radio" value="0" <%if classsetting(7)=0 then response.write "checked=""true"""%>></div>
  743. <div class="td1 h20">可以参与投票</div>
  744. <div class="td2 h20">是<input name="canposttopicvote" type="radio" value="1" <%if classsetting(8)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canposttopicvote" type="radio" value="0" <%if classsetting(8)=0 then response.write "checked=""true"""%>></div>
  745. <div class="td1 h20">可以编辑自己的帖子</div>
  746. <div class="td2 h20">是<input name="caneditmytopic" type="radio" value="1" <%if classsetting(9)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="caneditmytopic" type="radio" value="0" <%if classsetting(9)=0 then response.write "checked=""true"""%>></div>
  747. <div class="td1 h20">可以发送短信</div>
  748. <div class="td2 h20">是<input name="cansendmessage" type="radio" value="1" <%if classsetting(10)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="cansendmessage" type="radio" value="0" <%if classsetting(10)=0 then response.write "checked=""true"""%>></div>
  749. <div class="td1 h20">每日最多上传</div>
  750. <div class="td2 h20"><input name="sendmaxcount" size="10" value="<%=classsetting(11)%>"></div>
  751. <div class="td1 h20">上传大小限制</div>
  752. <div class="td2 h20"><input name="sendmessagemaxsize" size="10" value="<%=classsetting(12)%>"> KB</div>
  753. <div class="td1 h20">信箱大小限制</div>
  754. <div class="td2 h20"><input name="smsboxmaxsize" size="10" value="<%=classsetting(13)%>"> KB</div>
  755. <div style="clear: both;"></div><div class="tf">管理权限</div>
  756. <div class="td1 h20">可以删除其它人帖子</div>
  757. <div class="td2 h20">是<input name="candeltopic" type="radio" value="1" <%if classsetting(14)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="candeltopic" type="radio" value="0" <%if classsetting(14)=0 then response.write "checked=""true"""%>></div>
  758. <div class="td1 h20">可以移动其它人帖子</div>
  759. <div class="td2 h20">是<input name="canmovetopic" type="radio" value="1" <%if classsetting(15)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canmovetopic" type="radio" value="0" <%if classsetting(15)=0 then response.write "checked=""true"""%>></div>
  760. <div class="td1 h20">可以固顶/解除固顶帖子</div>
  761. <div class="td2 h20">是<input name="cantoptopic" type="radio" value="1" <%if classsetting(16)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="cantoptopic" type="radio" value="0" <%if classsetting(16)=0 then response.write "checked=""true"""%>></div>
  762. <div class="td1 h20">可以进行帖子总固顶操作</div>
  763. <div class="td2 h20">是<input name="canttoptopic" type="radio" value="1" <%if classsetting(17)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canttoptopic" type="radio" value="0" <%if classsetting(17)=0 then response.write "checked=""true"""%>></div>
  764. <div class="td1 h20">可以编辑其它人帖子</div>
  765. <div class="td2 h20">是<input name="canedittopic" type="radio" value="1" <%if classsetting(18)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canedittopic" type="radio" value="0" <%if classsetting(18)=0 then response.write "checked=""true"""%>></div>
  766. <div class="td1 h20">可以加入/解除精华帖子</div>
  767. <div class="td2 h20">是<input name="candigesttopic" type="radio" value="1" <%if classsetting(19)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="candigesttopic" type="radio" value="0" <%if classsetting(19)=0 then response.write "checked=""true"""%>></div>
  768. <div class="td1 h20">可以锁定/解除锁定其它人帖子</div>
  769. <div class="td2 h20">是<input name="canlocktopic" type="radio" value="1" <%if classsetting(20)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="canlocktopic" type="radio" value="0" <%if classsetting(20)=0 then response.write "checked=""true"""%>></div>
  770. <div class="td1 h20">可以提升他人帖子</div>
  771. <div class="td2 h20">是<input name="tstopic" type="radio" value="1" <%if classsetting(21)=1 then response.write "checked=""true"""%>>&nbsp;否<input name="tstopic" type="radio" value="0" <%if classsetting(21)=0 then response.write "checked=""true"""%>></div>
  772. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="修 改" name="b1"></div></div>
  773. </form>
  775. <%
  776. end if
  777. end sub
  779. sub saveeditclass
  780. dim classid,classsetting,sql
  781. classid=request.form("classid")
  782. if classid="" or not isnumeric(classid) then
  783. call goback("错误提示","参数错误码，请确认正确的参数。")
  784. exit sub
  785. end if
  787. classsetting=request.form("canviewuserinfo") & "," & request.form("canviewnewtopic") & "," & request.form("canviewtopicdigest") & "," & request.form("cannewtopic") & "," & request.form("canpostmytopic") & "," & request.form("canpostorthertopic") & "," & request.form("canupfile") & "," & request.form("cannewtopicvote") & "," & request.form("canposttopicvote") & "," & request.form("caneditmytopic") & "," & request.form("cansendmessage") & "," & request.form("sendmaxcount") & "," & request.form("sendmessagemaxsize") & "," & request.form("smsboxmaxsize") & "," & request.form("candeltopic") & "," & request.form("canmovetopic") & "," & request.form("cantoptopic") & "," & request.form("canttoptopic") & ","& request.form("canedittopic") & "," & request.form("candigesttopic") & "," & request.form("canlocktopic") & "," & request.form("tstopic")
  789. dim rs
  790. set rs=server.createobject("adodb.recordset")
  791. sql="select * from yx_userclass where classid="& request.form("classid")
  792. rs.open sql,conn,1,3
  793. if not (rs.eof and rs.bof) then
  794. 'rs("classname")=classname
  795. rs("classsetting")=classsetting
  796. rs.update
  797. else
  798. call goback("错误提示","没有此用户组，或者已被删除。")
  799. exit sub
  800. end if
  801. rs.close
  802. set rs=nothing
  804. call suc("","用户组修改成功！","?action=userclass")
  805. end sub
  807. sub deluserclass
  808. dim classid
  809. classid=request("classid")
  810. yxbbs.execute("delete * from [yx_userclass] where classid="&classid&"")
  811. call suc("","用户组删除成功！建议您到更新用户数据中进行更新操作！","?action=userclass")
  812. end sub
  814. sub usergradeadd
  815. %>
  816. <form action="?action=saveaddgrade" method=post>
  817. <div class="ta">
  818.         <div class="th jz">添加新的用户等级</div>
  819.         <div class="td1 h20">名称</div>
  820.         <div class="td2 h20"><input name="gradename" size="30"></div>
  821. <div class="td1 h20">等级</div>
  822. <div class="td2 h20"><input name="gradenum" size="30"></div>
  823.         <div class="td1 h20">图片</div>
  824. <div class="td2 h20"><input name="gradepic" size="30"></div>
  825. <div class="td1 h20">最少发贴量</div>
  826. <div class="td2 h20"><input name="userminpostnum" size="30"></div>
  827. <div class="td1 h20">所属用户组</div>
  828. <div class="td2 h20"><select size="1" name="classid">
  829. <%
  830. dim rs
  831. set rs=conn.execute("select classid,classname from yx_userclass order by classid asc")
  832. while not rs.eof
  833. %>
  834. <option value="<%=rs("classid")%>"><%=rs("classname")%></option>
  835. <%
  836. rs.movenext
  837. wend
  838. rs.close
  839. set rs=nothing
  840. %>
  841. </select></div>
  842. <div style="clear: both;"></div><div class="tf jz"><input type="submit" value="添 加" name="b1"></div>
  843. </div></form>
  845. <%
  846. end sub
  848. sub saveaddgrade
  849. dim gradename,gradenum,gradepic,userminpostnum,classid,flag,errstr
  850. gradename=request.form("gradename")
  851. gradenum=request.form("gradenum")
  852. gradepic=request.form("gradepic")
  853. userminpostnum=request.form("userminpostnum")
  854. classid=request.form("classid")
  855. flag=false
  856. errstr=""
  857. if gradename="" then
  858. errstr="<li>等级名没写。</li><br />"
  859. flag=true
  860. end if
  862. if gradenum="" then
  863. errstr=errstr&"<li>等级序号没写。</li><br />"
  864. flag=true
  865. elseif not isnumeric(gradenum) then
  866. errstr=errstr&"<li>等级序号只能是数字。</li><br />"
  867. flag=true
  868. end if
  870. if gradepic="" then
  871. errstr=errstr&"<li>等级图片没有。</li><br />"
  872. flag=true
  873. end if
  875. if userminpostnum="" then
  876. errstr=errstr&"<li>新的等级需要文章数没写</li>"
  877. flag=true
  878. elseif not isnumeric(userminpostnum) then
  879. errstr=errstr&"<li>新的等级文章数只能是数字</li>"
  880. flag=true
  881. end if
  883. if flag then
  884. call goback("错误提示",errstr)
  885. exit sub
  886. end if
  888. dim rs,sql
  889. set rs = server.createobject ("adodb.recordset")
  890. sql="select * from yx_usergrade where gradename='" & gradename& "'"
  891. rs.open sql,conn,1,3
  892. if rs.eof or rs.bof then
  893. rs.addnew
  894. rs("gradename")=gradename
  895. rs("gradenum")=gradenum
  896. rs("gradepic")=gradepic
  897. rs("userminpostnum")=userminpostnum
  898. rs("classid")=classid
  899. rs.update
  900. else
  901. call goback("","<li>该等级名称已经存在。")
  902.                 
  903. exit sub
  904. end if
  905. rs.close
  906. set rs=nothing
  907. call suc("","用户等级添加成功！建议您到更新用户数据中进行更新操作！","?action=usergrade")
  908. end sub
  910. sub usergrade
  911. %>
  912. <form method="post" action="?action=updategrade">
  913. <div class="ta">
  914. <div class="th jz">用 户 等 级 管 理</div>
  915. <div class="td3 h20 w160">名称</div>
  916. <div class="td3 h20 w160">图片</div>
  917. <div class="td3 h20 w100">等级</div>
  918. <div class="td3 h20 w100">最少发贴量</div>
  919. <div class="td3 h20 w100">所属用户组id</div>
  920. <div class="td3 h20 w106">操作</div>
  921. <%
  922. dim rs
  923. set rs=conn.execute("select * from yx_usergrade order by gradeid asc")
  924. while not rs.eof 
  925. %>
  926.   <div class="td3 h20 w160">
  927. <input type="hidden" name="gradeid"  value="<%=rs("gradeid")%>">
  928. <input type="text" name="gradename" size="14" value="<%=rs("gradename")%>"></div>
  929. <div class="td3 h20 w160">
  930. <input type="text" name="gradepic" size="22" value="<%=rs("gradepic")%>"></div>
  931. <div class="td3 h20 w100">
  932. <input type="text" name="gradenum" size="10" value="<%=rs("gradenum")%>"></div>
  933. <div class="td3 h20 w100"><input type="text" name="userminpostnum" size="10" value="<%=rs("userminpostnum")%>"></div>
  934. <div class="td3 h20 w100"><input type="text" name="classid" size="10" value="<%=rs("classid")%>"></div>
  935. <div class="td3 h20 w106">
  936. <a href="?action=delusergrade&gradeid=<%=rs("gradeid")%>">删除</a></div>
  937. <%
  938. rs.movenext
  939. wend
  940. rs.close
  941. set rs=nothing
  942. %>
  943. <div style="clear: both;"></div><div class="tf jz">
  944. <input type="submit" value="提交" name="b1"></div>
  945. </div>
  946. </form>
  948. <%
  949. end sub
  951. sub updateusergrade
  952. server.scripttimeout=99999999
  953. dim gradenum,gradename,gradepic,userminpostnum,classid,i
  954. for i=1 to request.form("gradenum").count
  955. gradenum=replace(request.form("gradenum")(i),"'","")
  956. gradename=replace(request.form("gradename")(i),"'","")
  957. gradenum=replace(request.form("gradenum")(i),"'","")
  958. gradepic=replace(request.form("gradepic")(i),"'","")
  959. userminpostnum=replace(request.form("userminpostnum")(i),"'","")
  960. classid=replace(request.form("classid")(i),"'","")
  961. if isnumeric(gradenum) and gradename<>"" and gradepic<>"" and isnumeric(userminpostnum) and isnumeric(classid) and isnumeric(gradenum)then
  962. dim rs
  963. set rs=conn.execute("select gradenum,classid from yx_user where gradenum="&gradenum)
  964. if not rs.eof then
  965. if rs("classid")<>cint(classid) then
  966. conn.execute("update yx_user set gradenum=" & gradenum & ",classid="&classid&" where gradename='"& rs("gradename") &"'")
  967. end if
  968. end if
  969. set rs=nothing
  970. conn.execute("update yx_usergrade set gradename='"&gradename &"',gradenum="&gradenum&",gradepic='"&gradepic&"',userminpostnum="&userminpostnum&",classid="&classid&" where gradenum="&gradenum)
  971. end if
  972. next
  973. call suc("","用户等级设置成功！","?action=usergrade")
  974. end sub
  976. sub delusergrade
  977. dim gradeid
  978. gradeid=request("gradeid")
  979. yxbbs.execute("delete * from [yx_usergrade] where gradeid="&gradeid&"")
  980. call suc("","用户等级删除成功！建议您到更新用户数据中进行更新操作！","?action=usergrade")
  981. end sub
  982. %>