下载
index.asp
<%
Set objXML=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(server. mappath("List.xml"))
Set objRootsite=objXML.documentElement.selectSingleNode("NEWLIST")
%>
<html>
<head>
<title>留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt; text-decoration: none}
a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}
a:hover { color: #FF6600; text-decoration: underline}
-->
</style>
</head><body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color=#FFFFFF>写新留言</font></a></font></td>
</tr>
<%
PageSize =10
AllNodesNum =objRootsite.childNodes.length-1
PageNum=AllNodesNum\PageSize+1'算出总页数
PageNo=request.querystring("PageNo")
if PageNo="" then
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1
EndNodes=(PageNo-1)*PageSize
if EndNodes<0 then
EndNodes=0
end if
if StarNodes>AllNodesNum then
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes<0 then
EndNodes=0
end if
while StarNodes>=EndNodes
username=objRootsite.childNodes.item(StarNodes).text
fromwhere=objRootsite.childNodes.item(StarNodes).text
Posttime = objRootsite.childNodes.item(StarNodes).text
homepage = objRootsite.childNodes.item(StarNodes).text
email = objRootsite.childNodes.item(StarNodes).text
text = objRootsite.childNodes.item(StarNodes).text
text = replace(text,chr(13),"<br>")
text = replace(text,chr(32)," ")
%>
<tr bgcolor="#F0F0F0">
<td width="0%" height="94" valign="top"><br>
</td>
<td width="100%" height="94" valign="top"> | <a href="Index.asp" target=_blank title="<%=username%>的主页">主页</a>
<a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> |
<hr>
<%=text%> </td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> </td>
</tr>
<%
StarNodes=StarNodes-1
wend
set objXML=nothing
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> 共有<<%=PageNum%>>页
<%
'分页
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>
PostNew.asp
<%
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("List.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootlist = objXML.documentElement.selectSingleNode("NEWLIST")
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&"<LIST>"&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)
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
objXML2.loadXML(XMLnode)
set rootNewNode=objXML2.documentElement
objRootlist.appendChild(rootNewNode)
objXML.save(strSourceFile)
set objXML=nothing
set objXML2=nothing
response.write "谢谢您的留言"
response.write "<br><a href='Index.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="fromwhere" value="中国">
</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>