用asp做access的远程接口 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 用asp做access的远程接口

用asp做access的远程接口 时间：2004/10/7 18:30:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　以前看到很多网友问，自己有两台服务器，如何这两台服务器上的mdb数据库数据的互访。今天作了个远程的接口，以xml形式返回mdb中的数据。用的主要思想是通过recordset对象的save方法将数据填充到一个xml dom里，但是，这种方法产生的XML不够简洁，自动产生的XML包含了schema信息，它描述这个XML里允许有什么节点和属性以及采用何种数据类型，而且数据节点也增加了名称空间。schema信息在需要数据验证的地方或进行更复杂的处理或许很有用，但是，大多数情况下，我们使用的是瘦客户机，我们不需要schema信息。我们可以利用XSLT来分离出我们想要的信息，去掉多余的信息。

代码如下：
<%
'生成xsl样式
str = chr(13)&chr(10)&chr(9)
xslt="" & chr(13)&chr(10) & "      &" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"""_
      &" xmlns:s=""uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"""_
      &" xmlns:dt=""uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"""_
      &" xmlns:rs=""urn:schemas-microsoft-com:rowset"""_
      &" xmlns:z=""#RowsetSchema"">"& str_
& ""&str_
& ""& str&chr(9)_
     & ""& str&chr(9)&chr(9)_
          &""& str&chr(9)&chr(9)&chr(9)_
              &""& str&chr(9)&chr(9)&chr(9)&chr(9)_
                  &""& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
                     & ""& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
                         & ""& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
                      &""& str&chr(9)&chr(9)&chr(9)&chr(9)_
                 & ""& str&chr(9)&chr(9)&chr(9)_
             & ""& str&chr(9)&chr(9)_
          &""& str&chr(9)_
      &""& str_
&""& chr(13)&chr(10)_
&""

'读取数据库
curDir = Server.MapPath("data.mdb")
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
set rs=conn.Execute("select * from admins")
Dim objXMLDOM
Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
'将recordset对象保存到dom里
rs.save objXMLDOM, 1
Set rs = Nothing
Dim strCleanXML, objXMLDOM_XSLT
Set objXMLDOM_XSLT = CreateObject("MSXML2.DOMDocument")
objXMLDOM_XSLT.loadXml(xslt)
'用xsl格式化数据
strCleanXML = objXMLDOM.transformNode(objXMLDOM_XSLT)

Set objXMLDOM = Nothing
Set objXMLDOM_XSLT = Nothing
'输出数据
Response.Write strCleanXML
%>