📄 usersave.asp
字号:
<!--#include file = include.asp-->
<!--#include file = EnPas.asp-->
<%
set CheckUser = server.createobject("adodb.recordset")
sql1 = "select * from UserManage where UserName='"&Name&"' and password='"&PassWord&"'"
CheckUser.open sql1,conn,1,1
if CheckUser("Purview")<>"管理员" then response.redirect"error.asp?msg=用户管理"
checkUser.close
set CheckUser=nothing
Purview=request.form("Purview")
if request.form("operation")="ADD" then
set rs=Server.CreateObject("adodb.recordset")
sql="select * from UserManage where UserName='"&replace(request.form("Name"),"'","''")&"' "
rs.open sql,conn,1,1
if not rs.eof then
Call Wran
rs.close
set rs=nothing
response.end
end if
rs.close
set rs=nothing
set rs=Server.CreateObject("adodb.recordset")
sql="select * from UserManage"
rs.open sql,conn,3,3
rs.addnew
elseif request.form("operation")="MODIFY" then
set rs=Server.CreateObject("adodb.recordset")
sql="select * from UserManage where ID="&request.form("ID")
rs.open sql,conn,3,3
end if
select case Purview
case "管理员"
rs("UserName")=replace(request.form("Name"),"'","''")
if request.form("password")<>"" then rs("password")=EnPas(replace(request.form("password"),"'","''"))
rs("Purview")=request.form("Purview")
rs("SystemSet")=""
rs("Class")=""
case "总编辑"
rs("UserName")=replace(request.form("Name"),"'","''")
if request.form("password")<>"" then rs("password")=EnPas(replace(request.form("password"),"'","''"))
rs("Purview")=request.form("Purview")
rs("ModPas")=true
rs("SystemSet")=replace(request("SystemSet")," ","")
rs("Class")=""
case "录入员"
rs("UserName")=replace(request.form("Name"),"'","''")
if request.form("password")<>"" then rs("password")=EnPas(replace(request.form("password"),"'","''"))
rs("Purview")=request.form("Purview")
rs("Class")=replace(request("Class")," ","")
if request.form("ModPas")<>"" then
rs("ModPas")=request.form("ModPas")
else
rs("ModPas")=false
end if
rs("SystemSet")=""
end select
rs.update
rs.close
set rs=nothing
response.redirect"UserManage.asp"
Sub Wran()
%>
<p> </p>
<p> </p>
<p> </p>
<body background="images/BLogo.gif">
<table width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr bgcolor="#AED2E6" >
<td height="20"><b>
操作错误</b></td>
</tr>
<tr bgcolor="#AED2E6" align=center >
<td height="115" bgcolor="#FFFFFF" background="images/BLogo.gif"><b>
用户名已经存在、请更换
<br>
<br>
<input type="button" value=" 返 回 " onclick="javascript:history.back()">
</b></td>
</tr>
</table>
<%End Sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -