conn.asp
<%
Response.CodePage=65001
Response.Charset="utf-8"
set cn=server.createobject("adodb.connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("#db.mdb")
%>
baidu.asp
<!--#include file="conn.asp"-->
<style type="text/css">
body{
font-size:14px;
font-family:Arial, Helvetica, sans-serif;
}
a:link{
text-decoration:none;
color:#000000;
}
a:visited{
text-decoration:none;
color:#000000;
}
a:hover{
text-decoration:underline;
color:#FF0000;
}
a:active{
text-decoration:none;
color:#000000;
}
table{
font-size:14px;
font-family:Arial, Helvetica, sans-serif;
}
li{
float:left;
line-height:24px;
font-size:14px;
font-family:Arial, Helvetica, sans-serif;
}
</style>
<script language=javascript>
function createXMLHttpRequest() {
if (window.XMLHttpRequest) {//Mozilla浏览器
xmlHttp = new XMLHttpRequest();
}
else if (window.ActiveXObject) {//IE浏览器
try {
xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}
}
function go(page){
//alert(page);
createXMLHttpRequest();
xmlHttp.open("get","catchBaidu.asp?page="+page+"&fresh="+Math.random(),true);
xmlHttp.onreadystatechange = function(){
if(xmlHttp.readyState==3){
document.getElementById("span1").innerHTML="正在加载数据中...";
}
else if(xmlHttp.readyState==4){
//alert(xmlHttp.responseText);
document.getElementById("span1").innerHTML=xmlHttp.responseText;
}
}
xmlHttp.send();
}
</script>
<body onLoad="go(1)">
<span id="span1">
</span>
<span id="span2">
为什么我今天冲了100的绿卡，不给奖励啊？ 25 5
信封任务满了 20 4
我21张小倩礼卷做任务不是有30个还魂丹和3... 20 5
为什么昨天我摆摊卖的钱没了？ 10 2
[1] [2] [3] [4] 下一页
为什么我今天冲了100的绿卡，不给奖励啊？ 25 5
信封任务满了 20 4
我21张小倩礼卷做任务不是有30个还魂丹和3... 20 5
为什么昨天我摆摊卖的钱没了？ 10 2
[1] [2] [3] [4] 下一页
为什么我今天冲了100的绿卡，不给奖励啊？ 25 5
信封任务满了 20 4
我21张小倩礼卷做任务不是有30个还魂丹和3... 20 5
为什么昨天我摆摊卖的钱没了？ 10 2
[1] [2] [3] [4] 下一页
为什么我今天冲了100的绿卡，不给奖励啊？ 25 5
信封任务满了 20 4
我21张小倩礼卷做任务不是有30个还魂丹和3... 20 5
为什么昨天我摆摊卖的钱没了？ 10 2
[1] [2] [3] [4] 下一页
为什么我今天冲了100的绿卡，不给奖励啊？ 25 5
信封任务满了 20 4
我21张小倩礼卷做任务不是有30个还魂丹和3... 20 5
为什么昨天我摆摊卖的钱没了？ 10 2
[1] [2] [3] [4] 下一页
</span>
</body>
catchBaidu.asp
<!--#include file="conn.asp"-->
<%
'内容循环前
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
SQL="SELECT * FROM info"
RS.OPEN SQL,cn,1,3
PAGE=1 ' 设置变量PAGE=1
RS.PAGESIZE = 10 '每页显示记录数
IF NOT ISEMPTY(REQUEST("PAGE")) THEN '如果PAGE已经初始化...
PAGE = CINT(REQUEST("PAGE")) '接收PAGE并化为数字型赋给PAGE变量
IF PAGE > RS.PAGECOUNT THEN '如果接收的页数大于总页数
RS.ABSOLUTEPAGE = RS.PAGECOUNT '设置当前显示页等于最后页
ELSEIF PAGE <= 0 THEN '如果PAGE小于等于0
PAGE = 1 '设置PAGE等于第一页
ELSE
RS.ABSOLUTEPAGE = PAGE '如果大于零,显示当前页等于接收的页数
END IF
END IF
PAGE = RS.ABSOLUTEPAGE
%>
<table width="40%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="66%">
标题
</td>
<td width="34%">
日期时间
</td>
</tr>
<%
FOR I = 1 TO RS.PAGESIZE
IF RS.EOF THEN
EXIT FOR
END IF '利用FOR NEXT 循环依次读出记录
%>
<tr>
<td><%=RS("title")%></td>
<td><%=RS("datetime")%></td>
</tr>
<%
RS.MOVENEXT
NEXT '循环结束
%>
</table>
<TABLE width="396" height="24" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
<TR ALIGN="CENTER" VALIGN="TOP">
<!--控制第一张图片，有没有上一页-->
<TD WIDTH="137" ALIGN="CENTER" valign="middle">
<%IF PAGE=1 OR PAGE<1 THEN%>
<< <
<%END IF%>
<%IF PAGE>1 THEN%>
<A HREF="javascript:onclick=go(1)"><<</A>
<A HREF="javascript:onclick=go(<%=PAGE-1%>)"><</A>
<%END IF%>
</TD>
<!--//-->
<!--当前页面前，循环显示4页-->
<%
Ƈ-4页要特殊对待
IF PAGE>1 THEN A=1
IF PAGE>2 THEN A=2
IF PAGE>3 THEN A=3
IF PAGE>4 THEN A=4
'当前页面前，循环显示4页
FOR I=PAGE-A TO PAGE-1 %>
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
<A HREF="javascript:onclick=go(<%=I%>)">
<%=I%>
</A>
</TD>
<% NEXT %>
<!--当前所在页面-->
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
<FONT COLOR="#FF0000"><%=PAGE%></FONT>
</TD>
<!--//-->
<!--当前页面后，循环显示4页-->
<%
FOR I=PAGE+1 TO PAGE+4
IF I>RS.PAGECOUNT THEN EXIT FOR
%>
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
<A HREF="javascript:onclick=go(<%=I%>)">
<%=I%>
</A>
</TD>
<%
NEXT
%>
<!--//-->
<!--控制最后一张图片，有没有下一页-->
<TD WIDTH="165" ALIGN="CENTER" valign="middle">
<% IF PAGE=RS.PAGECOUNT OR PAGE>RS.PAGECOUNT THEN %>
> >>
<% ELSE %>
<A HREF="javascript:onclick=go(<%=PAGE+1%>)">></A>
<A HREF="javascript:onclick=go(<%=RS.PAGECOUNT%>)">>></A>
<% END IF %>
</TD>
<!--//-->
</TR>
</TABLE>
