📄 admin-users.asp.bak
字号:
<%@ Language=VBScript %>
<%
'如果没有登录，则回到登录界面
if session("loginSuccessful") <> "yes" then Response.Redirect ("login.asp")
if Request.QueryString("act") = "logout" then '如果退出登录
session("loginSuccessful") = "" '注销session状态
Response.Redirect ("login.asp") '回到登录界面
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="poll.css" type="text/css">
</head>
<body>
<%
dim SQL, rs, cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath ("../fpdb/poll.mdb")
if Request.QueryString("sub") = "edit" then edit()
if Request.QueryString("sub") = "addnew" then addnew()
SQL = "SELECT * FROM users ORDER BY usr_id ASC"
set rs = cn.Execute(SQL)
%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6">
<a href="admin-users.asp?sub=addnew"><img src="adm_img/new_usr.gif" name="new" border="0" alt="New user" align="absmiddle" WIDTH="50" HEIGHT="16"></a>
<a href="admin-poll.asp"><img src="adm_img/poll.gif" name="new" border="0" alt="Poll administration" align="absmiddle" WIDTH="35" HEIGHT="16"></a>
<a href="admin-users.asp?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" align="absmiddle" WIDTH="36" HEIGHT="16"></a>
</td>
</tr>
<%
if not rs.eof then
do
%>
<tr>
<td>User: <font color="red"><b><%=rs("username")%></b></font> Password: <b><%=rs("password")%></b> Status:
<b><%
if rs("status") = 1 then
Response.Write "Admin"
else
Response.Write "Normal"
end if
%></b>
<a href="admin-users.asp?sub=edit&id=<%=rs("usr_id")%>"><img src="adm_img/edit.gif" name="edit" border="0" alt="Edit user" WIDTH="36" HEIGHT="16" align="absmiddle"></a>
<a href="admin-update.asp?sub=del_usr&id=<%=rs("usr_id")%>"><img src="adm_img/delete.gif" name="edit" border="0" alt="Delete user" WIDTH="36" HEIGHT="16" align="absmiddle"></a>
</td>
</tr>
<%
rs.movenext
loop until rs.eof
else
%>
<tr>
<td>No users!</td>
</tr>
<%end if%>
</table>
</div>
<%
rs.close
cn.close
%>
<%sub addnew()%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6"><b>添加新用户</b> <a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a></td>
</tr>
<form name="formUsr" method="post" action="admin-update.asp?sub=new_usr">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="nortxtv8">
<tr>
<td width="100">用户名</td>
<td><input type="text" name="user" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">密码</td>
<td><input type="text" name="pass" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">E-mail</td>
<td><input type="text" name="email" size="40" class="nortxtv8"></td>
</tr>
<tr>
<td width="100">是否授权为管理员?</td>
<td><input type="checkbox" name="status" class="nortxtv8" value="yes"> (checked-admin/unchecked-normal)</td>
</tr>
<tr>
<td width="100"> </td>
<td><input type="image" border="0" name="Submit" src="adm_img/submit.gif" width="40" height="16"></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<%end sub%>
<%
sub edit()
dim SQL, rs, usr_no
SQL = "SELECT * FROM users WHERE usr_id=" & Request.QueryString("id")
set rs = cn.Execute(SQL)
%>
<div align="center">
<table border="1" class="nortxtv8" cellpadding="3" cellspacing="0" width="600" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td colspan="2" bgcolor="#ADD8E6"><b>编辑用户</b> <a href="?act=logout"><img src="adm_img/logout.gif" name="new" border="0" alt="Logout" WIDTH="36" HEIGHT="16" align="absmiddle"></a></td>
</tr>
<form name="formUsr" method="post" action="admin-update.asp?sub=edit_usr&id=<%=rs("usr_id")%>">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="1" class="nortxtv8">
<tr>
<td width="100">用户名</td>
<td><input type="text" name="user" size="40" class="nortxtv8" value="<%=rs("username")%>"></td>
</tr>
<tr>
<td width="100">密码</td>
<td><input type="text" name="pass" size="40" class="nortxtv8" value="<%=rs("password")%>"></td>
</tr>
<tr>
<td width="100">E-mail</td>
<td><input type="text" name="email" size="40" class="nortxtv8" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td width="100">是否授权为管理员 ?</td>
<td><input type="checkbox" name="status" class="nortxtv8" value="yes" <%if rs("status")= 1 then%>checked<%end if%>> (checked-admin/unchecked-normal)</td>
</tr>
<tr>
<td width="100"> </td>
<td><input type="image" border="0" name="Submit" src="adm_img/submit.gif" width="40" height="16"></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -