Question

如何将数据库内容显示在网页上？

我是菜鸟，我想将2010年三中一模成绩.mdb的数据显示在网页上，代码如下：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("2010年三中一模成绩.mdb")
temp = temp & "DBQ=" & server.mappath("2010年三中一模成绩.mdb")
conn.open temp

要把2010年三中一模成绩.mdb所有内容显示在网页上，怎么办？代码怎么写？谢谢高手。

Answer 1

for 循环一把 或者read.next

Answer 2

Dim MM_xmgl_STRING
<%
MM_aa_STRING ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("/2010年三中一模成绩.mdb")
%>
<%
Dim xms
Dim xms_numRows
Set xms = Server.CreateObject("ADODB.Recordset")
xms.ActiveConnection = MM_aa_STRING
xms.Source = "SELECT 字段1,字段2,字段3 FROM 数据库中的那个表名"
xms.CursorType = 0
xms.CursorLocation = 2
xms.LockType = 1
xms.Open()
xms_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
xms_numRows = xms_numRows + Repeat1__numRows
%>
<% If Not xms.EOF Or Not xms.BOF Then %>
<% While ((Repeat1__numRows <> 0) AND (NOT xms.EOF)) %>
<tr>
<td>字段1</td><td>字段2</td><td>字段3</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
xms.MoveNext()
Wend
%>
<% End If ' end Not xms.EOF Or NOT xms.BOF %>
<%
xms.Close()
Set xms = Nothing
%>
把这段代码粘贴进去试试，应该可以实现你说的功能了

追问

我改成：

Dim MM_xmgl_STRING
<%
MM_aa_STRING ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("2010年三中一模成绩.mdb")
xms.Source = "SELECT 姓名,语文,数学，英语，物理，化学，政治，历史，总分 FROM sheet1"
其他不变，在iis里运行网页，显示“您输入的网页无法访问”，可以再帮我看看吗？

追答

，全换成,

追问

还是不行

姓名语文数学英语物理化学政治历史总分

这段代码是否有问题？谢谢。

追答

错误代码是什么？

追问

您指定的网页无法访问!
错误类型：500
建议：
您可以“重试”
您输入的域名无法解析，查找正确域名：您输入的网页无法访问，查找该网站相关内容：