神马品牌网春燕归来主要内容:asp查询access
来源：百度文库 编辑：神马品牌网 时间：2024/05/10 13:01:28
在线等！！
QQ：583883023
要把数据库里的数据显示出来,首先得建立与数据库的链接.用这段代码建立链接
<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("yinyue.mdb")
%>
<%
exec="select * from yinyue"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
注意,上面的yinyue是数据库的名字,dbq="&server.mappath("yinyue.mdb")
%>是数据库在你服务器上的地址,比如你的数据库如果是在是在一个叫abs的文件夹里,那么上面的代码就改为dbq="&server.mappath("..abs\yinyue.mdb")
%>下面一句set rs=server.createobject("adodb.recordset")是建立一个记录集,链接了数据库之后就要把数据库记录到一个记录集里,这样才能显示数据.rs.open exec,conn,1,1是打开这个记录集.下面是显示数据的代码
<%
do while not(rs.eof or err)
%><%=rs("id")><%=rs("test")%>
<%
rs.movenext
loop
%>
注意,这里的id,test是你数据库里面一个条目的名字,你写的时候把他改做你数据库里的名字,要是有更多的条目按上面的格式写,至于排版的代码自己去加
最后要关闭数据库,加这两句
<%
rs.close
coon.close
%>
每次用完数据库就要关闭,就好象打完电话就要挂机,如果你不挂机,别人就打不进!好了,至于分页,我有一段完整的代码,你自己去参考按照你数据库的名字修改
<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
%>'test是你数据库的名字
<HTML>
<link href="../text.css" rel="stylesheet" type="text/css">
<body>
<table width="600" border="0" align="center">
<tr>
<td width="600" height="298" valign="top">
<div align="center">
<%
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM test"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<p align="center">还没有该类信息！</p>
<%
else
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
filename="test3.asp"
'test3.asp是你建的这个ASP网页保存的名字
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs.pagesize=10
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showContent
showpages1
end if
end if
rs.close
end if
set rs=nothing
rs.close
set conn=nothing
sub showContent
dim i,j
%>
<table width="520" border="0" class="default">
<%
i=1
do while not (rs.eof or err)
%>
<tr>
<td height="34" align="center" valign="middle" class="text">·<%=rs("id")%></td>
<td align="left" valign="middle" class="text"><%=rs("test")%></td>
</tr>
<%
if i>=MaxPerPage then exit do
i=i+1
rs.movenext
loop
%>
<tr>
<td height="140" colspan="3" align="center">
<%
end sub
%>
<%
sub showpages1()
dim n
n=totalPage
%>
<form action="<%=filename%>" method="post" align="right">
<table width="81%" height="30" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="30">
<div align="right"> <span style="font-size:9pt"> 共<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><%=totalPut%></font>条信息 </span>
<% If currentPage <> 1 Then %>
<a href=<%=filename%>><font color="#FF6600"><span style="font-size:9pt">[首页]</span></font></a> <a href=<%=filename%>?Page=<%=(currentPage-1)%>><font color="#FF6600"><span style="font-size:9pt">[上一页]</span></font></a>
<% End If %>
<% If currentPage <> rs.PageCount Then %>
<a href=<%=filename%>?Page=<%=(currentPage+1)%>><font color="#FF6600"><span style="font-size:9pt">[下一页]</span></font></a> <a href=<%=filename%>?Page=<%=totalPage%>><font color="#FF6600"><span style="font-size:9pt">[尾页]</span></font></a>
<% End If %>
<span style="font-size:9pt"> 第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页
<%
response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write"<input name='types' type='hidden' value='"&request("types")&"'>"
response.write " <input class=buttonface type='submit' value='go' style='font-family: 宋体; font-size: 9pt;'>"
%>
</span> </div></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%end sub%>
</div></td>
</tr>
</table>
</body>
注意:其中的MaxPerPage 是每页显示多少条,显示的内容在do while not (rs.eof or err)那个循环里面,按照你数据库里面的条目的名字做适应的修改就可以了
联系邮箱toby_239@163.com
我可以给你一段代码