没有合适的资源?快使用搜索试试~ 我知道了~
ASP+ACCESS分页代码
需积分: 9 62 下载量 57 浏览量
2009-03-24
12:04:00
上传
评论 1
收藏 6KB TXT 举报
温馨提示
试读
8页
ASP+ACCESS分页代码ASP+ACCESS分页代码
资源推荐
资源详情
资源评论
asp+access 分页显示代码 发布时间:2008-7-3 19:35:26 来源:三和设计资讯中心 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分页显示</title>
</head>
<body>
<%
Dim db
Set db = Server.CreateObject("Adodb.Connection")
db.Open"Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.MapPath("db.mdb")
Dim rs,str
Dim pSize,pNum,pCount
Dim flag,k
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select ProductName from Products"
rs.open str,db,1
pSize = 3
If request.QueryString("pNum") = "" Then
pNum = 1
Else
pNum = Cint(request.QueryString("pNum"))
End If
Session("pNum") = pNum
rs.pagesize = pSize
pCount = rs.pagecount
rs.absolutepage = pNum
flag = pSize
Do while not rs.eof and flag > 0
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分页显示</title>
</head>
<body>
<%
Dim db
Set db = Server.CreateObject("Adodb.Connection")
db.Open"Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.MapPath("db.mdb")
Dim rs,str
Dim pSize,pNum,pCount
Dim flag,k
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select ProductName from Products"
rs.open str,db,1
pSize = 3
If request.QueryString("pNum") = "" Then
pNum = 1
Else
pNum = Cint(request.QueryString("pNum"))
End If
Session("pNum") = pNum
rs.pagesize = pSize
pCount = rs.pagecount
rs.absolutepage = pNum
flag = pSize
Do while not rs.eof and flag > 0
flag = flag - 1
response.Write rs("ProductName")
response.Write("<br>")
rs.movenext
Loop
For k = 1 to pCount
asp分页显示代码(access数据库简单版)2007年04月10日 星期二 16:03<% dim rs,sql,i
filePath = Server.MapPath("66.mdb")
response.Write rs("ProductName")
response.Write("<br>")
rs.movenext
Loop
For k = 1 to pCount
asp分页显示代码(access数据库简单版)2007年04月10日 星期二 16:03<% dim rs,sql,i
filePath = Server.MapPath("66.mdb")
剩余7页未读,继续阅读
资源评论
c_zjf
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功