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

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

本页面为管理员专用，请登陆后进入。" call Error() else %> <% dim rs,sql dim tmprs dim allarticle dim Maxid dim topic,username,dateandtime,body call main() set rs=nothing 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 %> <% rs.close end if %>

>
管理员信息修改：
注意：这里将修改管理员登陆名和密码，修改后请记住新用户和密码。

<% set rs=server.createobject("adodb.recordset") sql="select * from admin" rs.open sql,conn,1,1 %>
"> ">
">

<% ' response.write ""&body&"" end sub sub update() set rs=server.createobject("adodb.recordset") sql="select * from admin where username='"&trim(request("oldusername"))&"'" rs.open sql,conn,1,3 if not rs.eof and not rs.bof then rs("username")=trim(request("username")) rs("password")=trim(request("password")) body="

管理员更新成功，请记住更新信息。" rs.update end if rs.close end sub %>