<% 'strSourceFile = Server.MapPath("/")&"\admin\list.xml" 'response.write strSourceFile 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("/")&"\hospital\admin\list.xml" strSourceFile = Server.MapPath("/")&"\admin\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=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.write "回复成功" Response.Write "" response.end end if %>

您的位置:首页 >>> 用户留言 >> 用户留言 姓 名： ** 来 自： 主 页： Email： 内 容：

版权所有:广东社会学学会健康研究专业委员会 地址:广州市越秀区东华西路三角市22号荣庆大厦201　 邮政编码:510100　 电话: 020-61108128 61108105 61108106 　传真: 020-61108129 邮箱:gdjkorg@126.com　　粤ICP备06086740号 　 技术支持：芝深网络