<html>
<body>
<%
PgSz=10
Set con=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("test.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
con.Open Connstr----------这个地方总是提示出错....
sql="select * from Article where cid=1"
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,con, 1, 1
if rs.BOF And rs.Eof then
%>
<font color="red">
没找到任何结果
</font>
<%
else
rs.PageSize=Cint(PgSz)
Total=int(rs.Recordcount/PgSz*-1)*-1
%>
搜索得到<font color="red"><%=rs.Recordcount %>项<%=Total %></font>页
<%
end if
%>
<table>
<%
PageNo=request("pg")
tp=request("type")
if PageNo="" or PageNo<1 Then
PageNo=1
end if
if tp="Pre" Then
PageNo=PageNo-1
end if
if tp="next" Then
PageNo=PageNo+1
end if
rs.AbsolutePage=PageNo
position=rs.PageSize*PageNo
pagebegin=position-rs.PageSize+1
if position<rs.Recordcount then
pagend=pos
A页面
<table width="200" border="1">
<tr>
<td>1</td>
<td>3</td>
<td><!--#include/top.html#-- ......
