<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。" call Error() else set rs=server.createobject("adodb.recordset") call main() set rs=nothing conn.close set conn=nothing end if sub main() %> align=center>
    >
    欢迎 <%=session("mastername")%>进入管理页面
    <%call leftmenu()%> <% if request("action")="save" then call update() else call userinfo() end if %>
    <% end sub sub userinfo() sql="Select * from [User] where username='"&trim(request("name"))&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then errmsg=errmsg+"
    "+"
  • 该用户名不存在。" call error() exit sub else %>
    > > >
    ><%=htmlencode(rs("username"))%>的个人资料
    用户头衔（管理员设定） ">
    用户名 "> ">
    用户密码 ">
    邮件地址 ">
    个人主页 ">
    发表文章 ">
    财产总数 ">
    经 验 值 ">
    魅 力 值 ">
    用户等级
    锁定用户
    <% end if rs.close end sub sub update() sql="Select * from [User] where username='"&trim(request("name"))&"'" rs.open sql,conn,1,3 if rs.eof and rs.bof then errmsg=errmsg+"
    "+"
  • 该用户名不存在。" call error() exit sub else rs("title")=request.form("title") rs("username")=request.form("username") rs("userpassword")=request.form("password") rs("useremail")=request.form("useremail") rs("homepage")=request.form("homepage") rs("article")=request.form("article") rs("userclass")=request.form("userclass") rs("lockuser")=request.form("lockuser") rs("userWealth")=request.form("userWealth") rs("userEP")=request.form("userEP") rs("userCP")=request.form("userCP") rs.update rs.close end if %>

    更新用户数据成功！ <% end sub %>