高分求救：如何用Javascript或Vbscript在客户端显示数据库（储存在本机硬盘里的数据库）？

<SCRIPT LANGUAGE=JScript>
var dbcn=new ActiveXObject("ADODB.Connection");
dbcn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\user.mdb");
var rs=new ActiveXObject("ADODB.Recordset");
rs.Open("Select [uid] From [users] Where uid=1",dbcn,3);
alert(rs("uid))
</SCRIPT>
基本上和asp无区别，

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

<html>
<head>
<title>表格显示数据表记录</title>
</head>
<body>
<h2>表格显示数据表记录</h2>
<hr>
<script language="JavaScript">
// 创建数据库对象
var objdbConn = new ActiveXObject("ADODB.Connection");
// DSN字符串
var strdsn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\Books.mdb";
// 打开数据源
objdbConn.Open(strdsn);
// 执行SQL的数据库查询
var objrs = objdbConn.Execute("SELECT * FROM Book");
// 获取字段数目
var fdCount = objrs.Fields.Count - 1;
// 检查是否有记录
if (!objrs.EOF){
  document.write("<table border=1><tr>");
  // 显示数据库的字段名称
  for (var i=0; i <= fdCount; i++)
      document.write("<td><b>" + objrs.Fields(i).Name + "</b></td>");
  document.write("</tr>");
  // 显示数据库内容
  while (!objrs.EOF){
    document.write("<tr>");
    // 显示每笔记录的字段
    for (i=0; i <= fdCount; i++)
       document.write("<td valign='top'>" + objrs.Fields(i).Value + "</td>");
    document.write("</tr>");
    objrs.moveNext();  // 移到下一笔记录
  }
  document.write("</table>");
}
else
  document.write("数据库内没有记录!<br>");
objrs.Close();        // 关闭记录集合
objdbConn.Close();    // 关闭数据库链接
</script>
</body>
</html>
bencalie(Bencalie) ：我用了你的代码，但测试时总是提示“var objrs = objdbConn.Execute("SELECT * FROM Module");”行有未指明的错误，这是怎么回事呀，感谢回复！
<script>
function go() {
var xDOM = new ActiveXObject("MSXML.DOMDocument");
var rsXML = new ActiveXObject("ADODB.Recordset");
var sSQL, sConn, Path

sSQL = "SELECT * FROM 客户";
sConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\FPNWIND.MDB"; rsXML.Open(sSQL, sConn); rsXML.Save(xDOM, 1);
document.write("<table border=\"1\" style=\"border:1px solid;\"><tr>"); for(var i=0;i<rsXML.fields.Count;i++) {
document.write("<td style=\"background:'#ffcfff';font:bold;\">" + rsXML.fields(i).name + "</td>")
}
document.write("</tr>");
while(!rsXML.eof) {
document.write("<tr>");
for(var i=0;i<rsXML.fields.Count;i++) {
document.write("<td>" + rsXML.fields(i).value + "</td>");
}
document.write("</tr>");
rsXML.MoveNext
}
document.write("</table>");
}go();</script>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>读取数据库中所有的数据</title><style></style></head><body bgcolor=#000080>
<DIV id=Layer style='z-index: 2; position: absolute; top: 0; left: 6;width: 760'>
<form method=post action=read.asp>
<table border=0 cellspacing=0 cellpadding=0 width=760 height=30><tbody>
<tr><td width=600 height=30 align=center>
     <font size=6 face=隶书 color=#ff0000><b>读取数据库中的所有数据</b></font></td>
     <td width=160 height=30 align=right></td></tr></tbody></table></form></div><br><br>
<script language=vbscript>
Dim objrs,objConn
        Set objConn = CreateObject("ADODB.Connection")
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:/mdb/admin.asp';Jet OLEDB:Database Password=meizz"
        objConn.Open
        Set objrs = CreateObject("ADODB.Recordset")
        objrs.Open "select * from H_USER", objConn, 1, 3
</script>
<table border=0 cellspacing=1 cellpadding=3 bgcolor=#A000C0 align=center>  <tr bgcolor=#e0fff0>
<script language=vbscript>
     for i=0 to objrs.fields.count-1
       document.write"<th>"&objrs.fields(i).name&"</th>"
     next
</script></tr>
<script language=vbscript>
  do while not objrs.eof
    data="  <tr bgcolor=#ffffff>"
    for i=0 to objrs.fields.count-1
       data=data&"<td>"&objrs.fields(i).value &"</td>"
    next
    document.write data&"</tr>"&chr(13)
    objrs.movenext
  loop
  objrs.close
  Set objrs=nothing
  objConn.close
  Set objConn=nothing
</script>
</table></body></html>
win2000 + IE5.0 测试通过
我这里正常噢，是否是你的Access数据库不包含名为Module的表？