ʵÀýÑÝÁ·ASP+XML±à³Ì(4)

£¼% 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£¾

£¼% 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¶ÔÏó
¡¡If Request.Form("btnOk") £¼£¾ "" Then
¡¡¡¡If LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Then ' ×°ÔØXMLÎļþ
¡¡¡¡¡¡' ¸øÏàÓ¦µÄÊôÐÔ¸³Öµ
¡¡¡¡¡¡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 ' µ÷ÓÃCls_PersonÀàµÄAddToXml·½·¨£¬Ìí¼ÓÊý¾Ý
¡¡¡¡¡¡¡¡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"£¾Ìí¼ÓÁªÏµÐÅÏ¢£¼/div£¾
£¼form name="form1" method="post" action="add.asp" £¾
¡¡£¼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£¾ÊÖ»ú£º£¼/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"£¾
¡¡¡¡¡¡£¼td 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="¹Ø±Õ" £¾
¡¡£¼/div£¾
£¼/form£¾
£¼/BODY£¾
£¼/HTML£¾
£¼%
Set objPerson = Nothing
%£¾