📄 managea.asp.bak
字号:
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<head>高级用户管理界面</head>
<html>
<body bgcolor="D7E8FA" LEFTMARGIN=0 TOPMARGIN=0>
<%@ LANGUAGE="VBScript" %>
<%
Dim conn,connstr,rs,rsstr
'----------建立数据库链接对象
Set conn = Server.CreateObject("ADODB.Connection")
connstr ="Driver={SQL Server};server=(local);uid=sa;pwd=;database=master;"
conn.open connstr
Set rs = server.CreateObject("adodb.recordset")
rsstr = "select * from Users"
rs.open rsstr,conn,1,1
%>
<H2><CENTER>用户管理界面</CENTER></H2>
<CENTER><font style="font-size=13pt" >添加用户</font></CENTER>
<form name="add" method="post" action="adduser.asp">
<table align="center">
<td><font style="font-size=10pt">用户名：</font><input name="name"type="text" style="width:60;height:18;"></td>
<td><font style="font-size=10pt">密码：</font><input name="password" type="password" style="width:60;height:18;"></td>
<td><font style="font-size=10pt">权限：</font><select name="right" style="width:80;height:18;">
<option value="A" selected>高级用户
<option value="B">一般用户
</select>
</td>
<td><input type="submit" style="width:50;height:20;" value="添加">
</table>
</form>
<CENTER><font style="font-size=13pt">删除用户</font></CENTER>
<form name="delete" method="post" action="deleteuser.asp">
<table align="center">
<td><font style="font-size=10pt">用户名：</font><select name="name" style="width:60;height:18;">
<option value="" selected>
<%
For i=1 To rs.recordcount
response.write "<option value="
response.write rs("Username")&" >"
response.write rs("Username")
rs.movenext
Next
%>
</select>
</td>
<td><input type="submit" style="width:50;height:20;" value="删除">
</table>
</form>
<CENTER><font style="font-size=13pt">更改用户密码</font></CENTER>
<form name="alertpw" method="post" action="alertpw.asp">
<table align="center">
<td><font style="font-size=10pt">用户名：</font><select name="name" style="width:60;height:18;">
<option value="" selected>
<%
rs.movefirst
For i=1 To rs.recordcount
response.write "<option value="
response.write rs("Username")&" >"
response.write rs("Username")
rs.movenext
Next
%>
</select>
</td>
<td><font style="font-size=10pt">密码：</font><input name="password" type="password" style="width:60;height:18;"></td>
<td><input type="submit" style="width:100;height:20;" value="更改密码">
</table>
</form>
<CENTER><font style="font-size=13pt">更改用户权限</font></CENTER>
<form name="alertrt" method="post" action="alertrt.asp">
<table align="center">
<td><font style="font-size=10pt">用户名：</font><select name="name" style="width:60;height:18;">
<option value="" selected>
<%
rs.movefirst
For i=1 To rs.recordcount
response.write "<option value="
response.write rs("Username")&" >"
response.write rs("Username")
rs.movenext
Next
rs.close
Set rs=Nothing
Set conn=Nothing
%>
</select>
</td>
<td><font style="font-size=10pt">权限：</font><select name="right" style="width:80;height:18;">
<option value="A">高级用户
<option value="B">一般用户
</select>
</td>
<td><input type="submit" style="width:100;height:20;" value="更改权限">
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -