📄 system.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
ch
dim action
action = request("action")
if action = "del" then del
if action = "add" then add
if action = "upok" then upok
if action = "up" then
id = request("id")
sqlstr = "select * from 系统用户 where 编号='"&id&"'"
else
sqlstr = "select * from 系统用户 where 编号='"&request.Cookies("id")&"'"
id = request.Cookies("id")
end if
dbo.getsql = sqlstr
set rs = dbo.getrs1()
sub del()
aid = request("id")
sqlstr = "delete from 系统用户 where 编号='"&aid&"'"
dbo.query(sqlstr)
response.Redirect("system.asp")
end sub
sub add()
sqlstr = "select * from 系统用户"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.AddNew
rs("编号") = trim(request.form("name"))
rs("口令") = trim(request.form("pass"))
rs("权限") = trim(request.form("level"))
rs.update
response.Redirect("system.asp")
end sub
sub upok()
id = request("id")
sqlstr = "select * from 系统用户 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs("口令") = trim(request.form("pass"))
if request.Cookies("level") = 0 then
rs("权限") = trim(request.form("level"))
else
end if
rs.update
response.Redirect("system.asp")
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<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>
<p> </p>
<%if action = "newuser" then%>
<form action="system.asp?action=add" method="post" name="fn" onSubmit="return user()">
<table width="400" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<td bgcolor="#76AFD6"> 系统管理 <%if request.Cookies("level") = 0 then%>- <a href="system.asp?action=newuser">新增用户 </a><%else%> <%end if%></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">用户：
<input name="name" type="text" id="name"></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">密码：
<input name="pass" type="password" id="pass"></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">权限：
<select name="level" id="level">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
(0[系统],1[库存],2[销售],3[取药])</td>
</tr>
<tr>
<td bgcolor="#CEE2F0"><input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
<tr>
<td bgcolor="#CEE2F0"><%=strq%> </td>
</tr>
</table>
</form>
<%else%>
<form action="system.asp?action=upok&id=<%=id%>" method="post" name="fn" onSubmit="return user()">
<table width="400" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<td bgcolor="#76AFD6"> 系统管理 <%if request.Cookies("level") = 0 then%>- <a href="system.asp?action=newuser">新增用户 </a><%else%> <%end if%></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">用户：
<input name="name" type="text" disabled id="name" value="<%=rs("编号")%>"></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">密码：
<input name="pass" type="password" id="pass" value="<%=rs("口令")%>"></td>
</tr>
<%if request.Cookies("level") = 0 then%>
<tr>
<td bgcolor="#CEE2F0">权限：
<select name="level" id="level">
<option value="<%=rs("权限")%>"><%=rs("权限")%></option>
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
(0[系统],1[库存],2[销售],3[取药])</td>
</tr>
<%else%> <%end if%>
<tr>
<td bgcolor="#CEE2F0"><input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
<tr>
<td bgcolor="#CEE2F0"><%=strq%> </td>
</tr>
</table>
</form>
<%end if%>
<%if request.Cookies("level") = 0 then%>
<table width="400" border="0" align="center" cellpadding="4" cellspacing="1">
<tr>
<td bgcolor="#76AFD6">用户列表</td>
</tr>
</table>
<%
sqlstr = "select * from 系统用户 order by 编号 desc"
dbo.getsql = sqlstr
dbo.pagesize = 10
set rs = dbo.Getrs()
for i=1 to dbo.pagesize
if not rs.eof then
response.write "<table width=400 border=0 align=center cellpadding=4 cellspacing=1><tr><td width=100 bgcolor=#CEE2F0><div align=center>"&rs("编号")&"</div></td><td width=100 bgcolor=#CEE2F0><div align=center>"&rs("权限")&"</div></td><td width=100 bgcolor=#CEE2F0><div align=center><a href=system.asp?action=up&id="&rs("编号")&">编辑</a></div></td><td width=100 bgcolor=#CEE2F0><div align=center><a href=system.asp?action=del&id="&rs("编号")&">删除</a></div></td></tr></table>"
rs.movenext
else
exit for
end if
next
dbo.showpage()
%>
<%else%> <%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -