-- 作者: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>
|