📄 admin_usermodsave.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="../inc/md5.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="conn.asp" -->
<%dim usermod,userid,oldusid
userid=trim(request.form("userid"))
if userid="" then
response.redirect("admin_UserMan.asp")
call closeconn()
end if
oldusid=trim(request.form("oldusid"))
usermod=request.form("usermod")
if usermod="" then
response.redirect("admin_UserMan.asp")
call closeconn()
else
%>
<%
dim fsex,userlevel,userpassed,founderr,errmsg
if Request.Form("sex")=1 then
fsex="男"
else
fsex="女"
end if
userlevel=trim(request.form("userlevel"))
userpassed=trim(request.form("userpassed"))
if userlevel="" then
founderr=true
errmsg=errmsg +"<br><li>请选择用户等级！</li>"
end if
if userpassed="yes" then
userpassed=true
else
userpassed=false
end if
if founderr=false then
dim ors
set ors=server.createobject("ADODB.Recordset")
ors.open"select * from reguser where userid="&userid&"",conn,1,3
ors("sex")=fsex
ors("userlevel")=userlevel
ors("userpassed")=userpassed
ors.update
founderr=false
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改用户资料</title>
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><br><br>
<%if founderr=false then
call regsuccess()
else
call writeerrmsg()
end if
%></td>
</tr>
</table>
</body>
</html>
<%
sub regsuccess()
response.write"<table align='center' width='350' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write"<tr class='txt1'><td align='center'>修改成功！</td></tr>"
response.write"<tr class='txt05'><td align='center'>你的用户名是："&ors("usid")&"<br>用户等级："&ors("userlevel")&"</td></tr>"
response.write"<tr class='txt05'><td align='center'><br>【<a href='admin_UserMan.asp'>返回</a>】</td></tr>"
response.end()
end sub
sub writeerrmsg()
response.write"<table align='center' width='350' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write"<tr class='txt04'><td align='center'>可能是以下的原因，导致修改失败！</td></tr>"
response.write"<tr class='txt05'><td >"&errmsg&"</td></tr>"
response.write"<tr class='txt05'><td align='center'><br>【<a href='javascript:onclick=history.go(-1)'>返回</a>】</td></tr>"
response.end()
end sub
%>
<%
ors.close
set ors=nothing
call closeconn()
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -