以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML源码及示例(仅原创和转载) 』  (http://bbs.xml.org.cn/list.asp?boardid=32)
----  快来啊!出事了!  (http://bbs.xml.org.cn/dispbbs.asp?boardid=32&rootid=&id=25762)


--  作者:xml2
--  发布时间:12/21/2005 3:31:00 PM

--  快来啊!出事了!
我的留言本出现问题了!有三个文件分别为“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">
<!--
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="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

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


--  作者:xml2
--  发布时间:12/28/2005 3:38:00 PM

--  
没有人回答啊!不过!!我出来了!!!
--  作者:grass00
--  发布时间:12/29/2005 10:58:00 AM

--  
hehe
--  作者:chenyujoe
--  发布时间:1/4/2006 11:31:00 AM

--  
怎么不是JSP+html+xml呢?我正在找这方面资料呢.
--  作者:xml2
--  发布时间:1/4/2006 3:34:00 PM

--  
呵呵!笑什么!我现在知道解决方案了!
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
46.875ms