ASP网页编程之实例练习训练ASP+XML编程(4)
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的5、程序首页（default.asp）挪用响应的包括文件和大众函数，格局化XML文件，并举行显现。能够看到，页面Title是可定制的，大众的头部和尾部都做成了响应的包括文件。C_TITLE、C_XMLFILE和C_XSLFILE为大众常量，在constpub.asp文件中界说，至于它们的意义，信任读者能够很简单地分明。这里挪用了下面界说的FormatXml函数。
＜%OptionExplicit
***********************************************
申明：通信录
gwd2002-11-05
***********************************************
%＞
＜!--#includefile="pub/funcxml.asp"--＞
＜!--#includefile="pub/constpub.asp"--＞
＜HTML＞
＜HEAD＞
＜TITLE＞＜%=C_TITLE%＞＜/TITLE＞
＜METAHTTP-EQUIV="content-type"CONTENT="text/html;charset=GB2312"/＞
＜linkrel="stylesheet"href="contact.css"type="text/css"＞
＜/HEAD＞
＜BODY＞
＜!--#includefile="pub/header.asp"--＞
＜%=FormatXml(C_XMLFILE,C_XSLFILE)%＞
＜br＞
＜!--#includefile="pub/footer.asp"--＞
＜/BODY＞
＜/HTML＞
6、增加、修正和删除XML中的信息
我们晓得，在Cls_Person中已界说了响应的办法，因而，在各个文件中，只必要挪用对应的办法便可。增加信息的文件为add.asp，修正信息的文件为edit.asp，删除信息的文件为delete.asp，我们仅以add.asp文件为例举行申明。个中的CheckStrInput和CheckStrOutput函数，用来格局化用户的输出和输入字符串。
＜%OptionExplicit
***********************************************
申明：37080308通信录
gwd2002-11-05
***********************************************
%＞
＜!--#includefile="pub/funcxml.asp"--＞
＜!--#includefile="pub/constpub.asp"--＞
＜!--#includefile="pub/funcpub.asp"--＞
＜!--#includefile="pub/class/clsPerson.asp"--＞
＜%
DimobjXml,objPerson
DimstrErr
SetobjXml=Server.CreateObject("MSXML2.DOMDocument")
SetobjPerson=NewCls_Person天生Cls_Person工具
IfRequest.Form("btnOk")＜＞""Then
IfLoadXmlDoc(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"))
IfNotobjPerson.AddToXml(objXml)Then挪用Cls_Person类的AddToXml办法，增加数据
AddErrstrErr,objPerson.GetLastError
Else
AddErrstrErr,"增加乐成"
Response.Write"＜scriptlanguage=""javascript""＞opener.location.reload();＜/script＞"
EndIf
EndIf
EndIf
SetobjXml=Nothing
%＞
＜HTML＞
＜HEAD＞
＜TITLE＞＜%=C_TITLE%＞＜/TITLE＞
＜METAHTTP-EQUIV="content-type"CONTENT="text/html;charset=GB2312"/＞
＜linkrel="stylesheet"href="contact.css"type="text/css"＞
＜scriptlanguage="javascript"＞
＜!--
functionCheckForm()
{
returntrue;
}
//--＞
＜/script＞
＜/HEAD＞
＜BODY＞
＜%=strErr%＞
＜divclass="title"＞增加接洽信息＜/div＞
＜formname="form1"method="post"action="add.asp"＞
＜tablealign="center"width="100%"cellspacing="1"cellpadding="2"border="0"bgcolor="#666600"＞
＜trbgcolor="#ffffff"＞
＜tdwidth="25%"bgcolor="#e5e5e5"align="right"＞＜b＞姓名：＜/b＞＜/td＞
＜tdwidth="75%"＞＜inputtype="text"name="txtName"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Name)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞英文名：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtNick"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Nick)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞手机：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtMobile"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Mobile)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞德律风：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtTel"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Tel)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞Email：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtEmail"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Email)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞QQ：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtQQ"size="25"class="input"value="＜%=CheckStrOutput(objPerson.QQ)%＞"＞＜/td＞
＜/tr＞
＜trbgcolor="#ffffff"＞
＜tdbgcolor="#e5e5e5"align="right"＞＜b＞地点公司：＜/b＞＜/td＞
＜td＞＜inputtype="text"name="txtCompany"size="25"class="input"value="＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/table＞
＜br＞
＜divalign="center"＞
＜inputtype="submit"name="btnOk"value="提交"＞
＜inputtype="button"name="btnClose"value="封闭"＞
＜/div＞
＜/form＞
＜/BODY＞
＜/HTML＞
＜%
SetobjPerson=Nothing
%＞
7、总结
到此，我们的接洽信息办理程序就半途而废了。怎样，感到怎样，应当来讲仍是相称复杂的吧。固然了，这个例程另有很多能够改善的中央，我这里也只不外是举一反三，但愿读者在把握了XML编程以后，自行修正完美吧。
此例程已在我本机（WindowsServer2000、IIS5.0和IE6.0）和网长进行了测试，都可以一般运转。
点击下载本文源代码
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 掌握asp的特性而且一定要知道为什么。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
页:
[1]