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

2025-01-01 10:59:13

推荐回答（2个）

回答1：

<%@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
%>

asp读取数据

<%
if rs.Eof and rs.Bof then
Response.Write "暂无数据！"
else
%>

<%
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.Eof then Exit for
%>

<%
rs.MoveNext
Next
%>

公司名称	省	城市	地址	电话	邮编
<%=rs("companyName")%>	<%=rs("province")%>	<%=rs("city")%>	<%=rs("addr")%>	<%=rs("tel")%>	<%=rs("post")%>
<% 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 if page>1 then Response.Write"首页上一页 " else Response.Write "首页上一页 " end if for j=BackPageNum to BackNum Response.Write"["&j&"]" next Response.Write"["&page&"]" for k=NextNum to NextPageNum Response.Write"["&k&"]" next if page Response.Write"下一页尾页 " else Response.Write "下一页尾页 " end if Response.Write" 当前页次："&page&" /共 "&rs.PageCount&" 页，"&rs.PageSize&" 条/页，共： "&rs.recordcount&" 条记录 " %>

<%
End if
%>

<%
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
%>

回答2：

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