作为一个普通的程序员我深知一个优秀的例程对于正在学习编程的人是多么的有帮助本文中使用的例程是一个联系信息管理程序我也是写来以方便自己和朋友们互相联系用的但麻雀虽小五髒俱全相信对正在学习ASP＋XML编程的朋友们还是具备一定的参考价值的
读者可以通过此实例了解在ASP（Active Server Page）中如何操纵XML文件并进行数据的各种处理包括XML节点的建立修改删除和保存等等文中涉及到的技术包括ASPVBScriptDOMXML和XSL等
本文未对使用到的技术进行深入的理论介绍因此读者需要具备一定的相关知识尤其是对ASPXML和DOM应该有一定的了解通读本文并参考源代码相信读者一定可以熟练地掌握XML编程
一程序说明
例程基于B/S结构使用XML文件存储联系信息然后通过一个VBScript写的Class使用DOM对XML文件中的联系信息进行各种操作
例程提供的代码采用了统一的命名规范主要包括用三个字母的缩写说明变量类型如数字类型——int字符串类型——str对象——obj等等虽然在ASP/VBScript中不区分数据类型但使用明显的数据类型说明对程序的编写和维护还是很有意义的使用有意义的变量名称如XMLDocument对象定义为objXmlDoc等等同样这样做的也是为了更好地编写和维护程序
此程序可以分为后台数据处理和前台界面表现两部分
程序后台使用VBScript编写了一个Class这是在VBScript版中提供的新特性虽然这里Class的概念和真正的面向对象相去甚远但是在ASP中合理地使用Class还是可以在一定程度上提高程序的运行效率和可维护性
前台表现使用XSL对XML文件中的数据进行了格式化然后以HTML的形式输出到客户端充分体现了XML技术带来的灵活性与可定制性格式化的过程放在了服务器端使用ASP程序完成这样客户端得到的是经过格式化之后的HTML信息避免了兼容性问题的出现
当然程序对于具体的操作细节未作非常严格的检验比如联系信息必填项的检查但是对于在ASP中使用DOM操作XML的有关部分程序提供了完整的示例代码
二XML文件说明（personsxml）
例程中使用到的XML文件结构十分简单并且没有定义相关的Schema或者DTD因为对于此程序这是不必要的当然如果读者愿意自己定义一个的话也不会对程序的运行产生影响
程序的数据结构定义如下Persons集合它包含多个Person对象每一个Person对象包括姓名Name英文名Nick手机Mobile电话Tel电子邮件Email腾讯QQ和所在公司Company的属性将以上定义对应到XML文件即Persons为根节点Person为Persons的子节点NameNickMobileTelEmailQQ和Company为Person的子节点
这样我们得到的XML文件内容如下:
＜?xml version= encoding=gb?＞
＜Persons＞
＜Person＞
＜Name＞小东＜/Name＞
＜Nick＞gwd＜/Nick＞
＜Mobile＞XXXXXXXX＜/Mobile＞
＜Tel＞XXXXXXXX＜/Tel＞
＜Email＞＜/Email＞
＜QQ＞＜/QQ＞
＜Company＞XXX＜/Company＞
＜Person＞
＜/Person＞
读者需要注意＜?xml version= encoding=gb?＞这一行XML默认不支持中文通过设置encoding属性才可以使XML正确地显示中文读者可以在IE及以上版本的浏览器中访问此文件它会以 树型结构把数据显示出来
三格式转换XSL文件说明(Personsxsl)
例程中使用XSL对XMl数据进行格式化并以HTML的形式返回到客户端这个过程也可以放在客户端进行但考虑到兼容性的问题例程中采用了在服务器端通过ASP操纵DOM进行格式化的方法
XSL文件的内容如下
＜?xml version= encoding=gb?＞
＜xsl:stylesheet xmlns:xsl= rsion=＞
＜xsl:template match=/Persons＞
＜script language=javascript＞
function add()
{
windowopen(addasp add width=height=resize=no);
}
function edit(intId)
{
windowopen(editasp?id=+intId edit width=height=resize=no);
}
＜/script＞
＜table width= border= align=center＞
＜tr＞
＜td align=right＞＜a javascript:add(); title=添加新联系人＞添加新联系人＜/a＞＜/td＞
＜/tr＞
＜/table＞
＜table align=center width= cellspacing= cellpadding= border= bgcolor=#＞
＜tr class=title bgcolor=#EEE＞
＜td width=＞＜xsl:text disableoutputescaping=yes＞&＜/xsl:text＞nbsp;＜/td＞
＜td＞姓名＜/td＞
＜td＞英文名＜/td＞
＜td＞手机＜/td＞
＜td＞电话＜/td＞
＜td＞Email＜/td＞
＜td＞QQ＜/td＞
＜td＞所在公司＜/td＞
＜/tr＞
＜xsl:foreach select=Person＞
＜TR BGCOLOR=#FFFFFF＞
＜TD ALIGN=right＞＜xsl:valueof select=position()/＞＜/TD＞
＜TD STYLE=color:#＞＜A＞＜xsl:attribute name=HREF＞javascript:edit(＜xsl:valueof select=position()/＞);＜/xsl:attribute＞＜xsl:attribute name=title＞修改信息
＜/xsl:attribute＞＜xsl:valueof select=Name/＞＜/A＞＜/TD＞
＜TD＞＜xsl:valueof select=Nick/＞＜/TD＞
＜TD＞＜xsl:valueof select=Mobile/＞＜/TD＞
＜TD＞＜xsl:valueof select=Tel/＞＜/TD＞
＜TD＞＜A＞＜xsl:attribute name=HREF＞mailto:＜xsl:valueof select=Email/＞＜/xsl:attribute＞＜xsl:valueof select=Email/＞＜/A＞＜/TD＞
＜TD＞＜xsl:valueof select=QQ/＞＜/TD＞
＜TD＞＜xsl:valueof select=Company/＞＜/TD＞
＜/TR＞
＜/xsl:foreach＞
＜/table＞
＜/xsl:template＞
＜/xsl:stylesheet＞
在服务器端的转换使用一个函数来完成格式化成功返回HTML字符串格式化失败打印出错误信息如下
*******************************************
说明使用XSL文件格式化XML文件
作者gwd
参数strXmlFile Xml文件路径＋文件名
strXslFile Xsl文件路径＋文件名
返回成功 格式化后的HTML字符串
失败 自定义的错误信息
*******************************************
Function FormatXml(strXmlFile strXslFile)
Dim objXml objXsl
strXmlFile = ServerMapPath(strXmlFile)
strXslFile = ServerMapPath(strXslFile)
Set objXml = ServerCreateObject(MSXMLDOMDocument)
Set objXsl = ServerCreateObject(MSXMLDOMDocument)
objXMLAsync = False
If objXmlLoad(strXmlFile) Then
objXslAsync = False
objXslValidateonParse = False
If objXslLoad(strXslFile) Then
On Error Resume Next 捕获transformNode方法的错误
FormatXml = objXmltransformNode(objXsl)
If objXslparseErrorerrorCode ＜＞ Then
ResponseWrite
＜hr＞
ResponseWrite Error Code: & objXslparseErrorerrorCode
ResponseWrite
Error Reason: & objXslparseErrorreason
ResponseWrite
Error Line: & objXslparseErrorline
FormatXml = ＜span class=alert＞格式化XML文件错误！＜/span＞
End If
Else
ResponseWrite
＜hr＞
ResponseWrite Error Code: & objXslparseErrorerrorCode
ResponseWrite
Error Reason: & objXslparseErrorreason
ResponseWrite
Error Line: & objXslparseErrorline
FormatXml = ＜span class=alert＞装载XSL文件错误！＜/span＞
End If
Else
ResponseWrite
＜hr＞
ResponseWrite Error Code: & objXmlparseErrorerrorCode
ResponseWrite
Error Reason: & objXmlparseErrorreason
ResponseWrite
Error Line: & objXmlparseErrorline
FormatXml = ＜span class=alert＞装载XML文件错误！＜/span＞
End If
Set objXsl = Nothing
Set objXml = Nothing
End Function
四操作Xml数据的Cls_Person类说明（clsPersonasp）
Cls_Person类用来完成与联系人信息相关的各种操作包括添加修改和删除等等它使用VBScript编写Cls_Person包括IdNameNickMobileTelEmailQQ和Company属性对应于XML文件中的Person节点Cls_Person包括GetInfoFromXmlAddToXmlEditToXml和DeleteFormXml四个主要方法分别完成获取信正文
