中文XML论坛--快来啊！出事了！

我的留言本出现问题了！有三个文件分别为“list.xml” and "default.asp"和“postnew.asp”问题就是下面：default.asp只能显示一个页面！我想让它分页后，可以看到各页的内容！
代码如下：
list.xml code:
<?xml version="1.0" encoding="gb2312"?>
<xml>
<GuestBook>
  <item>
   <id>1</id>
   <username>水</username>
   <fromwhere>61.191.196.12</fromwhere>
   <posttime>2003-6-15 18:47:21</posttime>
   <homepage>http://www.shuizhu.net</homepage>
   <email>charry@charry.org</email>
   <text>你的文档写的怎样了？有没有参考资料可以共享呀？</text>
  </item>

GuestBook>
</xml>

postnew code:
<%
username = Request.Form("username")
if username <> "" then
     '获取添加的信息
  username = Request.Form("username")
  fromwhere = Request.ServerVariables("REMOTE_HOST")
  homepage = Request.Form("homepage")
  email = Request.Form("email")
  text = Request.Form("text")
  Posttime =now()
  '建立XMLOM对象
  strSourceFile = Server.MapPath("List.xml")
  Set objXML = Server.CreateObject("Microsoft.XMLDOM")
  objXML.load(strSourceFile)
  '判断错误
  If objXML.parseError.ErrorCode <> 0 Then
       objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml><GuestBook></GuestBook></xml>"
    End If
  '选择文档节点
  Set objRootlist = objXML.documentElement.selectSingleNode("GuestBook")
  '自动生成id
  If objRootlist.hasChildNodes then
   id = objRootlist.lastChild.firstChild.text + 1
  Else
   id=1
  End If
  '为文档添加子元素
  Set oListNode = objXML.documentElement.selectSingleNode("GuestBook").AppendChild(objXML.createElement("item"))
  '为文档添加子元素
  Set oDetailsNode = oListNode.appendChild(objXML.createElement("id"))
    oDetailsNode.Text = id

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("username"))
    oDetailsNode.Text = username

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("fromwhere"))
    oDetailsNode.Text = fromwhere

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("Posttime"))
    oDetailsNode.Text = Posttime

  Set oDetailsNode = oListNode.appendChild(objXML.createElement("homepage"))
    oDetailsNode.Text = homepage

  Set oDetailsNode = oListNode.appendChild(objXML.createElement("email"))
    oDetailsNode.Text = email

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("text"))
    oDetailsNode.Text = text

objXML.save(strSourceFile)

  Set objXML=nothing
  response.write "谢谢您的留言"
  Response.Redirect "default.asp"
  response.end
End if
%>
<html>
<head>
<title>撰写留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</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="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>

default.asp code:
<%
username = Request.Form("username")
if username <> "" then
     '获取添加的信息
  username = Request.Form("username")
  fromwhere = Request.ServerVariables("REMOTE_HOST")
  homepage = Request.Form("homepage")
  email = Request.Form("email")
  text = Request.Form("text")
  Posttime =now()
  '建立XMLOM对象
  strSourceFile = Server.MapPath("List.xml")
  Set objXML = Server.CreateObject("Microsoft.XMLDOM")
  objXML.load(strSourceFile)
  '判断错误
  If objXML.parseError.ErrorCode <> 0 Then
       objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml><GuestBook></GuestBook></xml>"
    End If
  '选择文档节点
  Set objRootlist = objXML.documentElement.selectSingleNode("GuestBook")
  '自动生成id
  If objRootlist.hasChildNodes then
   id = objRootlist.lastChild.firstChild.text + 1
  Else
   id=1
  End If
  '为文档添加子元素
  Set oListNode = objXML.documentElement.selectSingleNode("GuestBook").AppendChild(objXML.createElement("item"))
  '为文档添加子元素
  Set oDetailsNode = oListNode.appendChild(objXML.createElement("id"))
    oDetailsNode.Text = id

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("username"))
    oDetailsNode.Text = username

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("fromwhere"))
    oDetailsNode.Text = fromwhere

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("Posttime"))
    oDetailsNode.Text = Posttime

  Set oDetailsNode = oListNode.appendChild(objXML.createElement("homepage"))
    oDetailsNode.Text = homepage

  Set oDetailsNode = oListNode.appendChild(objXML.createElement("email"))
    oDetailsNode.Text = email

    Set oDetailsNode = oListNode.appendChild(objXML.createElement("text"))
    oDetailsNode.Text = text


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	78.125ms