?? book_list.asp
字號:
<%option explicit%>
<%
'這是安全模塊，如果客戶不是管理員用戶，立即重定向到首頁.
'這樣可以防止某些客戶直接訪問admin下面的文件。
If Session("UserType")<>"A" Then
Response.Redirect "../index.asp"
End If
%>
<!--#INCLUDE FILE="../odbc_connection2.asp"-->
<!--#INCLUDE FILE="../config.asp"-->
<html>
<head>
<title>書籍管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'下面的page_no變量用來確定顯示第幾頁數據。
Dim page_no
If Session("page_no")="" Then
page_no=1
Session("page_no")=page_no
Elseif Request.QueryString("page_no")<>"" Then
page_no=Cint(Request.QueryString("page_no"))
Session("page_no")=page_no
Else
page_no=Session("page_no")
End If
%>
<h2 align="center">書籍管理</h2>
<table border="0" width="90%" align="center" >
<tr bgcolor="#FFFFFF" align="right">
<td colspan="7"><a href="book_add.asp">添加書籍</a></td>
</tr>
<tr bgcolor="#B7B7B7" height="23" align="center">
<td width="5%">編號</td>
<td width="30%">名稱</td>
<td width="15%">作者</td>
<td width="15%">價格</td>
<td width="15%">進書數量</td>
<td width="15%">所屬類別</td>
<td width="10%">操作</td>
</tr>
<%
'下面分頁顯示有關內容
Dim strSql,rs
strSql="Select * From Book Order By SubmitDate Desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSql,db,1 '因為要分頁顯示，所以用鍵盤指針
'下面查詢記錄，如果非空就顯示記錄
If Not rs.Bof And Not rs.Eof Then
'以下主要為了分頁顯示
rs.PageSize=PageSize '設置每頁顯示多少條記錄，從config.asp中讀取
dim page_total
page_total=rs.PageCount 'page_total會返回總頁數，將在下面輸出頁碼時用到
rs.AbsolutePage=page_no '設置當前顯示第幾頁，這里用到了傳過來的page_no。
'下面一段利用表格顯示當前頁的所有記錄
Dim I
I=PageSize 'I 用來控制顯示當前頁記錄,注意這里和rs.PageSize要一致。
Do While Not rs.Eof And I>0 '循環直到當前頁結束或記錄集結尾
I=I-1 '每顯示一條，I減1，當變成0時，表示本頁結束
%>
<tr bgcolor="#F2F2F2" height="23" valign="middle">
<td align="center"><%=rs("BookId")%></td>
<td align="left">
<a href="book_particular.asp?BookId=<%=rs("BookId")%>" target="_blank"><%=rs("BookName")%></a>
</td>
<td align="center"><%=rs("BookAuthor")%></td>
<td align="center"><%=rs("BookPrice")%></td>
<td align="center"><%=rs("BookNum")%></td>
<td align="center"><%=rs("Kindid")%></td>
<td align="center"><a href="book_delete.asp?BookId=<%=rs("BookId")%>">刪除</a></td>
</tr>
<%
rS.MoveNext
Loop
End If
'關閉對象
db.Close
Set db=Nothing
%>
</table>
<%
'以下語句依次寫出各頁頁碼，并將非當前頁設置超鏈接，當前頁則不設置
Response.Write "<p align='center'><b><font color='#CC0066'>" & page_no & "/" & page_total & "</b></font>頁 "
For I=1 To page_total
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='Book_list.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -