实例演练ASP+XML编程(4)

五、程序首页（default.asp）
??调用相应的包含文件和公共函数，格式化XML文件，并进行显示。可以看到，页面Title是可定制的，公共的头部和尾部都做成了相应的包含文件。C_TITLE、C_XMLFILE和C_XSLFILE为公共常量，在constpub.asp文件中定义，至于它们的意义，相信读者可以很容易地明白。这里调用了上面定义的FormatXml函数。
＜% Option Explicit
'***********************************************
' 说明：通讯录
' 作者：gwd 2002-11-05
'***********************************************
%＞
＜!--#include file="pub/funcxml.asp"--＞
＜!--#include file="pub/constpub.asp"--＞
＜HTML＞
＜HEAD＞
＜TITLE＞＜% = C_TITLE %＞＜/TITLE＞
＜META HTTP-EQUIV="content-type" CONTENT="text/html;charset=GB2312"/＞
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜/HEAD＞
＜BODY＞
＜!--#include file="pub/header.asp"--＞
＜% = FormatXml(C_XMLFILE, C_XSLFILE) %＞
＜br＞
＜!--#include file="pub/footer.asp"--＞
＜/BODY＞
＜/HTML＞

　　六、添加、修改和删除XML中的信息
??我们知道，在Cls_Person中已经定义了相应的方法，因此，在各个文件中，只需要调用对应的方法即可。添加信息的文件为add.asp，修改信息的文件为edit.asp，删除信息的文件为delete.asp，我们仅以add.asp文件为例进行说明。其中的CheckStrInput和CheckStrOutput函数，用来格式化用户的输入和输出字符串。
＜% Option Explicit
'***********************************************
' 说明：37080308通讯录
' 作者：gwd 2002-11-05
'***********************************************
%＞
＜!--#include file="pub/funcxml.asp"--＞
＜!--#include file="pub/constpub.asp"--＞
＜!--#include file="pub/funcpub.asp"--＞
＜!--#include file="pub/class/clsPerson.asp"--＞
＜%
　Dim objXml, objPerson
　Dim strErr
　Set objXml = Server.CreateObject("MSXML2.DOMDocument")
　Set objPerson = New Cls_Person ' 生成Cls_Person对象