userlevel.asp

ASP+SQL2000+

<!--#INCLUDE FILE="Conn.asp" --><!--#include file=../include/config.asp--><!--#include file="chkuser.asp" -->

<%
IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
END IF

dim reglevel
dim ID
ID=request("ID")
reglevel=trim(request("reglevel"))

set rs=server.createobject("adodb.recordset")
sql="select * from admin where ID="&ID
rs.open sql,conn,3,3
rs("reglevel")=reglevel
rs.update

conn.close
set conn=nothing
response.write "<p align=center><font color=red>恭喜您!该会员设置成功!<br>"&freetime&"秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=usermanage.asp"">"
%>