 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
以前看到很多网友问，自己有两台服务器，如何这两台服务器上的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=""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>" \\\'读取数据库 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", "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=" 获 取 " > 返回类别: 教程 上一教程: RESPONSE对象4 下一教程: FILESYSTEMOBJECT组件新建、读取、添加、修改、删除功能实例 您可以阅读与"用ASP做ACCESS的远程接口"相关的教程: · 通过ASP与ACCESS数据库建立连接(附源码)(2) · ASP+ACCESS莫名奇妙的SQL语句错误解决 · ASP+MS ACCESS常见错误信息及处理方式 · 通过ASP远程注册自己的组件 · 如何在ASP程序中打印ACCESS报表 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
