執行個體演練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對象