📄 08_07.asp

📁 ASPTest 网络基础网页设计

💻 ASP

字号:

<html>
<head>
<title>利用ADO分页</title>
</head>
<body>
<!-- METADATA TYPE="typelib" File="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Dim cn,rs
Dim iPage

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
          "UID=sa;PWD=admin"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.PageSize = 2 '这个值读者在使用时可根据需要设置

rs.Open "SELECT * FROM Chapter8",cn,adOpenStatic,adLockReadOnly

If Len(Request("page")) = 0 Then
  iPage = 1
Else
  iPage = Request("page")
End If

rs.AbsolutePage = iPage
%>
<p align="center">图书信息第<% =iPage%>页</p>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="646" align="center">
  <tr>
    <td width="33">编号</td>
    <td width="98">名称</td>
    <td width="37">作者</td>
    <td width="56">类别</td>
    <td width="135">出版社</td>
    <td width="69">出版日期</td>
    <td width="33">价格</td>
    <td width="39">页数</td>
  </tr>
</tr>
<% 
For i =1 To rs.PageSize
  If Not rs.Eof Then
%>
<tr>
    <td width="33"><%=rs(0)%>　</td>
    <td width="98"><%=rs(1)%>　</td>
    <td width="37"><%=rs(2)%>　</td>
    <td width="56"><%=rs(3)%>　</td>
    <td width="135"><%=rs(4)%>　</td>
    <td width="69"><%=rs(5)%>　</td>
    <td width="33"><%=rs(6)%>　</td>
    <td width="39"><%=rs(7)%>　</td>
 </tr>
<%  
  End If
  If Not rs.Eof Then rs.MoveNext
Next
%>
</table>
<p align="center">
<% If CInt(iPage) = 1 Then %>
第一页|上一页|
<% Else %>
<a href="08_07.asp?page=1">第一页</a>|
<a href="08_07.asp?page=<% = iPage - 1 %>">上一页</a>|
<% End If %>
<% If CInt(iPage) = CInt(rs.PageCount) Then %>
下一页| 最后一页
<% Else %>
<a href="08_07.asp?page=<% = iPage + 1 %>">下一页</a>|
<a href="08_07.asp?page=<% = rs.PageCount %>">最后一页</a>
<% End If %>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -