分享
 
 
 

实例演练ASP+XML编程

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

本文是一篇实例讲解的文章。作为一个普通的程序员,我深知,一个优秀的例程,对于正在学习编程的人是多么的有帮助。本文中使用的例程,是一个联系信息管理程序,我也是写来以方便自己和朋友们互相联系用的。但麻雀虽小,五脏俱全,相信对正在学习ASP+XML编程的朋友们,还是具备一定的参考价值的。

读者可以通过此实例,了解在ASP(Active Server Page)中如何操纵XML文件,并进行数据的各种处理,包括XML节点的建立、修改、删除和保存等等。文中涉及到的技术包括ASP,VBScript,DOM,XML和XSL等。

本文未对使用到的技术进行深入的理论介绍,因此,读者需要具备一定的相关知识,尤其是对ASP、XML和DOM应该有一定的了解。通读本文,并参考源代码,相信读者一定可以熟练地掌握XML编程。

一、程序说明

例程基于B/S结构,使用XML文件存储联系信息,然后通过一个VBScript写的Class,使用DOM,对XML文件中的联系信息进行各种操作。

例程提供的代码采用了统一的命名规范,主要包括:用三个字母的缩写说明变量类型,如数字类型——int,字符串类型——str,对象——obj,等等,虽然在ASP/VBScript中,不区分数据类型,但使用明显的数据类型说明,对程序的编写和维护还是很有意义的;使用有意义的变量名称,如XMLDocument对象,定义为objXmlDoc,等等,同样,这样做的也是为了更好地编写和维护程序。

此程序可以分为后台数据处理和前台界面表现两部分。

程序后台,使用VBScript编写了一个Class,这是在VBScript5.0版中提供的新特性。虽然这里Class的概念和真正的面向对象相去甚远,但是,在ASP中合理地使用Class,还是可以在一定程度上提高程序的运行效率和可维护性。

前台表现,使用XSL对XML文件中的数据进行了格式化,然后以HTML的形式输出到客户端,充分体现了XML技术带来的灵活性与可定制性。格式化的过程放在了服务器端,使用ASP程序完成,这样,客户端得到的是经过格式化之后的HTML信息,避免了兼容性问题的出现。

当然,程序对于具体的操作细节未作非常严格的检验,比如联系信息必填项的检查,但是,对于在ASP中使用DOM操作XML的有关部分,程序提供了完整的示例代码。

二、XML文件说明(persons.xml)

例程中使用到的XML文件结构十分简单,并且没有定义相关的Schema或者DTD,因为,对于此程序这是不必要的。当然,如果读者愿意自己定义一个的话,也不会对程序的运行产生影响。

程序的数据结构定义如下,Persons集合,它包含多个Person对象,每一个Person对象包括姓名Name、英文名Nick、手机Mobile、电话Tel、电子邮件Email、腾讯QQ和所在公司Company的属性。将以上定义对应到XML文件即,Persons为根节点,Person为Persons的子节点,Name、Nick、Mobile、Tel、Email、QQ和Company为Person的子节点。

这样,我们得到的XML文件内容如下:

<?xml version="1.0" encoding="gb2312"?>

<Persons>

<Person>

 <Name>小东</Name>

<Nick>gwd</Nick>

<Mobile>139XXXXXXXX</Mobile>

<Tel>XXXXXXXX</Tel>

<Email>gwd@chinaren.com</Email>

<QQ>7066015</QQ>

<Company>XXX</Company>

<Person>

</Person>

读者需要注意<?xml version="1.0" encoding="gb2312"?>这一行,XML默认不支持中文,通过设置encoding属性,才可以使XML正确地显示中文。读者可以在IE5.0及以上版本的浏览器中访问此文件,它会以 树型结构把数据显示出来。

三、格式转换XSL文件说明(Persons.xsl)

例程中使用XSL对XMl数据进行格式化,并以HTML的形式返回到客户端。这个过程也可以放在客户端进行,但考虑到兼容性的问题,例程中采用了在服务器端通过ASP操纵DOM进行格式化的方法。

XSL文件的内容如下,

<?xml version="1.0" encoding="gb2312"?>

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">

<xsl:template match="/Persons">

<table width="600" border="0" align="center">

<tr>

<td align="right"><a href="javascript:add();" title="添加新联系人">添加新联系人</a></td>

</tr>

</table>

<table align="center" width="680" cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">

<tr class="title" bgcolor="#E5E5E5">

<td width="25"><xsl:text disable-output-escaping="yes">&</xsl:text>nbsp;</td>

<td>姓名</td>

<td>英文名</td>

<td>手机</td>

<td>电话</td>

<td>Email</td>

<td>QQ</td>

<td>所在公司</td>

</tr>

<xsl:for-each select="Person">

<TR BGCOLOR="#FFFFFF">

<TD ALIGN="right"><xsl:value-of select="position()"/></TD>

<TD STYLE="color:#990000"><A><xsl:attribute name="HREF">javascript:edit('<xsl:value-of select="position()"/>');</xsl:attribute><xsl:attribute name="title">修改信息</xsl:attribute><xsl:value-of select="Name"/></A></TD>

<TD><xsl:value-of select="Nick"/></TD>

<TD><xsl:value-of select="Mobile"/></TD>

<TD><xsl:value-of select="Tel"/></TD>

<TD><A><xsl:attribute name="HREF">mailto:<xsl:value-of select="Email"/></xsl:attribute><xsl:value-of select="Email"/></A></TD>

<TD><xsl:value-of select="QQ"/></TD>

<TD><xsl:value-of select="Company"/></TD>

</TR>

</xsl:for-each>

</table>

</xsl:template>

</xsl:stylesheet>

在服务器端的转换使用一个函数来完成,格式化成功,返回HTML字符串,格式化失败,打印出错误信息,如下,

'*******************************************

' 说明:使用XSL文件格式化XML文件。

' 作者:gwd 2002-11-05

' 参数:strXmlFile -- Xml文件,路径+文件名

' strXslFile -- Xsl文件,路径+文件名

' 返回:成功 -- 格式化后的HTML字符串

' 失败 -- 自定义的错误信息

'*******************************************

Function FormatXml(strXmlFile, strXslFile)

Dim objXml, objXsl

strXmlFile = Server.MapPath(strXmlFile)

strXslFile = Server.MapPath(strXslFile)

Set objXml = Server.CreateObject("MSXML2.DOMDocument")

Set objXsl = Server.CreateObject("MSXML2.DOMDocument")

objXML.Async = False

If objXml.Load(strXmlFile) Then

objXsl.Async = False

objXsl.ValidateonParse = False

If objXsl.Load(strXslFile) Then

On Error Resume Next ' 捕获transformNode方法的错误

FormatXml = objXml.transformNode(objXsl)

If objXsl.parseError.errorCode <> 0 Then

Response.Write "<br><hr>"

Response.Write "Error Code: " & objXsl.parseError.errorCode

Response.Write "<br>Error Reason: " & objXsl.parseError.reason

Response.Write "<br>Error Line: " & objXsl.parseError.line

FormatXml = "<span class=""alert"">格式化XML文件错误!</span>"

End If

Else

Response.Write "<br><hr>"

Response.Write "Error Code: " & objXsl.parseError.errorCode

Response.Write "<br>Error Reason: " & objXsl.parseError.reason

Response.Write "<br>Error Line: " & objXsl.parseError.line

FormatXml = "<span class=""alert"">装载XSL文件错误!</span>"

End If

Else

Response.Write "<br><hr>"

Response.Write "Error Code: " & objXml.parseError.errorCode

Response.Write "<br>Error Reason: " & objXml.parseError.reason

Response.Write "<br>Error Line: " & objXml.parseError.line

FormatXml = "<span class=""alert"">装载XML文件错误!</span>"

End If

Set objXsl = Nothing

Set objXml = Nothing

End Function

四、操作Xml数据的Cls_Person类说明(clsPerson.asp)

Cls_Person类用来完成与联系人信息相关的各种操作,包括添加、修改和删除等等,它使用VBScript编写。Cls_Person包括Id、Name、Nick、Mobile、Tel、Email、QQ和Company属性,对应于XML文件中的Person节点。Cls_Person包括GetInfoFromXml、AddToXml、EditToXml和DeleteFormXml四个主要方法,分别完成获取信息,添加信息,修改信息和删除信息四个功能。

Cls_Person的具体实现如下,

'***************************************************

' 说明:Person类

' 作者:gwd 2002-11-06

' 引用:pub/constpub.asp

'***************************************************

Class Cls_Person

Private m_intId ' Id,对应Person节点在Persons集合中的位置

Private m_strName ' 姓名

Private m_strNick ' 英文名

Private m_strMobile ' 手机

Private m_strTel ' 电话

Private m_strEmail ' 电子邮件

Private m_strQQ ' QQ号

Private m_strCompany ' 所在公司

Private m_strError ' 出错信息

' 类初始化

Private Sub Class_Initialize()

m_strError = ""

m_intId = -1

End Sub

' 类释放

Private Sub Class_Terminate()

m_strError = ""

End Sub

'-----读写各个属性---------------------------

Public Property Get Id

Id = m_intId

End Property

Public Property Let Id(intId)

m_intId = intId

End Property

Public Property Get Name

Name = m_strName

End Property

Public Property Let Name(strName)

m_strName = strName

End Property

Public Property Get Nick

Nick = m_strNick

End Property

Public Property Let Nick(strNick)

m_strNick = strNick

End Property

Public Property Get Mobile

Mobile = m_strMobile

End Property

Public Property Let Mobile(strMobile)

m_strMobile = strMobile

End Property

Public Property Get Tel

Tel = m_strTel

End Property

Public Property Let Tel(strTel)

m_strTel = strTel

End Property

Public Property Get Email

Email = m_strEmail

End Property

Public Property Let Email(strEmail)

m_strEmail = strEmail

End Property

Public Property Get QQ

QQ = m_strQQ

End Property

Public Property Let QQ(strQQ)

m_strQQ = strQQ

End Property

Public Property Get Company

Company = m_strCompany

End Property

Public Property Let Company(strCompany)

m_strCompany = strCompany

End Property

'-----------------------------------------------

' 获取错误信息

Public Function GetLastError()

GetLastError = m_strError

End Function

' 私有方法,添加错误信息

Private Sub AddErr(strEcho)

[1] [2] [3] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有