userGrade.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 20k
Category: Applications
Development Platform: PHP
  1. <!--#include file="../data/CONN2.asp"-->
  2. <!--#include file="pass.asp"-->
  3. <!-- #include file="css.asp"-->
  4. <!--#include file="../inc/blacklist_pro.asp"-->
  5. <script language="JavaScript" src="../inc/window.js"></script>
  6. <body bgcolor="<%=crs(0)%>" leftmargin="1">
  7. <%
  8. if uoID = 2 then Call opPass(isPass(9),0)
  9. Dim ugID, ts, txt, ugTxt, i, ut
  10. ugID=Cint(Request.QueryString("ugID"))
  11. if Request.Form("action")="确定更新权限" then
  12. ugTxt=""
  13. For i=1 to 50
  14. ugTxt=ugTxt&Request.Form("ug"&i)&"|"
  15. Next
  16. 'Response.write ugTxt
  17. 'Response.end
  18. Set rs=Conn.Execute("UPDATE userGrade set ugTxt='"&ugTxt&"' where ugID="&Cint(Request.Form("ugID"))&"")
  19. if isObject(rs) then
  20. txt="操作成功!2秒后返回!!!"
  21. else
  22. txt="意外错误,操作失败!!!"
  23. end if
  24. Response.Write(txt)
  25. Call rPage(2,"")
  26. Response.End()
  27. end if %>
  28. <table width="99%" border="0" align="center" cellpadding="6" cellspacing="2" bgcolor=<%=crs(1)%>>
  29.   <tr bgcolor=<%=crs(2)%>> 
  30.     <td width="260" align="right"> &nbsp;<strong>请选择你要操作的用户等级</strong>:</td>
  31.     <td width="*"> 
  32.       <select name="ugID" id="ugID" onChange="MM_jumpMenu('self',this,1)">
  33. <option value="userGrade.asp?ugID=0" selected>用户等级列表</option>
  34. <% Set rs=Server.CreateObject("ADODB.RECORDSET")
  35. rs.Open"select * From userGrade order by ugID",conn,1,1
  36. Do While not rs.eof 
  37. if rs("ugID")=ugID then Response.Write("<option value=""userGrade.asp?ugID="""&ugID&""" selected>"&rs("ugName")&"</option>")
  38. Response.Write("<option value=""userGrade.asp?ugID="&rs("ugID")&""">"&rs("ugName")&"</option>")
  39. rs.MoveNext
  40. Loop
  41. rs.Close
  42. Set rs=Nothing %>
  43. </select></td></tr>
  44. <%if ugID>0 then 
  45. Call userGrade(ugID)
  46. end if 
  47. Sub userGrade(i) %>
  48. <form name="form2" method="post" action="">
  49. <tr bgcolor=<%=crs(2)%>><td  align="right">浏览论坛首页:</td>
  50.       <td>
  51. <%if ugID>0 then 
  52. Set ts=Server.CreateObject("ADODB.RECORDSET")
  53. ts.Open"SELECT * FROM userGrade where ugID="&ugID&"",conn,1,1
  54. if not ts.eof then
  55. ut = ts("ugTxt")
  56. end if
  57. ts.Close
  58. Set ts=Nothing
  59. end if
  60. txt="<input type=""radio"" name=""ug1"" value=""1"" "
  61. if left(ut,1) = "1" then txt=txt&" checked "
  62. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug1"" value=""0"" "
  63. if left(ut,1) = "0" then txt=txt&" checked "
  64. txt=txt&">不可以"
  65. Response.Write(txt)%></td>
  66. <tr bgcolor=<%=crs(2)%>><td align="right">浏览论坛分类:</td>
  67. <td>
  68. <%
  69. txt="<input type=""radio"" name=""ug2"" value=""1"" "
  70. if MID(ut,3,1) = "1" then txt=txt&" checked "
  71. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug2"" value=""0"" "
  72. if MID(ut,3,1) = "0" then txt=txt&" checked "
  73. txt=txt&">不可以"
  74. Response.Write(txt)
  75. %>
  76. </td>
  77.     <tr bgcolor=<%=crs(2)%>> 
  78.       <td align="right">浏览论坛版面:</td>
  79.       <td>
  80. <%
  81. txt="<input type=""radio"" name=""ug3"" value=""1"" "
  82. if MID(ut,5,1) = "1" then txt=txt&" checked "
  83. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug3"" value=""0"" "
  84. if MID(ut,5,1) = "0" then txt=txt&" checked "
  85. txt=txt&">不可以"
  86. Response.Write(txt)
  87. %>
  88. </td><tr bgcolor=<%=crs(2)%>><td align="right">浏览论坛普通文章:</td>
  89. <td>
  90. <%
  91. txt="<input type=""radio"" name=""ug4"" value=""1"" "
  92. if MID(ut,7,1) = "1" then txt=txt&" checked "
  93. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug4"" value=""0"" "
  94. if MID(ut,7,1) = "0" then txt=txt&" checked "
  95. txt=txt&">不可以"
  96. Response.Write(txt)
  97. %>
  98. </td><tr bgcolor=<%=crs(2)%>>
  99.       <td align="right">浏览论坛精品版面:</td>
  100.       <td>
  101. <%
  102. txt="<input type=""radio"" name=""ug5"" value=""1"" "
  103. if MID(ut,9,1) = "1" then txt=txt&" checked "
  104. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug5"" value=""0"" "
  105. if MID(ut,9,1) = "0" then txt=txt&" checked "
  106. txt=txt&">不可以"
  107. Response.Write(txt)
  108. %>
  109. </td><tr bgcolor=<%=crs(2)%>>
  110.       <td align="right">浏览论坛精品文章:</td>
  111.       <td>
  112. <%
  113. txt="<input type=""radio"" name=""ug6"" value=""1"" "
  114. if MID(ut,11,1) = "1" then txt=txt&" checked "
  115. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug6"" value=""0"" "
  116. if MID(ut,11,1) = "0" then txt=txt&" checked "
  117. txt=txt&">不可以"
  118. Response.Write(txt)
  119. %>
  120. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看写手榜:</td>
  121. <td>
  122. <%
  123. txt="<input type=""radio"" name=""ug7"" value=""1"" "
  124. if MID(ut,13,1) = "1" then txt=txt&" checked "
  125. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug7"" value=""0"" "
  126. if MID(ut,13,1) = "0" then txt=txt&" checked "
  127. txt=txt&">不可以"
  128. Response.Write(txt)
  129. %>
  130. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看管理团队:</td>
  131. <td>
  132. <%
  133. txt="<input type=""radio"" name=""ug8"" value=""1"" "
  134. if MID(ut,15,1) = "1" then txt=txt&" checked "
  135. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug8"" value=""0"" "
  136. if MID(ut,15,1) = "0" then txt=txt&" checked "
  137. txt=txt&">不可以"
  138. Response.Write(txt)
  139. %>
  140. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看最新/最热话题:</td>
  141. <td>
  142. <%
  143. txt="<input type=""radio"" name=""ug9"" value=""1"" "
  144. if MID(ut,17,1) = "1" then txt=txt&" checked "
  145. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug9"" value=""0"" "
  146. if MID(ut,17,1) = "0" then txt=txt&" checked "
  147. txt=txt&">不可以"
  148. Response.Write(txt)
  149. %>
  150. </td><tr bgcolor=<%=crs(2)%>><td align="right"><p>查看自己或他人参与,发起的话题:</p></td><td>
  151. <%
  152. txt="<input type=""radio"" name=""ug10"" value=""1"" "
  153. if MID(ut,19,1) = "1" then txt=txt&" checked "
  154. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug10"" value=""0"" "
  155. if MID(ut,19,1) = "0" then txt=txt&" checked "
  156. txt=txt&">不可以"
  157. Response.Write(txt)
  158. %>
  159. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看总在线名单:</td>
  160. <td>
  161. <%
  162. txt="<input type=""radio"" name=""ug11"" value=""1"" "
  163. if MID(ut,21,1) = "1" then txt=txt&" checked "
  164. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug11"" value=""0"" "
  165. if MID(ut,21,1) = "0" then txt=txt&" checked "
  166. txt=txt&">不可以"
  167. Response.Write(txt)
  168. %>
  169. </td><tr bgcolor=<%=crs(2)%>><td align="right">单独版面在线名单:</td>
  170. <td>
  171. <%
  172. txt="<input type=""radio"" name=""ug12"" value=""1"" "
  173. if MID(ut,23,1) = "1" then txt=txt&" checked "
  174. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug12"" value=""0"" "
  175. if MID(ut,23,1) = "0" then txt=txt&" checked "
  176. txt=txt&">不可以"
  177. Response.Write(txt)
  178. %>
  179. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看在线ip地址:</td>
  180. <td>
  181. <%
  182. txt="<input type=""radio"" name=""ug13"" value=""1"" "
  183. if MID(ut,25,1) = "1" then txt=txt&" checked "
  184. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug13"" value=""0"" "
  185. if MID(ut,25,1) = "0" then txt=txt&" checked "
  186. txt=txt&">不可以"
  187. Response.Write(txt)
  188. %>
  189. </td><tr bgcolor=<%=crs(2)%>><td align="right">查看来源鉴定:</td>
  190. <td>
  191. <%
  192. txt="<input type=""radio"" name=""ug14"" value=""1"" "
  193. if MID(ut,27,1) = "1" then txt=txt&" checked "
  194. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug14"" value=""0"" "
  195. if MID(ut,27,1) = "0" then txt=txt&" checked "
  196. txt=txt&">不可以"
  197. Response.Write(txt)
  198. %></td><tr bgcolor=<%=crs(2)%>><td align="right">查看其他用户资料:</td>
  199. <td>
  200. <%
  201. txt="<input type=""radio"" name=""ug15"" value=""1"" "
  202. if MID(ut,29,1) = "1" then txt=txt&" checked "
  203. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug15"" value=""0"" "
  204. if MID(ut,29,1) = "0" then txt=txt&" checked "
  205. txt=txt&">不可以"
  206. Response.Write(txt)
  207. %></td><tr bgcolor=<%=crs(2)%>><td align="right">登陆论坛:</td>
  208. <td>
  209. <%
  210. txt="<input type=""radio"" name=""ug16"" value=""1"" "
  211. if MID(ut,31,1) = "1" then txt=txt&" checked "
  212. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug16"" value=""0"" "
  213. if MID(ut,31,1) = "0" then txt=txt&" checked "
  214. txt=txt&">不可以"
  215. Response.Write(txt)
  216. %>
  217. </td><tr bgcolor=<%=crs(2)%>><td align="right">使用工具箱(论坛短信、资料修改):</td>
  218. <td>
  219. <%
  220. txt="<input type=""radio"" name=""ug17"" value=""1"" "
  221. if MID(ut,33,1) = "1" then txt=txt&" checked "
  222. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug17"" value=""0"" "
  223. if MID(ut,33,1) = "0" then txt=txt&" checked "
  224. txt=txt&">不可以"
  225. Response.Write(txt)
  226. %>
  227. </td><tr bgcolor=<%=crs(2)%>><td align="right">在线发送Email:</td>
  228. <td>
  229. <%
  230. txt="<input type=""radio"" name=""ug18"" value=""1"" "
  231. if MID(ut,35,1) = "1" then txt=txt&" checked "
  232. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug18"" value=""0"" "
  233. if MID(ut,35,1) = "0" then txt=txt&" checked "
  234. txt=txt&">不可以"
  235. Response.Write(txt)
  236. %>
  237. </td><tr bgcolor=<%=crs(2)%>><td align="right">给用户发短信:</td>
  238. <td>
  239. <%
  240. txt="<input type=""radio"" name=""ug19"" value=""1"" "
  241. if MID(ut,37,1) = "1" then txt=txt&" checked "
  242. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug19"" value=""0"" "
  243. if MID(ut,37,1) = "0" then txt=txt&" checked "
  244. txt=txt&">不可以"
  245. Response.Write(txt)
  246. %>
  247. </td><tr bgcolor=<%=crs(2)%>><td align="right">察看他人参与发起的主题和回复:</td>
  248. <td>
  249. <%
  250. txt="<input type=""radio"" name=""ug20"" value=""1"" "
  251. if MID(ut,39,1) = "1" then txt=txt&" checked "
  252. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug20"" value=""0"" "
  253. if MID(ut,39,1) = "0" then txt=txt&" checked "
  254. txt=txt&">不可以"
  255. Response.Write(txt)
  256. %>
  257. </td><tr bgcolor=<%=crs(2)%>><td align="right">论坛搜索:</td>
  258. <td>
  259. <%
  260. txt="<input type=""radio"" name=""ug21"" value=""1"" "
  261. if MID(ut,41,1) = "1" then txt=txt&" checked "
  262. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug21"" value=""0"" "
  263. if MID(ut,41,1) = "0" then txt=txt&" checked "
  264. txt=txt&">不可以"
  265. Response.Write(txt)
  266. %>
  267. </td><tr bgcolor=<%=crs(2)%>><td align="right">发表文章:</td>
  268. <td>
  269. <%
  270. txt="<input type=""radio"" name=""ug22"" value=""1"" "
  271. if MID(ut,43,1) = "1" then txt=txt&" checked "
  272. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug22"" value=""0"" "
  273. if MID(ut,43,1) = "0" then txt=txt&" checked "
  274. txt=txt&">不可以"
  275. Response.Write(txt)
  276. %>
  277. </td><tr bgcolor=<%=crs(2)%>><td align="right"><p>回复文章:</p></td><td>
  278. <%
  279. txt="<input type=""radio"" name=""ug23"" value=""1"" "
  280. if MID(ut,45,1) = "1" then txt=txt&" checked "
  281. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug23"" value=""0"" "
  282. if MID(ut,45,1) = "0" then txt=txt&" checked "
  283. txt=txt&">不可以"
  284. Response.Write(txt)
  285. %>
  286. </td><tr bgcolor=<%=crs(2)%>><td align="right">编辑文章:</td>
  287. <td>
  288. <%
  289. txt="<input type=""radio"" name=""ug24"" value=""1"" "
  290. if MID(ut,47,1) = "1" then txt=txt&" checked "
  291. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug24"" value=""0"" "
  292. if MID(ut,47,1) = "0" then txt=txt&" checked "
  293. txt=txt&">不可以"
  294. Response.Write(txt)
  295. %>
  296. </td><tr bgcolor=<%=crs(2)%>><td align="right">编辑自己的文章:</td>
  297. <td>
  298. <%
  299. txt="<input type=""radio"" name=""ug25"" value=""1"" "
  300. if MID(ut,49,1) = "1" then txt=txt&" checked "
  301. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug25"" value=""0"" "
  302. if MID(ut,49,1) = "0" then txt=txt&" checked "
  303. txt=txt&">不可以"
  304. Response.Write(txt)
  305. %>
  306. </td><tr bgcolor=<%=crs(2)%>><td align="right">删除文章:</td>
  307. <td>
  308. <%
  309. txt="<input type=""radio"" name=""ug26"" value=""1"" "
  310. if MID(ut,51,1) = "1" then txt=txt&" checked "
  311. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug26"" value=""0"" "
  312. if MID(ut,51,1) = "0" then txt=txt&" checked "
  313. txt=txt&">不可以"
  314. Response.Write(txt)
  315. %>
  316. </td><tr bgcolor=<%=crs(2)%>><td align="right">删除自己的文章:</td>
  317. <td>
  318. <%
  319. txt="<input type=""radio"" name=""ug27"" value=""1"" "
  320. if MID(ut,53,1) = "1" then txt=txt&" checked "
  321. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug27"" value=""0"" "
  322. if MID(ut,53,1) = "0" then txt=txt&" checked "
  323. txt=txt&">不可以"
  324. Response.Write(txt)
  325. %>
  326. </td><tr bgcolor=<%=crs(2)%>><td align="right">移动文章:</td>
  327. <td>
  328. <%
  329. txt="<input type=""radio"" name=""ug28"" value=""1"" "
  330. if MID(ut,55,1) = "1" then txt=txt&" checked "
  331. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug28"" value=""0"" "
  332. if MID(ut,55,1) = "0" then txt=txt&" checked "
  333. txt=txt&">不可以"
  334. Response.Write(txt)
  335. %>
  336. </td><tr bgcolor=<%=crs(2)%>> <td align="right">移动自己的文章:</td>
  337. <td>
  338. <%
  339. txt="<input type=""radio"" name=""ug29"" value=""1"" "
  340. if MID(ut,57,1) = "1" then txt=txt&" checked "
  341. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug29"" value=""0"" "
  342. if MID(ut,57,1) = "0" then txt=txt&" checked "
  343. txt=txt&">不可以"
  344. Response.Write(txt)
  345. %></td><tr bgcolor=<%=crs(2)%>><td align="right">加为精品文章:</td>
  346. <td>
  347. <%
  348. txt="<input type=""radio"" name=""ug30"" value=""1"" "
  349. if MID(ut,59,1) = "1" then txt=txt&" checked "
  350. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug30"" value=""0"" "
  351. if MID(ut,59,1) = "0" then txt=txt&" checked "
  352. txt=txt&">不可以"
  353. Response.Write(txt)
  354. %>
  355. </td><tr bgcolor=<%=crs(2)%>><td align="right">加自己的文章为精品文章:</td>
  356. <td>
  357. <%
  358. txt="<input type=""radio"" name=""ug31"" value=""1"" "
  359. if MID(ut,61,1) = "1" then txt=txt&" checked "
  360. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug31"" value=""0"" "
  361. if MID(ut,61,1) = "0" then txt=txt&" checked "
  362. txt=txt&">不可以"
  363. Response.Write(txt)
  364. %>
  365. </td><tr bgcolor=<%=crs(2)%>><td align="right">置顶主题:</td>
  366. <td>
  367. <%
  368. txt="<input type=""radio"" name=""ug32"" value=""1"" "
  369. if MID(ut,63,1) = "1" then txt=txt&" checked "
  370. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug32"" value=""0"" "
  371. if MID(ut,63,1) = "0" then txt=txt&" checked "
  372. txt=txt&">不可以"
  373. Response.Write(txt)
  374. %>
  375. </td><tr bgcolor=<%=crs(2)%>><td align="right">批量管理界面:</td>
  376. <td>
  377. <%
  378. txt="<input type=""radio"" name=""ug33"" value=""1"" "
  379. if MID(ut,65,1) = "1" then txt=txt&" checked "
  380. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug33"" value=""0"" "
  381. if MID(ut,65,1) = "0" then txt=txt&" checked "
  382. txt=txt&">不可以"
  383. Response.Write(txt)
  384. %>
  385. </td><tr bgcolor=<%=crs(2)%>><td align="right">批量置顶:</td>
  386. <td>
  387. <%
  388. txt="<input type=""radio"" name=""ug34"" value=""1"" "
  389. if MID(ut,67,1) = "1" then txt=txt&" checked "
  390. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug34"" value=""0"" "
  391. if MID(ut,67,1) = "0" then txt=txt&" checked "
  392. txt=txt&">不可以"
  393. Response.Write(txt)
  394. %>
  395. </td><tr bgcolor=<%=crs(2)%>><td align="right">批量删除:</td>
  396. <td>
  397. <%
  398. txt="<input type=""radio"" name=""ug35"" value=""1"" "
  399. if MID(ut,69,1) = "1" then txt=txt&" checked "
  400. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug35"" value=""0"" "
  401. if MID(ut,69,1) = "0" then txt=txt&" checked "
  402. txt=txt&">不可以"
  403. Response.Write(txt)
  404. %>
  405. </td><tr bgcolor=<%=crs(2)%>><td align="right">批量锁定:</td>
  406. <td>
  407. <%
  408. txt="<input type=""radio"" name=""ug36"" value=""1"" "
  409. if MID(ut,71,1) = "1" then txt=txt&" checked "
  410. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug36"" value=""0"" "
  411. if MID(ut,71,1) = "0" then txt=txt&" checked "
  412. txt=txt&">不可以"
  413. Response.Write(txt)
  414. %>
  415. </td><tr bgcolor=<%=crs(2)%>><td align="right">批量精品:</td>
  416. <td>
  417. <%
  418. txt="<input type=""radio"" name=""ug37"" value=""1"" "
  419. if MID(ut,73,1) = "1" then txt=txt&" checked "
  420. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug37"" value=""0"" "
  421. if MID(ut,73,1) = "0" then txt=txt&" checked "
  422. txt=txt&">不可以"
  423. Response.Write(txt)
  424. %>
  425. </td><tr bgcolor=<%=crs(2)%>><td align="right">给论坛修改简介:</td>
  426. <td>
  427. <%
  428. txt="<input type=""radio"" name=""ug38"" value=""1"" "
  429. if MID(ut,75,1) = "1" then txt=txt&" checked "
  430. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug38"" value=""0"" "
  431. if MID(ut,75,1) = "0" then txt=txt&" checked "
  432. txt=txt&">不可以"
  433. Response.Write(txt)
  434. %>
  435. </td><tr bgcolor=<%=crs(2)%>><td align="right">添加论坛公告:</td>
  436. <td>
  437. <%
  438. txt="<input type=""radio"" name=""ug39"" value=""1"" "
  439. if MID(ut,77,1) = "1" then txt=txt&" checked "
  440. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug39"" value=""0"" "
  441. if MID(ut,77,1) = "0" then txt=txt&" checked "
  442. txt=txt&">不可以"
  443. Response.Write(txt)
  444. %>
  445. </td><tr bgcolor=<%=crs(2)%>><td align="right">添加/删除正版主:</td>
  446. <td>
  447. <%
  448. txt="<input type=""radio"" name=""ug40"" value=""1"" "
  449. if MID(ut,79,1) = "1" then txt=txt&" checked "
  450. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug40"" value=""0"" "
  451. if MID(ut,79,1) = "0" then txt=txt&" checked "
  452. txt=txt&">不可以"
  453. Response.Write(txt)
  454. %>
  455. </td><tr bgcolor=<%=crs(2)%>><td align="right">添加/删除副版主:</td>
  456. <td>
  457. <%
  458. txt="<input type=""radio"" name=""ug41"" value=""1"" "
  459. if MID(ut,81,1) = "1" then txt=txt&" checked "
  460. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug41"" value=""0"" "
  461. if MID(ut,81,1) = "0" then txt=txt&" checked "
  462. txt=txt&">不可以"
  463. Response.Write(txt)
  464. %>
  465. </td>
  466. <tr bgcolor=<%=crs(2)%>><td align="right">添加/删除荣誉版主:</td>
  467. <td>
  468. <%
  469. txt="<input type=""radio"" name=""ug42"" value=""1"" "
  470. if MID(ut,83,1) = "1" then txt=txt&" checked "
  471. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug42"" value=""0"" "
  472. if MID(ut,83,1) = "0" then txt=txt&" checked "
  473. txt=txt&">不可以"
  474. Response.Write(txt)
  475. %>
  476. </td><tr bgcolor=<%=crs(2)%>><td align="right">修改论坛LOGO图片:</td>
  477. <td>
  478. <%
  479. txt="<input type=""radio"" name=""ug43"" value=""1"" "
  480. if MID(ut,85,1) = "1" then txt=txt&" checked "
  481. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug43"" value=""0"" "
  482. if MID(ut,85,1) = "0" then txt=txt&" checked "
  483. txt=txt&">不可以"
  484. Response.Write(txt)
  485. %>
  486. </td><tr bgcolor=<%=crs(2)%>><td align="right">彻底清空论坛帖子<font color="#999999">(建议仅限管理员)</font>:</td>
  487. <td>
  488. <%
  489. txt="<input type=""radio"" name=""ug44"" value=""1"" "
  490. if MID(ut,87,1) = "1" then txt=txt&" checked "
  491. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug44"" value=""0"" "
  492. if MID(ut,87,1) = "0" then txt=txt&" checked "
  493. txt=txt&">不可以"
  494. Response.Write(txt)
  495. %>
  496. </td><tr bgcolor=<%=crs(2)%>><td align="right">将用户列入/解除黑名单:</td>
  497. <td>
  498. <%
  499. txt="<input type=""radio"" name=""ug45"" value=""1"" "
  500. if MID(ut,89,1) = "1" then txt=txt&" checked "
  501. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug45"" value=""0"" "
  502. if MID(ut,89,1) = "0" then txt=txt&" checked "
  503. txt=txt&">不可以"
  504. Response.Write(txt)
  505. %>
  506. </td><tr bgcolor=<%=crs(2)%>><td align="right">解除被其他管理员列入黑名单的用户:</td>
  507. <td>
  508. <%
  509. txt="<input type=""radio"" name=""ug46"" value=""1"" "
  510. if MID(ut,91,1) = "1" then txt=txt&" checked "
  511. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug46"" value=""0"" "
  512. if MID(ut,91,1) = "0" then txt=txt&" checked "
  513. txt=txt&">不可以"
  514. Response.Write(txt)
  515. %>
  516. </td></tr><tr bgcolor=<%=crs(2)%>>
  517. <td align="right">将帖子总固顶:</td>
  518. <td>
  519. <%
  520. txt="<input type=""radio"" name=""ug47"" value=""1"" "
  521. if MID(ut,93,1) = "1" then txt=txt&" checked "
  522. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug47"" value=""0"" "
  523. if MID(ut,93,1) = "0" then txt=txt&" checked "
  524. txt=txt&">不可以"
  525. Response.Write(txt)
  526. %></td>
  527. </tr>
  528. <tr bgcolor=<%=crs(2)%>>
  529. <td align="right">清空版面:</td>
  530. <td>
  531. <%
  532. txt="<input type=""radio"" name=""ug49"" value=""1"" "
  533. if MID(ut,97,1) = "1" then txt=txt&" checked "
  534. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug49"" value=""0"" "
  535. if MID(ut,97,1) = "0" then txt=txt&" checked "
  536. txt=txt&">不可以"
  537. Response.Write(txt)
  538. %></td>
  539. </tr>
  540. <tr bgcolor=<%=crs(2)%>>
  541. <td align="right">浏览媒体库:</td>
  542. <td>
  543. <%
  544. txt="<input type=""radio"" name=""ug48"" value=""1"" "
  545. if MID(ut,95,1) = "1" then txt=txt&" checked "
  546. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug48"" value=""0"" "
  547. if MID(ut,95,1) = "0" then txt=txt&" checked "
  548. txt=txt&">不可以"
  549. Response.Write(txt)
  550. %></td>
  551. </tr>
  552. <tr bgcolor=<%=crs(2)%>>
  553. <td align="right">强行浏览积分贴:</td>
  554. <td>
  555. <%
  556. txt="<input type=""radio"" name=""ug50"" value=""1"" "
  557. if MID(ut,99,1) = "1" then txt=txt&" checked "
  558. txt= txt & ">可以&nbsp;&nbsp;&nbsp;&nbsp;<input type=""radio"" name=""ug50"" value=""0"" "
  559. if MID(ut,99,1) = "0" then txt=txt&" checked "
  560. txt=txt&">不可以"
  561. Response.Write(txt)
  562. %></td>
  563. </tr><tr align="center" bgcolor=<%=crs(2)%>><td colspan="2">
  564. <input name="action" type="submit" id="action" value="确定更新权限">
  565. <input name="ugID" type="hidden" id="ugID" value="<%=ugID%>"></td>
  566. </form></table>
  567. <% End Sub %>