在asp中,从数据库中的表中查询数据并显示在网页上
展开全部
1、首先,建表!
2、连接数据库的文件
<%
dim conn
dim connstr
dim db
db="lf#hospi$09_01_06/#hos$lf09#01_16.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
3、从数据库中选择相应字段
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where bigclassname='文化理念' order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有新闻")
else
%>
4、输出相应字段,想输出什么可以多写几个id为字段名。
<%=rs("id")%>
5、循环输出下面的记录(一个表肯定不可能是一条记录)
<%
rs.movenext
if rs.eof then exit for
next
%>
2、连接数据库的文件
<%
dim conn
dim connstr
dim db
db="lf#hospi$09_01_06/#hos$lf09#01_16.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
3、从数据库中选择相应字段
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where bigclassname='文化理念' order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有新闻")
else
%>
4、输出相应字段,想输出什么可以多写几个id为字段名。
<%=rs("id")%>
5、循环输出下面的记录(一个表肯定不可能是一条记录)
<%
rs.movenext
if rs.eof then exit for
next
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询