實(shí)例演練ASP+XML編程比較全的了第2/2頁
更新時(shí)間：2007年01月03日 00:00:00 作者：
五、程序首頁（default.asp）
調(diào)用相應(yīng)的包含文件和公共函數(shù)，格式化XML文件，并進(jìn)行顯示?？梢钥吹?，頁面Title是可定制的，公共的頭部和尾部都做成了相應(yīng)的包
含文件。C_TITLE、C_XMLFILE和C_XSLFILE為公共常量，在constpub.asp文件中定義，至于它們的意義，相信讀者可以很容易地明白。這里調(diào)用
了上面定義的FormatXml函數(shù)。
復(fù)制代碼 代碼如下:
<% 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>
'***********************************************
' 說明：通訊錄
' 作者：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中已經(jīng)定義了相應(yīng)的方法，因此，在各個(gè)文件中，只需要調(diào)用對(duì)應(yīng)的方法即可。添加信息的文件為add.asp，修改
信息的文件為edit.asp，刪除信息的文件為delete.asp，我們僅以add.asp文件為例進(jìn)行說明。其中的CheckStrInput和CheckStrOutput函數(shù)，
用來格式化用戶的輸入和輸出字符串。
復(fù)制代碼 代碼如下:
<% 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對(duì)象
If Request.Form("btnOk") <> "" Then
If LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Then ' 裝載XML文件
' 給相應(yīng)的屬性賦值
objPerson.Name = CheckStrInput(Request.Form("txtName"))
objPerson.Nick = CheckStrInput(Request.Form("txtNick"))
objPerson.Mobile = CheckStrInput(Request.Form("txtMobile"))
objPerson.Tel = CheckStrInput(Request.Form("txtTel"))
objPerson.Email = CheckStrInput(Request.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Request.Form("txtQQ"))
objPerson.Company = CheckStrInput(Request.Form("txtCompany"))
If Not objPerson.AddToXml(objXml) Then ' 調(diào)用Cls_Person類的AddToXml方法，添加數(shù)據(jù)
AddErr strErr, objPerson.GetLastError
Else
AddErr strErr, "添加成功"
Response.Write "<script language=""javascript"">opener.location.reload();</script>"
End If
End If
End If
Set objXml = Nothing
%>
<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">
<script language="javascript">
<!--
function CheckForm()
{
return true;
}
//-->
</script>
</HEAD>
<BODY>
<% = strErr %>
<div class="title">添加聯(lián)系信息</div>
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
<table align="center" width="100%" cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">
<tr bgcolor="#ffffff">
<td width="25%" bgcolor="#e5e5e5" align="right"><b>姓名：</b></td>
<td width="75%"><input type="text" name="txtName" size="25" class="input" value="<%=CheckStrOutput(objPerson.Name)%
>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>英文名：</b></td>
<td><input type="text" name="txtNick" size="25" class="input" value="<%=CheckStrOutput(objPerson.Nick)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>手機(jī)：</b></td>
<td><input type="text" name="txtMobile" size="25" class="input" value="<%=CheckStrOutput(objPerson.Mobile)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>電話：</b></td>
<td><input type="text" name="txtTel" size="25" class="input" value="<%=CheckStrOutput(objPerson.Tel)%>"></td>
</tr>
<tr bgcolor="#ffffff">
。紅d bgcolor="#e5e5e5" align="right"><b>Email：</b></td>
<td><input type="text" name="txtEmail" size="25" class="input" value="<%=CheckStrOutput(objPerson.Email)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>QQ：</b></td>
<td><input type="text" name="txtQQ" size="25" class="input" value="<%=CheckStrOutput(objPerson.QQ)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>所在公司：</b></td>
<td><input type="text" name="txtCompany" size="25" class="input" value="<%=CheckStrOutput(objPerson.Company)%>"></td>
</tr>
</table>
<br>
<div align="center">
<input type="submit" name="btnOk" value="提交">
<input type="button" name="btnClose" value="關(guān)閉" onclick="javascript:return window.close();">
</div>
</form>
</BODY>
</HTML>
<%
Set objPerson = Nothing
%>
'***********************************************
' 說明：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對(duì)象
If Request.Form("btnOk") <> "" Then
If LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Then ' 裝載XML文件
' 給相應(yīng)的屬性賦值
objPerson.Name = CheckStrInput(Request.Form("txtName"))
objPerson.Nick = CheckStrInput(Request.Form("txtNick"))
objPerson.Mobile = CheckStrInput(Request.Form("txtMobile"))
objPerson.Tel = CheckStrInput(Request.Form("txtTel"))
objPerson.Email = CheckStrInput(Request.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Request.Form("txtQQ"))
objPerson.Company = CheckStrInput(Request.Form("txtCompany"))
If Not objPerson.AddToXml(objXml) Then ' 調(diào)用Cls_Person類的AddToXml方法，添加數(shù)據(jù)
AddErr strErr, objPerson.GetLastError
Else
AddErr strErr, "添加成功"
Response.Write "<script language=""javascript"">opener.location.reload();</script>"
End If
End If
End If
Set objXml = Nothing
%>
<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">
<script language="javascript">
<!--
function CheckForm()
{
return true;
}
//-->
</script>
</HEAD>
<BODY>
<% = strErr %>
<div class="title">添加聯(lián)系信息</div>
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
<table align="center" width="100%" cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">
<tr bgcolor="#ffffff">
<td width="25%" bgcolor="#e5e5e5" align="right"><b>姓名：</b></td>
<td width="75%"><input type="text" name="txtName" size="25" class="input" value="<%=CheckStrOutput(objPerson.Name)%
>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>英文名：</b></td>
<td><input type="text" name="txtNick" size="25" class="input" value="<%=CheckStrOutput(objPerson.Nick)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>手機(jī)：</b></td>
<td><input type="text" name="txtMobile" size="25" class="input" value="<%=CheckStrOutput(objPerson.Mobile)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>電話：</b></td>
<td><input type="text" name="txtTel" size="25" class="input" value="<%=CheckStrOutput(objPerson.Tel)%>"></td>
</tr>
<tr bgcolor="#ffffff">
。紅d bgcolor="#e5e5e5" align="right"><b>Email：</b></td>
<td><input type="text" name="txtEmail" size="25" class="input" value="<%=CheckStrOutput(objPerson.Email)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>QQ：</b></td>
<td><input type="text" name="txtQQ" size="25" class="input" value="<%=CheckStrOutput(objPerson.QQ)%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td bgcolor="#e5e5e5" align="right"><b>所在公司：</b></td>
<td><input type="text" name="txtCompany" size="25" class="input" value="<%=CheckStrOutput(objPerson.Company)%>"></td>
</tr>
</table>
<br>
<div align="center">
<input type="submit" name="btnOk" value="提交">
<input type="button" name="btnClose" value="關(guān)閉" onclick="javascript:return window.close();">
</div>
</form>
</BODY>
</HTML>
<%
Set objPerson = Nothing
%>
七、總結(jié)
到此，我們的聯(lián)系信息管理程序就大功告成了。怎么樣，感覺如何，應(yīng)該來說還是相當(dāng)簡(jiǎn)單的吧。當(dāng)然了，這個(gè)例程還有許多可以改進(jìn)的
地方，我這里也只不過是拋磚引玉，希望讀者在掌握了XML編程之后，自行修改完善吧。
此例程已經(jīng)在我本機(jī)（Windows Server 2000、IIS5.0和IE6.0）和網(wǎng)上進(jìn)行了測(cè)試，都能夠正常運(yùn)行。
相關(guān)文章
ShowPage 顯示“上一頁 下一頁”等信息的封裝代碼...2007-09-09
asp目錄讀寫權(quán)限檢測(cè)腳本 TestFolder
T00LS 檢測(cè)星外可執(zhí)行目錄的一個(gè)工具，今天剛好用到，記錄下。檢測(cè)了下運(yùn)氣差得很，全盤只能讀不能寫，檢測(cè)讀寫權(quán)限的時(shí)候?qū)⒁韵麓a保存為x.asp上傳到網(wǎng)站修改檢測(cè)目錄，點(diǎn)提交即可2011-11-11
asp類加存儲(chǔ)過程分頁方法，查詢使用非常方便 new 一個(gè)類，加幾個(gè)參數(shù)，就可以分頁顯示、多條件查詢、多個(gè)字段排序等功能、連表查詢等，一氣呵成！2008-12-12
使用XMLDOM在不支持FSO的服務(wù)器上...2006-08-08
asp執(zhí)行帶參數(shù)的sql語句實(shí)例
這篇文章主要介紹了asp執(zhí)行帶參數(shù)的sql語句實(shí)例,參數(shù)化SQL語句可以有效的防止SQL注入漏洞,需要的朋友可以參考下2014-08-08
one.asp多項(xiàng)目、函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法
前幾天 寫的博客 多項(xiàng)目 函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法中提到 使用 one.php 將整個(gè)項(xiàng)目打包成 一個(gè) php 文件，有網(wǎng)友 讓我 整個(gè)asp版本的，今天下午抽空寫了個(gè) one.asp，使用方式基本一致，這次 增加了路徑計(jì)算的功能，可以引用不同路徑2020-08-08
其實(shí)我上一篇寫的js判斷中文才是最好的方法，這個(gè)是asp的一種，只要是雙字節(jié)都是當(dāng)作中文判斷2008-09-09
fso asp生成靜態(tài)html的代碼...2007-11-11
現(xiàn)在黑客經(jīng)常測(cè)試網(wǎng)站，一些網(wǎng)站經(jīng)常被各種注入，為程序員的成長(zhǎng)提供了比較緊迫的環(huán)境，所以大家在寫程序的時(shí)候一定要注意網(wǎng)站安全問題2006-10-10
實(shí)現(xiàn)UTF8轉(zhuǎn)換GB2312國標(biāo)碼的asp代碼
ASP來實(shí)現(xiàn)UTF8轉(zhuǎn)換GB2312國標(biāo)碼-GB2312轉(zhuǎn)UTF-8,需要的朋友可以參考下。2010-04-04