<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。" call Error() else 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 savegrade() call getconst() else call grade() end if %>
    <% end sub sub grade() set rs = server.CreateObject ("adodb.recordset") sql="select top 1 * from config" rs.open sql,conn,1,1 %>
    > > > > >
    >用户金钱设定
    注册金钱数 ">
    登陆增加金钱 ">
    发帖增加金钱 ">
    跟帖增加金钱 ">
    删帖减少金钱 ">
    >用户经验设定
    注册经验值 ">
    登陆增加经验值 ">
    发帖增加经验值 ">
    跟帖增加经验值 ">
    删帖减少经验值 ">
    >用户魅力设定
    注册魅力值 ">
    登陆增加魅力值 ">
    发帖增加魅力值 ">
    跟帖增加魅力值 ">
    删帖减少魅力值 ">
     
    <% rs.close end sub sub savegrade() set rs = server.CreateObject ("adodb.recordset") sql = "select top 1 * from config" rs.Open sql,conn,1,3 rs("wealthReg")=request.form("wealthReg") rs("wealthLogin")=request.form("wealthLogin") rs("wealthAnnounce")=request.form("wealthAnnounce") rs("wealthReannounce")=request.form("wealthReannounce") rs("wealthDel")=request.form("wealthDel") rs("epReg")=request.form("epReg") rs("epLogin")=request.form("epLogin") rs("epAnnounce")=request.form("epAnnounce") rs("epReannounce")=request.form("epReannounce") rs("epDel")=request.form("epDel") rs("cpReg")=request.form("cpReg") rs("cpLogin")=request.form("cpLogin") rs("cpAnnounce")=request.form("cpAnnounce") rs("cpReannounce")=request.form("cpReannounce") rs("cpDel")=request.form("cpDel") rs.Update rs.Close %>

    设置成功！ <% end sub %>