asp似百度分页ajax版-老鄢博客

asp似百度分页ajax版

发布时间：2009-02-26 12:27:00 作者：admin 阅读：1129次

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

<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) {}
}
}
}

catchBaidu.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页要特殊对待
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>


<%
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>