📄 admin_updateuser.asp

📁 应用于高等院校党团思想教育
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>


<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/grade.asp" -->
<!-- #include file="admin_left.asp" -->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">

<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
	if session("masterlogin")<>"superadmin" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
		call Error()
	else
%>
<%
		dim rs,sql
		dim topic,username,dateandtime,body
		call main()
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=aTabletitlecolor%>'>
        <td align=center colspan="2">欢迎<b><%=session("mastername")%></b>进入管理页面
        </td>
        </tr>
            <tr bgcolor=<%=tablebodycolor%>>
              <td width="20%" valign=top>
<%call left()%>
	      </td>
              <td width="80%" valign=top><p>
<%
	if request("action")="update" then
		call update()
		response.write ""&body&""
	else
%>
              <table width="100%" border="0" cellspacing="3" cellpadding="0">
                <tr> 
                  <td bgcolor=<%=atabletitlecolor%>> 
                    <p><b>更新用户数据</b>：<br>
                      注意：这里将重新统计所有用户等级信息，更新后所有用户数据将按照设定的升级条件排列等级，原有设定的贵宾、斑竹、管理员等信息将被重置。</p>
                  </td>
                </tr>
                <tr> 
                  <td> 
            <form action="admin_updateuser.asp?action=update" method=post>
<input type="submit" name="Submit" value="更新">
	    </form>
                  </td>
                </tr>
<%
	end if
%>
</p></td>
            </tr>
        </table>
        </td>
    </tr>
</table>
<%
'	response.write ""&body&""
	end sub

	sub update()
	set rs=server.createobject("adodb.recordset")
	conn.execute("update [user] set userclass='"&user_level1&"' where (article>="&level1_point&" and article<"&level2_point&") and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	conn.execute("update [user] set userclass='"&user_level2&"' where (article>="&level2_point&" and article<"&level3_point&") and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	conn.execute("update [user] set userclass='"&user_level3&"' where (article>="&level3_point&" and article<"&level4_point&") and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	conn.execute("update [user] set userclass='"&user_level4&"' where (article>="&level4_point&" and article<"&level5_point&") and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	conn.execute("update [user] set userclass='"&user_level5&"' where (article>="&level5_point&" and article<"&level6_point&") and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	conn.execute("update [user] set userclass='"&user_level6&"' where article>="&level6_point&" and (userclass<>'"&user_level7&"' or userclass<>'"&user_level8&"' or  userclass<>'"&user_level9&"')")
	body=body+"<br>"+"更新用户数据成功("&now()&")。"
	end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -