用asp做access的远程接口

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

代码如下：

1   
2'生成xsl样式   
3str = chr(13)&chr(10)&chr(9)   
4xslt="
5<?xml version=""1.0""?>
6" & chr(13)&chr(10) & "

<xsl:stylesheet """="" #rowsetschema""="" &"="" 1.0"""="" 1999="" http:="" transform="" urn:schemas-microsoft-com:rowset"""="" uuid:bdc6e3f0-6da3-11d1-a2a3-00aa00c14882"""="" uuid:c2f41010-65b3-11d1-a29f-00aa00c14882"""="" version="" www.w3.org="" xmlns:dt="" xmlns:rs="" xmlns:s="" xmlns:xsl="" xmlns:z="" xsl="">"& str
& "<xsl:output omit-xml-declaration="" yes""=""></xsl:output>"&str_
& "<xsl:template ""="" match="">"& str&chr(9)_
& "<xsl:element name="" xml""="">"& str&chr(9)&chr(9)_
&"<xsl:for-each rs:data="" select="" xml="" z:row""="">"& str&chr(9)&chr(9)&chr(9)_
&"<xsl:element name="" row""="">"& str&chr(9)&chr(9)&chr(9)&chr(9)_
&"<xsl:for-each @*""="" select="">"& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
& "<xsl:element name="" {name()}""="">"& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
& "<xsl:value-of .""="" select=""></xsl:value-of>"& str&chr(9)&chr(9)&chr(9)&chr(9)&chr(9)_
&"</xsl:element>"& str&chr(9)&chr(9)&chr(9)&chr(9)_
& "</xsl:for-each>"& str&chr(9)&chr(9)&chr(9)_
& "</xsl:element>"& str&chr(9)&chr(9)_
&"</xsl:for-each>"& str&chr(9)_
&"</xsl:element>"& str_
&"</xsl:template>"& chr(13)&chr(10)_
&"</xsl:stylesheet>

 1" 
 2
 3'读取数据库   
 4curDir = Server.MapPath("data.mdb")   
 5set conn=server.createobject("adodb.connection")   
 6conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir   
 7set rs=conn.Execute("select * from admins")   
 8Dim objXMLDOM   
 9Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")   
10'将recordset对象保存到dom里   
11rs.save objXMLDOM, 1   
12Set rs = Nothing   
13Dim strCleanXML, objXMLDOM_XSLT   
14Set objXMLDOM_XSLT = CreateObject("MSXML2.DOMDocument")   
15objXMLDOM_XSLT.loadXml(xslt)   
16'用xsl格式化数据   
17strCleanXML = objXMLDOM.transformNode(objXMLDOM_XSLT)   
18  
19Set objXMLDOM = Nothing   
20Set objXMLDOM_XSLT = Nothing   
21'输出数据   
22Response.Write strCleanXML

因为xml是跨平台的，所以呢不论是asp还是jsp或者客户端都可以通过该接口获得数据，然后用自己的样式来显示数据。比如，在客户端我们可以使用javascript操作xmlhttp来获得 www.xxxx.com 上某个mdb的数据：

1<script language="javascript">   
2function req(){   
3var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");   
4xmlhttp.Open("GET", " http://www.xxxx.com/mdb_inerface.asp ", false);   
5'mdb_interface.asp既为放在 www.xxxx.com 上的mdb接口文件   
6xmlhttp.Send();   
7alert(xmlhttp.responseText);   
8}   
9</script>

1<body>
2<input onclick="req();" type="button" value=" 获 取 "/></body>