所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

六、建立写新留言程序(PostNew.asp)

这个文件要实现的功能就是写入新的XML节点，首先创建一个XML对像然后把XML读入内存中，利用appendChild()方法加入我们生成的XML节点。＜%username=request.form("username")if username＜＞"" thenfromwhere =request.form("fromwhere")homepage =request.form("homepage")email =request.form("email")text =request.form("text")text =replace(text,"＜","<")Posttime =now()strSourceFile = Server.MapPath("/") & "\List.xml"'获取XML文件的路径这里根据你的虚拟目录不同而不同Set objXML = Server.CreateObject("Microsoft.XMLDOM")'创建XML对像objXML.load(strSourceFile)'把XML文件读入内存中Set objRootlist = objXML.documentElement.selectSingleNode("NewList")'选取＜NewList＞节点if objRootlist.hasChildNodes then'判断＜NewList＞是否有子节点（因为如果是每一次＜NewList＞是没有子节点的，’ 如果不加判断在第一次运得时就会报错id = objRootlist.lastchild.firstchild.text+1'这里获得将要插入子节点的ＩＤ号，其ＩＤ号为＜NewList＞的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）else'如是没有字子节点则是第一次留言ＩＤ号设为１id=1end ifbrstr=chr(13)&chr(10)&chr(9)'为了插入XML文件中的节点换行空格排列整齐’（当然你也可以不用这样只是为了XML数据好看而以）XMLnode=brstr&"＜list＞"&brstr & _"＜id＞"&id&"＜/id＞"&brstr & _"＜username＞"&username&"＜/username＞"&brstr & _"＜fromwhere＞"&fromwhere&"＜/fromwhere＞"&brstr & _"＜Posttime＞"&Posttime&"＜/Posttime＞"&brstr & _"＜homepage＞"&homepage&"＜/homepage＞"&brstr & _"＜email＞"&email&"＜/email＞"&brstr & _"＜text＞"&text&"＜/text＞"&brstr & _"＜/list＞"&chr(13)'根据得到的数据建立XML片段set objXML2=Server.CreateObject("Microsoft.XMLDOM")'建立一个新XML对像objXML2.loadXML(XMLnode)'把XML版片段读入内存中set rootNewNode=objXML2.documentElement'获得objXML2的根节点objRootlist.appendChild(rootNewNode)'把XML片段插入到List.xml中objXML.save(strSourceFile)'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）set objXML=nothingset objXML2=nothingresponse.write "谢谢您的留言"response.endend if%＞＜html＞＜head＞＜title＞Untitled Document＜/title＞＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞＜style type="text/css"＞＜!--td { font-size: 9pt}--＞＜/style＞＜/head＞＜body bgcolor="#0099CC" text="#000000"＞＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF"＞＜form action="PostNew.asp" method="post" name="form1"＞＜tr bgcolor="#000000"＞＜td colspan="2"＞＜font color="#FFFFFF"＞新留言＜/font＞＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right"＞姓 名：＜/td＞＜td width="81%"＞＜input type="text" name="username"＞** ＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right"＞来 自：＜/td＞＜td width="81%"＞＜input type="text" name="fromwhere" value="中国"＞＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right"＞主 页：＜/td＞＜td width="81%"＞＜input type="text" name="homepage" value="http://"＞＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right"＞Email：＜/td＞＜td width="81%"＞＜input type="text" name="email"＞＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right" valign="top"＞内 容：＜/td＞＜td width="81%"＞＜textarea name="text" cols="60" rows="10"＞＜/textarea＞＜/td＞＜/tr＞＜tr bgcolor="#EFEFEF"＞＜td width="19%" align="right"＞ ＜/td＞＜td width="81%"＞＜input type="submit" name="Submit" value="提交"＞＜input type="reset" name="Submit2" value="重填"＞＜/td＞＜/tr＞＜/form＞＜/table＞＜/body＞＜/html＞

关闭本页

....