国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用asp做access的遠程接口

2019-11-18 19:46:14
字體:
來源:轉載
供稿:網友

      以前看到很多網友問,自己有兩臺服務器,如何這兩臺服務器上的mdb數據庫數據的互訪。今天作了個遠程的接口,以xml形式返回mdb中的數據。用的主要思想是通過recordset對象的save方法將數據填充到一個xml dom里,但是,這種方法產生的XML不夠簡潔,自動產生的XML包含了schema信息,它描述這個XML里允許有什么節點和屬性以及采用何種數據類型,而且數據節點也增加了名稱空間。schema信息在需要數據驗證的地方或進行更復雜的處理或許很有用,但是,大多數情況下,我們使用的是瘦客戶機,我們不需要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=""      &" 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>"

'讀取數據庫
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
%>

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 普格县| 仪征市| 农安县| 新营市| 巴林右旗| 吴桥县| 蚌埠市| 宁河县| 衡水市| 霍城县| 安阳县| 玉林市| 南投县| 广汉市| 南开区| 陵川县| 开化县| 阿合奇县| 孝义市| 凤凰县| 高陵县| 阳山县| 山阳县| 定兴县| 东光县| 三穗县| 文山县| 临武县| 江源县| 元朗区| 衡南县| 浏阳市| 耒阳市| 从江县| 台州市| 汪清县| 阿巴嘎旗| 亚东县| 五指山市| 望江县| 沁源县|