结合XML, ADO, 以及ASP

这个星期,我们将使用可扩充标记语言(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程序的代码.

1@ Language=VBScript

 1   
 2Response.ContentType = "text/xml"   
 3Response.Write "
 4<?xml version=""1.0"" ?>
 5" & vbcrlf   
 6Response.Write "
 7<?xml-stylesheet type=""text/xsl"" " & _   
 8"href=""PhoneList.XSL"" ?>
 9" & vbcrlf & vbcrlf   
10  
11set rsContacts = Server.CreateObject("ADODB.Recordset")   
12dataConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _   
13"User ID=Admin;Data Source=D:\Inetpub\wwwroot\ASP_Utils\PhoneList.mdb;" & _   
14"Mode=Share Deny None;Extended Properties="""";" & _   
15"Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" & _   
16"Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;" & _   
17"Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;" & _   
18"Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";" & _   
19"Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;" & _   
20"Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:" & _   
21"Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;"   
22sql = "SELECT LastName + ', ' + FirstName AS Name, " & _   
23"Phone, Location FROM Contacts ORDER BY LastName"   
24  
25rsContacts.ActiveConnection = dataConnStr   
26rsContacts.Source = sql   
27rsContacts.CursorLocation = 3'Use Client side cursor   
28rsContacts.Open   
29rsContacts.ActiveConnection = nothing   
30  
31rsContacts.Save response, 1 'adPersistXML   
32Set rsContacts = Nothing

The Phonelist.xsl file source:

 1<html xmlns:xsl="http://www.w3.org/TR/WD-xsl">
 2<title>Company Phone List</title>
 3<style>   
 4.Table {background:black}   
 5.TableHead {font:bold; color:white; background:blue}   
 6.ColumnHeader {font:normal 'Verdana' bold; color:white; background:blue}   
 7.TableRow {font:x-small 'Verdana'; color:black; background:#CCCCCC}   
 8</style>
 9<body>
10<div>
11<table class="Table" id="RecordTable">
12<thead>
13<tr class="TableHead">
14<th class="ColumnHeader">Name</th>
15<th class="ColumnHeader">Location</th>
16<th class="ColumnHeader">Phone</th>
17</tr>
18</thead>
19<xsl:for-each select="xml/rs:data/z:row">
20<tr class="TableRow">
21<td><xsl:value-of select="@Name"></xsl:value-of></td>   
22TD align="center"&gt;<xsl:value-of select="@Location"></xsl:value-of>
23<td><xsl:value-of select="@Phone"></xsl:value-of></td>
24</tr>
25</xsl:for-each>
26</table>
27</div>
28</body>
29</html>

结合XML, ADO, 以及ASP&nbsp;

结合XML, ADO, 以及ASP