?? 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 + -