代码贴出来了,大家帮俺看看吧。
<html>
<body>
<h2>表格显示数据表记录</h2>
<hr>
<script language="JavaScript">
// 创建数据库对象
var objdbConn = new ActiveXObject("ADODB.Connection");
// DSN字符串
var strdsn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=INFORMFLAT;Data Source=BARCODE";
// 打开数据源
objdbConn.Open(strdsn);
// 执行SQL的数据库查询
var objrs = objdbConn.Execute("SELECT VPosition,Item_Sequence,Item_Code FROM D_Manufacture_Current where VPosition < 5");
// 获取字段数目
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>

解决方案 »

  1.   

    var objdbConn = new ActiveXObject("ADODB.Connection");
    需要权限。运行下面的js,然后重新启动IE(从桌面的图标上打开):
    change.js:
    ----------
    var WSHShell = WScript.CreateObject("WScript.Shell");
    if(Number(WSHShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\0\\1201"))==1)
    {
      WSHShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\0\\1201","0","REG_DWORD");
      WScript.Echo("Warning:\n The My Computer Zone's Safe Setting have been changed a little.\n The item of initial and script running of the uned safty ActiveX component has been changed from notion to use.");
    }
    else
    {
      WSHShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\0\\1201","1","REG_DWORD");
      WScript.Echo("Warning:\n The My Computer Zone's Safe Setting have been changed a little.\n The item of initial and script running of the uned safty ActiveX component has been changed from use to notion.");
    }
      

  2.   

    把上面的语句在notepad中存成js格式,然后双击运行。怎么一运行就打开dreamweaver了?而且再用IE打开最初的asp文件,还是会弹出对话框。请问应该怎么做?
      

  3.   

    那是因为你的.js被dreamweaver强奸了.
      

  4.   

    这个对话框是因为你使用new ActivexObject('...')产生的,因为这将带来安全问题,浏览器当然会提示,否则js是不是黑客语言
      

  5.   

    可是不用new ActivexObject()我访问不了数据库啊。如何能让浏览器不提示?