<% username=request.form("username") if username<>"" then fromwhere =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") '选取节点 if objRootlist.hasChildNodes then '判断是否有子节点（因为如果是每一次是没有子节点的， 如果不加判断在第一次运得时就会报错 id = objRootlist.lastchild.firstchild.text+1 '这里获得将要插入子节点的ＩＤ号，其ＩＤ号为的最后一个子节点(lastchild)的第一个子节点(firstchild) '的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增） else '如是没有字子节点则是第一次留言ＩＤ号设为１ id=1 end if brstr=chr(13)&chr(10)&chr(9) '为了插入XML文件中的节点换行空格排列整齐 '（当然你也可以不用这样只是为了XML数据好看而以） XMLnode=brstr&""&brstr & _ ""&id&""&brstr & _ ""&username&""&brstr & _ ""&fromwhere&""&brstr & _ ""&Posttime&""&brstr & _ ""&homepage&""&brstr & _ ""&email&""&brstr & _ ""&text&""&brstr & _ ""&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=nothing set objXML2=nothing Response.Redirect("index.asp") response.end end if %>

新留言
姓 名：	**
来 自：
Email：
内 容：