求asp程读取某mdb数据库的完整代码。

现有一个mdb数据库，我想用asp程序把里面的数据读出来，读出来的数据分页显示每页显示20条.(分页方式像百度那样即：1[2][3][4][5][6][7][8][9][... 现有一个mdb数据库，我想用asp程序把里面的数据读出来，读出来的数据分页显示每页显示20条.(分页方式像百度那样即：1 [2] [3] [4] [5] [6] [7] [8] [9] [10] 下

一页）本人不懂asp编程语言，恳求提供一段直接可以使用的代码。

数据库信息如下：
数据库名company.mdb
表名companylist
该表含有7个字段，字段名分别是:companyid companyName province city addr tel post
companyid为序列号,以其排序展开

 我来答

2个回答

#热议# 为什么说不要把裤子提到肚脐眼？

劳静殊e7
2009-11-27 · TA获得超过642个赞

知道小有建树答主

回答量：403

采纳率：0%

帮助的人：506万

我也去答题访问个人页

关注

展开全部

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db,conn
db="company.mdb" '数据库路径，相对路径
set conn = server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [companylist] ORDER by companyid desc",conn,1,1
rs.PageSize=20 '定义每页显示记录数
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
elseif cint(request("page"))>rs.pagecount then
page=rs.pagecount
else
page=cint(request("page"))
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp读取数据</title>
</head>

<body>
<%
if rs.Eof and rs.Bof then
Response.Write "暂无数据！"
else
%>
<table width="100%" border="0" align="center" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="21%" align="center" bgcolor="#F3F3F3">公司名称</td>
<td width="15%" align="center" bgcolor="#F3F3F3">省</td>
<td width="15%" align="center" bgcolor="#F3F3F3">城市</td>
<td width="18%" align="center" bgcolor="#F3F3F3">地址</td>
<td width="17%" align="center" bgcolor="#F3F3F3">电话</td>
<td width="14%" align="center" bgcolor="#F3F3F3">邮编</td>
</tr>
<%
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.Eof then Exit for
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("companyName")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("province")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("city")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("addr")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("tel")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("post")%></td>
</tr>
<%
rs.MoveNext
Next
%>
<tr>
<td colspan="6" align="center" bgcolor="#FFFFFF">
<%
dim BackPageNum,NextPageNum,BackNum,NextNum
BackPageNum = Page - 5 '定义显示当前页的前5页，根据自己需要修改
NextPageNum = Page + 5 '定义显示当前页的后5页，根据自己需要修改
BackNum = Page - 1
NextNum = Page + 1
if BackPageNum<1 then BackPageNum=1
if rs.PageCount<NextPageNum then NextPageNum=rs.PageCount

if page>1 then
Response.Write"<a href='?Page=1' title='转到第1页'>首页</a> <a href='?Page="&page-1&"' title='转到第"&page-1&"页'>上一页</a> "
else
Response.Write "首页上一页 "
end if

for j=BackPageNum to BackNum
Response.Write"<a href='?Page="&j&"' title='转到第"&j&"页'>["&j&"]</a>"
next

Response.Write"["&page&"]"

for k=NextNum to NextPageNum
Response.Write"<a href='?Page="&k&"' title='转到第"&k&"页'>["&k&"]</a>"
next

if page<rs.pagecount then
Response.Write"<a href='?Page="&page+1&"' title='转到第"&page+1&"页'>下一页</a> <a href='?Page="&rs.PageCount&"' title='转到第"&rs.PageCount&"页'>尾页</a> "
else
Response.Write "下一页尾页 "
end if
Response.Write" 当前页次："&page&" /共 "&rs.PageCount&" 页，"&rs.PageSize&" 条/页，共： "&rs.recordcount&" 条记录 "
%>
</td>
</tr>
</table>
<%
End if
%>
</body>
</html>
<%
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
%>

本回答由提问者推荐

已赞过 已踩过<

评论收起

化学灌浆
2009-11-27 · 超过84用户采纳过TA的回答

知道小有建树答主

回答量：386

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

这个是查询数据库吧
sql=“select * from 表名 order by 字段 desc”
然后open sql
然后判断是否为空
然后循环 OK

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求asp程读取某mdb数据库的完整代码。

其他类似问题

为你推荐：