<%=ForumName%>--管理页面

<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"

本页面为管理员专用，请登陆后进入。" call Error() else dim rs,sql dim topic,username,dateandtime,body call main() conn.close set conn=nothing end if sub main() %> align=center>

欢迎<%=session("mastername")%>进入管理页面

<%call leftmenu()%>

<% if request("action")="update" then call update() response.write ""&body&"" else %> <% end if %>

>
更新用户数据：
注意：这里将重新统计所有用户等级信息，更新后所有用户数据将按照设定的升级条件排列等级。

<% ' response.write ""&body&"" end sub sub update() set rs=server.createobject("adodb.recordset") 'on error resume next 'conn.execute("update [user] set userclass='18' where userclass='贵宾'") 'conn.execute("update [user] set userclass='19' where userclass='版主'") 'conn.execute("update [user] set userclass='20' where userclass='总版主'") 'conn.execute("update [user] set userclass='20' where userclass='管理员'") conn.execute("update [user] set userclass=1 where article<0") conn.execute("update [user] set userclass=1 where (article>="&point(1)&" and article<"&point(2)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=2 where (article>="&point(2)&" and article<"&point(3)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=3 where (article>="&point(3)&" and article<"&point(4)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=4 where (article>="&point(4)&" and article<"&point(5)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=5 where (article>="&point(5)&" and article<"&point(6)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=6 where (article>="&point(6)&" and article<"&point(7)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=7 where (article>="&point(7)&" and article<"&point(8)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=8 where (article>="&point(8)&" and article<"&point(9)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=9 where (article>="&point(9)&" and article<"&point(10)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=10 where (article>="&point(10)&" and article<"&point(11)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=11 where (article>="&point(11)&" and article<"&point(12)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=12 where (article>="&point(12)&" and article<"&point(13)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=13 where (article>="&point(13)&" and article<"&point(14)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=14 where (article>="&point(14)&" and article<"&point(15)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=15 where (article>="&point(15)&" and article<"&point(16)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=16 where (article>="&point(16)&" and article<"&point(17)&") and not (userclass=18 or userclass=19 or userclass=20)") conn.execute("update [user] set userclass=17 where article>="&point(17)&" and not (userclass=18 or userclass=19 or userclass=20)") 'conn.execute("update [user] set userclass=1 where userclass>'20'") body=body+"
"+"更新用户数据成功("&now()&")。" end sub %>