IDC资讯中心
五、程序首页（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对象
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 “”
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”＞
＜/head＞
＜body＞
＜% = strerr %＞
＜div class=”title”＞添加联系信息＜/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＞手机：＜/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=”关闭” onclick=”javascript:return window.close();”＞
＜/div＞
＜/form＞
＜/body＞
＜/html＞
＜%
set objperson = nothing
%＞
七、总结
到此，我们的联系信息管理程序就大功告成了。怎么样，感觉如何，应该来说还是相当简单的吧。当然了，这个例程还有许多可以改进的地方，我这里也只不过是抛砖引玉，希望读者在掌握了xml编程之后，自行修改完善吧。
此例程已经在我本机（windows server 2000、iis5.0和ie6.0）和网上进行了测试，都能够正常运行。
