AJAX实例：Ajax实现静态页面分页_[AJAX教程]
静态页面分页的AJAX实现，效果如图：
index.html页面源文件：
AJAX静态分页
静态分页的AJAX实现
作者：十一狼
联系：275915854(QQ) 112183883@163.com(email)
下载：http://www.w3cg.net/Ajax.rar
set.asp文件代码
<%
Dim pagesize
pagesize=Trim(Request.QueryString("pagesize"))
If pagesize<>"" And IsNumeric(pagesize)=True Then
session("pagesize")=pagesize
'sql="select top 1 * from [pagesize] order by id desc"
'rs.open sql,conn,1,3
'rs("pagesize")=pagesize
'rs.update
'rs.close
Response.Write(escape("Completed。"))
Else
Response.Write(escape("Err：参数错误。"))
End If
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
conn.asp文件代码
<%
Dim conn,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
%>
server.asp文件代码
<%
'Dim pagesize
'sql="select top 1 * from [pagesize] order by id desc"
'rs.open sql,conn,1,1
'pagesize=rs("pagesize")
'rs.Close
If session("pagesize")="" Then session("pagesize")=9
Dim page
page=unescape(Request.QueryString("page"))
If page<>"" Then
sql="select * from [test] order by id asc"
rs.open sql,conn,1,1
If rs.eof Then
Response.Write(escape("还没有任何数据"))
Else
rs.pagesize=session("pagesize")
page=CLng(page)
If page<1 Then
page=1
ElseIf page>rs.pagecount Then
page=rs.pagecount
End If
rs.absolutepage=page
Dim i,str
str=str & "
"
For i=1 To rs.pagesize
str=str & rs("id") & ". " & rs("webname") & "
"
rs.movenext
If rs.eof Then Exit For
Next
str=str & "
"
str=str & "<< "
For i=1 To rs.pagecount
If i=page Then
str=str & "" & i & " "
Else
str=str & "" & i & " "
End If
Next
str=str & " >>"
str=str & "
"
str=escape(str)
Response.Write(str)
End If
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
Else
Response.Write(escape("Error：页数不能为空！"))
End If
%>
data数据库设置
表:pagesize 字段:id 自动编号 pagesize 数字
test 字段:id 自动编号 webname 文本 weburl 文本 addtime 日期/时间
演示地址：http://www.w3cg.net/work/Ajax/index.html
源码下载：Ajax.rar
作者：十一狼