Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)归海一刀published in(发表于) 2014/3/16 2:51:59 AJAX实例:Ajax实现静态页面分页_[AJAX教程]
静态页面分页的AJAX实现,效果如图:
index.html页面源文件:
AJAX静态分页
静态分页的AJAX实现 作者:十一狼 联系:275915854(QQ) 112183883@163.com(email) 下载:http://www.w3cg.net/Ajax.rar
set.asp文件代码
<%Dim pagesizepagesize=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 IfSet rs=Nothingconn.CloseSet 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.CloseIf session("pagesize")="" Then session("pagesize")=9Dim pagepage=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=NothingElse 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
作者:十一狼
赞