这是我利用msxml读取表记录的程序
a.asp
var oXMLDoc=new ActiveXObject('MSXML');   
sURL='ghjInfo.asp?Para1=' + tablename;    oXMLDoc.async = false;
 try {
       oXMLDoc.url=sURL;
       var oRoot=oXMLDoc.root;
       if (oRoot.children!=null)
      {
  for(var i=0;i<oRoot.children.length;i++)
  {          var bindnode=oRoot.children.item(i).text.split(",")[0];
    var bindtip=oRoot.children.item(i).text.split(",")[1];
  }
      }
             catch(err)
    {
  alert("查询数据失败!");
    }

ghjInfo.asp

<%
tablename=trim(Request.QueryString("Para1"))
set Conn=Server.CreateObject("ADODB.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\局浏览系统\规划局\ghj.mdb;"
Set rstCache = Server.CreateObject("ADODB.RecordSet")
%>

<?xml version="1.0" encoding="gb2312" ?>
<regions>

<%
rstCache.Source = "SELECT ID,项目名称,x坐标,y坐标,对应文件 FROM " & tablename
rstCache.activeconnection=Conn
'rstCache.CursorType = 0
'rstCache.CursorLocation = 1
'rstCache.LockType = 3
rstCache.Open()

'If Not rstCache.EOF Then
do while not rstCache.eof
 Response.write "<region>" & rstCache.fields("项目名称").value & ","  & rstCache.fields("ID").value & ","  & rstCache.fields("x坐标").value & "," & rstCache.fields("y坐标").value & "," & rstCache.fields("对应文件").value &"</region>"
 rstCache.movenext
loop
rstCache.Close

set rstCache=nothing
%>

</regions>