📄 adminmoduserdb.asp.bak
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>修改用户信息</title>
</head>
<body bgcolor="#4BD152">
<table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%'------------接受数据-------------
Kusername=trim(Request("username")) '用户名
purview=trim(request("purview")) '性别
business=trim(request("business")) '电子邮件
department=trim(request("department")) '部门
sex=trim(request("sex")) '性别
Email=trim(request("Email")) '电子邮件
phone=trim(request("phone")) '联系电话
place=trim(request("place")) '住址
if Kusername="" or purview="" or business="" or department="" then
response.write "信息不全，请核对！！" & "<input type='button' value='返回' name='B2' class='buttonface' onclick='javascript:history.back()'>"
else
if sex="" then
sex="未知"
end if
if Email="" then
Email="未知"
end if
if phone="" then
phone="未知"
end if
if place="" then
place="未知"
end if
StrSQL = "Select * from 用户表 where 用户名='"&Kusername&"'"
my_rs.Open StrSQL,my_Conn,1,3
my_rs("用户名") = Kusername
my_rs("权限") = purview
my_rs("职务") = business
my_rs("所属部门") = department
my_rs("性别") = sex
my_rs("电子邮件地址") = Email
my_rs("联系电话") = phone
my_rs("住址") = place
my_rs.Update
Response.Write "用户添加成功！" & "<input type='button' value='返回' name='B2' class='buttonface' onclick='javascript:history.back()'>"
end if
response.write " "
response.write "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
%>
</tr>
</table>
<%
my_rs.close
set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 系统日志信息"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("使用者名称")=session("username")
my_rs("所做事件")="修改用户信息，用户名为："&Kusername
my_rs.update
my_rs.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -