asp显示access数据库的内容
我现在有个数据库名字是xuesheng.mdb表是pass字段内容是idxingmingnianling我想做个asp的网页文件就是直接列出数据库内容的请高手大大帮我写个...
我现在有个数据库 名字是xuesheng.mdb 表是pass 字段内容是id xingming nianling
我想做个asp的网页文件 就是直接列出数据库内容的 请高手大大帮我写个完整的asp源码！谢谢了
不行啊 说要建立数据库 然后写个查询语句就行了 展开
我想做个asp的网页文件 就是直接列出数据库内容的 请高手大大帮我写个完整的asp源码！谢谢了
不行啊 说要建立数据库 然后写个查询语句就行了 展开
5个回答
展开全部
在xuesheng.mdb的同一个目录下建一个名字为show.asp的页面，把下面的代码复制到show.asp里就行了。
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("xuesheng.mdb")
'以上是连接数据库
'-------------------
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from pass "
rs.open sql,conn,1,1
'以上是打开数据库
'-------------------
while not rs.eof '当记录存在时,按以下方式逐条显示
%>
<%=rs("id")%> <%=rs("xingming")%> <%=rs("nianling")%>
<%
rs.movenext
wend
rs.close
conn.close
%>
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("xuesheng.mdb")
'以上是连接数据库
'-------------------
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from pass "
rs.open sql,conn,1,1
'以上是打开数据库
'-------------------
while not rs.eof '当记录存在时,按以下方式逐条显示
%>
<%=rs("id")%> <%=rs("xingming")%> <%=rs("nianling")%>
<%
rs.movenext
wend
rs.close
conn.close
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%
Set conn=Server.CreateObject("Adodb.Connection")
Set rs=Server.CreateObject("Adodb.RecordSet")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("xuesheng.mdb")
sql="select * from pass "
rs.open sql,conn,1,1
while not rs.eof
response.Write rs("id") &"<BR>"
rs.movenext
wend
rs.close
conn.close
%>
Set conn=Server.CreateObject("Adodb.Connection")
Set rs=Server.CreateObject("Adodb.RecordSet")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("xuesheng.mdb")
sql="select * from pass "
rs.open sql,conn,1,1
while not rs.eof
response.Write rs("id") &"<BR>"
rs.movenext
wend
rs.close
conn.close
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!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=utf-8" />
<title>给你简单做一下，希望能帮到你</title>
</head>
<!--#include file="conn.asp"-->
<body>
<table width="500" style="border:solid 1px #999">
<%
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from pass"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("xingming")%></td>
<td><%=rs("nianling")%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
</body>
</html>
conn.asp文件内容：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/xuesheng..mdb")
conn.Open Strconn
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>给你简单做一下，希望能帮到你</title>
</head>
<!--#include file="conn.asp"-->
<body>
<table width="500" style="border:solid 1px #999">
<%
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from pass"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("xingming")%></td>
<td><%=rs("nianling")%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
</body>
</html>
conn.asp文件内容：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/xuesheng..mdb")
conn.Open Strconn
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
查询语句：
"select * from pass"
"select * from pass"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
创建个记录集——然后“插入”（菜单）——应用程序对象——主详细页集。这样就搞定了………… 如果还不行就HI 我……
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
