?? usermanage.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Cls_vbsPage.asp"-->
<%
'-----------------------------------------------------------------------------------------------
'On Error Resume Next
DIM startime,endtime
'統(tǒng)計執(zhí)行時間
startime=timer()
'連接數(shù)據(jù)庫
'-----------------------------------------------------------------------------------------------
%>
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table { font-size: 12px}
a { font-size: 12px; color: #000000; text-decoration: none}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><table width="760" border="0">
<tr>
<td><div align="center"><a href="usermanage.asp">用戶管理</a></div></td>
<td><div align="center"><a href="admin.asp">稿件管理</a></div></td>
<td><div align="center"><a href="lygg.asp">錄用公告</a></div></td>
</tr>
</table>
<br>
</div>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr align="center">
<td >用戶編號</td>
<td>用戶名</td>
<td>真實(shí)姓名</td>
<td>注冊時間</td>
<td>操作</td>
</tr>
<%
Dim ors
Set ors=new Cls_vbsPage '創(chuàng)建對象
Set ors.Conn=conn '得到數(shù)據(jù)庫連接對象
With ors
.PageSize=13 '每頁記錄條數(shù)
.PageName="Pages" 'cookies名稱
.DbType="AC"
'數(shù)據(jù)庫類型,AC為access,MSSQL為sqlserver2000存儲過程版,MYSQL為mysql,PGSQL為PostGreSql
.RecType=0
'記錄總數(shù)(>0為另外取值再賦予或者固定值,0執(zhí)行count設(shè)置存cookies,-1執(zhí)行count不設(shè)置cookies)
.JsUrl="" 'Cls_jsPage.js的路徑
.Pkey="ID" '主鍵
.Field="id,username,name,date"
.Table="user"
.Condition="" '條件,不需要where
.OrderBy="ID asc" '排序,不需要order by,需要asc或者desc
End With
iRecCount=ors.RecCount()'記錄總數(shù)
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then%>
<tr bgcolor="">
<td >暫無記錄</td>
</tr>
<%
Else
For i=0 To Ubound(iRs,2)%>
<tr bgcolor="#FFFFFF" align="center">
<td ><a href="showuser.asp?username=<%=iRs(1,i)%>"><%=iRs(0,i)%></a></td>
<td><a href="showuser.asp?username=<%=iRs(1,i)%>"><%=iRs(1,i)%></a></td>
<td><a href="showuser.asp?username=<%=iRs(1,i)%>"><%=iRs(2,i)%></a></td>
<td><a href="showuser.asp?username=<%=iRs(1,i)%>"><%=iRs(3,i)%></a></td>
<td>
修改密碼 刪除
</td>
</tr>
<%
Next
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td>
<div align="center">
<%ors.ShowPage()%>
</div></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center">
<%endtime=timer()%>
本頁面執(zhí)行時間：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒</td>
</tr>
</table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -