明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

用asp做access的遠程接口

發(fā)表時間：2024-02-12 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]以前看到很多網(wǎng)友問，自己有兩臺服務(wù)器，如何這兩臺服務(wù)器上的mdb數(shù)據(jù)庫數(shù)據(jù)的互訪。今天作了個遠程的接口，以xml形式返回mdb中的數(shù)據(jù)。用的主要思想是通過recordset對象的save方法將數(shù)據(jù)填充到一個xml dom里，但是，這種方法產(chǎn)生的XML不夠簡潔，自動產(chǎn)生的XML包含了schema信息...

      以前看到很多網(wǎng)友問，自己有兩臺服務(wù)器，如何這兩臺服務(wù)器上的mdb數(shù)據(jù)庫數(shù)據(jù)的互訪。今天作了個遠程的接口，以xml形式返回mdb中的數(shù)據(jù)。用的主要思想是通過recordset對象的save方法將數(shù)據(jù)填充到一個xml dom里，但是，這種方法產(chǎn)生的XML不夠簡潔，自動產(chǎn)生的XML包含了schema信息，它描述這個XML里允許有什么節(jié)點和屬性以及采用何種數(shù)據(jù)類型，而且數(shù)據(jù)節(jié)點也增加了名稱空間。schema信息在需要數(shù)據(jù)驗證的地方或進行更復(fù)雜的處理或許很有用，但是，大多數(shù)情況下，我們使用的是瘦客戶機，我們不需要schema信息。我們可以利用XSLT來分離出我們想要的信息，去掉多余的信息。

代碼如下：
<%
'生成xsl樣式
str = chr(13)&chr(10)&chr(9)
xslt="<?xml version=""1.0""?>" & chr(13)&chr(10) & "<xsl:stylesheet version=""1.0"""_
      &" 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_
& "<xsl:output omit-xml-declaration=""yes""/>"&str_
&  "<xsl:template match=""/"">"& str&chr(9)_
     & "<xsl:element name=""xml"">"& str&chr(9)&chr(9)_
          &"<xsl:for-each select=""/xml/rs:data/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="".""/>"& 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>"

'讀取數(shù)據(jù)庫
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格式化數(shù)據(jù)
strCleanXML = objXMLDOM.transformNode(objXMLDOM_XSLT)
 
Set objXMLDOM = Nothing
Set objXMLDOM_XSLT = Nothing
'輸出數(shù)據(jù)
Response.Write strCleanXML
%>

       因為xml是跨平臺的，所以呢不論是asp還是jsp或者客戶端都可以通過該接口獲得數(shù)據(jù)，然后用自己的樣式來顯示數(shù)據(jù)。比如，在客戶端我們可以使用javascript操作xmlhttp來獲得www.xxxx.com上某個mdb的數(shù)據(jù)：
<script language="javascript">
function req(){
   var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
   xmlhttp.Open("GET", "http://www.xxxx.com/mdb_inerface.asp", false);
   'mdb_interface.asp既為放在www.xxxx.com上的mdb接口文件
   xmlhttp.Send();
   alert(xmlhttp.responseText);
}
</script>
</HEAD>
<body>
<input type="button" onclick="req();" value=" 獲 取 " /></br>