您的位置:首页技术开发ASP技巧 → 结合XML ADO 以及ASP 

结合XML ADO 以及ASP 

时间:2004/11/7 4:11:00来源:本站整理作者:蓝点我要评论(0)

这个星期,我们将使用可扩充标记语言(XML)以及在ASP中使用ActiveX Data Object(ADO).在最新的互联网信息服务器(IIS 5)和ADO(2.6)版本中,我们现在能够从游标对象中提取数据作为XML直接保存并直接发给ASP的response对象   





下面的Phonelist.asp工程从创建一个底层的Access数据库开始.我的想法是开发一个对任何公司都有用的简单的数据集.第一步是命名表单contacts然后增加四个域:FirstName,LastName, Location, 和Phone.你要明白XML和可扩充风格页语言(XSL)是大小些敏感的,因此你要确保你的数据域名和XSL风格页中的那些定义相匹配.



本工程中的ASP只有一个简单的功能:提取数据并将它作为XML返回.首先,我们需要将文件内容类型标示为text/xml.然后,添加XML信息头和风格页连接信息来格式化XML数据.第三步,创建一个ADO游标对象来提取数据.这里你可以体会到XML技术的简单性是如此的精巧.我们不需要循环遍历整个游标对象也不需要将HTML和脚本代码混合来在ASP里格式化和显示数据,我们只需要简单的打开游标然后将数据作为XML保存到response对象里.



开发者能够容易的用XSL格式化和显示数据的确是令人神往的.你的开发过程越简单,问题存在的可能性就越小.



更多的信息和ADO MDAC 2.6版的下载链接可以在下面的站点找到:Microsoft Universal Access Data Web site.



下面是Phonelist.asp程序的代码.

<%@ Language=VBScript %>

<%

Response.ContentType = "text/xml"

Response.Write "" & vbcrlf

Response.Write "
"href=""PhoneList.XSL"" ?>" & vbcrlf & vbcrlf



set rsContacts = Server.CreateObject("ADODB.Recordset")

dataConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"User ID=Admin;Data Source=D:\Inetpub\wwwroot\ASP_Utils\PhoneList.mdb;" & _

"Mode=Share Deny None;Extended Properties="""";" & _

"Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" & _

"Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;" & _

"Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;" & _

"Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";" & _

"Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;" & _

"Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:" & _

"Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;"

sql = "SELECT LastName + ', ' + FirstName AS Name, " & _

"Phone, Location FROM Contacts ORDER BY LastName"



rsContacts.ActiveConnection = dataConnStr

rsContacts.Source = sql

rsContacts.CursorLocation = 3'Use Client side cursor

rsContacts.Open

rsContacts.ActiveConnection = nothing



rsContacts.Save response, 1 'adPersistXML

Set rsContacts = Nothing

%>



The Phonelist.xsl file source:



Company Phone List





























TD align="center">







Name Location Phone









相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案