正在阅读：用ASP+XML打造酷酷留言本用ASP+XML打造酷酷留言本

　　%>
　　<tr bgcolor="#FFFFFF" align="right">
　　<td colspan="2"> 共有&lt;<%=PageNum%>&gt;页
　　<%
　　if cint(PageNo)<>PageNum then'分页
　　response.write "<a href='index.asp?PageNo="&(PageNo+1)&"'>上一页</a>"
　　end if
　　if cint(PageNo)<>1 then
　　response.write "<a href='index.asp?PageNo="&(PageNo-1)&"'>下一页</a> "
　　end if
　　%>
　　</td>
　　</tr>
　　</table>
　　</body>
　　</html>

　　<%
　　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,"<","&lt;")
　　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=1
　　end if
　　brstr=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版片段读入内存中