📄 usermanger.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户管理</title>
</head>
<body bgcolor=#FF6600>
<table border="1" width="100%">
<tr>
<td align="center">学生号</td>
<td align="center">姓名</td>
<td align="center">部门</td>
<td align="center">已借书数</td>
<td align="center">说明</td>
</tr>
<%
dim userno
dim username
dim depart
dim borrownumber
dim describe
dim strConn
dim strSQL
dim objrst
strConn = "DSN=dblib;uid=;pwd=;database=db"
strSQL="select * from Tuser"
set objrst = GetADORecordset (strConn,strSQL)
if objrst.bof and objrst.eof then
%>
<tr>
<td align="center" colspan="4">没有任何用户!</td>
</tr>
<%
else
objrst.movefirst
while not objrst.eof
userno = objrst.fields("userno")
username = objrst.fields("username")
depart = objrst.fields("depart")
borrownumber = objrst.fields("borrownumber")
describe = objrst.fields("describe")
%>
<tr>
<td align="center"><%=userno%></td>
<td align="center"><%=username%></td>
<td align="center"><%=depart%></td>
<td align="center"><%=borrownumber%></td>
<td align="center"><%=describe%></td>
</tr>
<% objrst.movenext
wend
set objrst=nothing
End if
%>
<%
'======================================================================
' GetADORecordset -- Gets an ADO recordset given a connectionstring,
' sql query string.
'
'==============================
Function GetADORecordset(strConn, strSQL)
On Error Resume Next
Dim objConnection
Dim objRecordset
Err.Clear
' Setup an ADO connection to the database:
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objConnection.ConnectionString = strConn
objConnection.Open
Set objRecordset.ActiveConnection = objConnection
objRecordset.Source = strSQL
objRecordset.CursorLocation = 3
objRecordset.Open
If Err Then
Set GetADORecordset = Nothing
If Not HaveError() Then
SetError "GetADORecordset", Err.number, Err.Description
End If
Else
Set GetADORecordset = objRecordset
End If
End Function
%>
<form action=useradd.asp method=post>
<table border="1" width="100%" bgcolor="#FF6600" height="25%" id="table1">
<tr>
<td width="29%" rowspan="7">添加用户</td>
<tr><td width="18%">用户名</td><td width="51%">
<input type="text" name="username" size="20"></td>
</tr>
<tr><td width="18%">密码</td><td width="51%"><input type=password name="userpass" size="20"></td>
</tr>
<tr><td width="18%">确认密码</td><td width="51%"><input type=password name="userpass1" size="20"> </td>
</tr>
<tr><td width="18%">部门</td><td width="51%"><input type="text" name="depart" size="20"></td>
</tr>
<tr><td width="18%">说明</td><td width="51%"><input type="text" name="describe" size="20"></td>
</tr>
<tr><td colspan="2">
<p align="center"><input type="submit" value="提交" name="B1"></td>
</tr>
</td>
</tr>
</table>
</form>
<form action=userdel.asp method=post>
<table border="1" width="100%" bgcolor="#FF6600" height="25%" id="table1">
<tr>
<td width="29%" rowspan="4"> 删除用户</td>
<td width="18%">用户号</td>
<td width="51%"><input type="text" name="userno" size="20"><tr><td>用户名</td>
<td width="51%">
<input type="text" name="username" size="20"></td>
</tr>
<tr><td colspan="2">
<p align="center"><input type="submit" value="提交" name="B1"></td>
</tr>
</td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -