?? userlist.asp
字號:
<!-- #include file="ChkPwd.asp" -->
<!-- #include file="IsAdmin.asp" -->
<!--#include File="ConnDB.asp"-->
<html>
<head>
<title>系統(tǒng)用戶管理</title>
<script language="JavaScript">
function newwin(url) {
var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=380");
newwin.focus();
return false;
}
</script>
</head>
<body link="#000080" vlink="#008080">
<h3></h3>
<h2 align="center">用戶列表</h2>
<table width='90%' align=center cellspacing=1 cellpadding=2 border=1 bordercolor="#808080" bordercolordark="#FFFFFF" bordercolorlight="#E1F5FF">
<tr>
<td align="center" width='20%' bgcolor="#E1F5FF"><b>用戶名</b></td>
<td align="center" width='20%' bgcolor="#E1F5FF"><b>用戶姓名</b></td>
<td align="center" width='30%' bgcolor="#E1F5FF"><b>電子郵箱</b></td>
<td align="center" width='30%' bgcolor="#E1F5FF"><b>操 作</b></td>
</tr>
<%
'定義Recordset對象
Set rs=Server.CreateObject("ADODB.Recordset")
'設(shè)置rs的ActiveConnection屬性，綁定到連接
Set rs.ActiveConnection = Conn
'設(shè)置游標類型
rs.CursorType = 3
'執(zhí)行SQL語句，讀取所有的用戶數(shù)據(jù)，并保存結(jié)果到記錄集對象rs中
rs.Open "Select * from Users Order by UserId"
rCount = rs.RecordCount
'循環(huán)顯示所有的用戶數(shù)據(jù)，同時畫出表格
Do While Not rs.EOF
%>
<tr>
<td><%=rs("UserName")%></td>
<td><%=rs("Ename")%></td>
<td><%=rs("Email")%></td>
<td align="center"><a href=UserEdit.asp?userid=<%=rs("UserId")%> onclick="return newwin(this.href)">修改</a>
<% If rs("UserName")<>"Admin" Then %>
<a href=UserDelt.asp?userid=<%=rs("UserId")%> onclick="return newwin(this.href)">刪除</a> </td>
<% End If %>
</tr>
<%
rs.MoveNext
Loop
If rCount = 0 Then
Response.Write "<tr align='center'><td colspan=6><font color=red>目前還沒有用戶記錄</font></td></tr>"
Else
Response.Write "<tr align='center'><td colspan=6><font color=red>當前共有" & Trim(rCount) &"條用戶記錄</font></td></tr>"
end if
%>
</table>
<br>
<p align=center><a href=# onclick="return newwin('UserAdd.asp')">添加用戶信息</a></p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -