page.asp

一个使用Ajax编写的分页演示程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim conn,rs
dim connstr,sqlcmd
set conn=server.CreateObject("ADODB.connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("mydata.mdb")
conn.open connstr
sqlcmd="select id,name,tel from contact"
set rs=server.CreateObject("ADODB.recordset")
rs.open sqlcmd,conn,1,1
rs.pagesize=6
page=clng(request.QueryString("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
response.Write("<table width='300px' border='1'>")
for i=1 to rs.pagesize 
   response.Write("<tr>")
   response.Write("<td>"&rs(0)&"</td>")
   response.Write("<td>"&escape(rs(1))&"</td>")
   response.Write("<td>"&rs(2)&"</td>")
   response.Write("</tr>")
   rs.movenext
   if rs.EOF then exit for
next 
response.Write("</table>")


if page=1 then
   response.write(escape("首页 上一页"))
   response.write("<a href='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
   response.write("<a href='javascript:FF("&rs.pagecount&")'>"&escape("未页")&"</a>")
elseif page=rs.pagecount then
   response.write("<a href='javascript:FF(1)'>"&escape("首页")&"</a>")
   response.write("<a href='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
   response.write(escape("下一页 未页"))
else
   response.write("<a href='javascript:FF(1)'>"&escape("首页")&"</a>")
   response.write("<a href='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
   response.write("<a href='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
   response.write("<a href='javascript:FF("&rs.pagecount&")'>"&escape("未页")&"</a>")
end if   
%>