辐射3怎么设置:ASP关于留言版的问题

来源：百度文库编辑：神马品牌网时间：2024/04/20 23:02:34

1.form.asp
<%
strsourcefile=Server.MapPath("/") & ("\list.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("NewList")
%>
<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="#CCCCCC">
<tr bgcolor="#000000">
<td colspan="2"></td><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).childNodes.item(1).text
fromwhere=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
Posttime=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
homepage=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
email=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
text=objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
text=replace(text,chr(13),"<br>")
text=replace(text,chr(32),"<br>")
%>
<tr bgcolor="#F0F0F0">
<td width="21%" height="94" valign="top">姓名：<%=username%><br>
来自：<%=fromwhere%> <br>
</td>
<td width="79%" height="94" valign="top"> | <a href="＜%=homepage%>" target=_blank title="<%=username%>的主页"></a> 主页</a>
| | <a href="mailto:<%=email%>" title="给<%=username%>写信"></a> 信箱</a> | |<font color="#CC6633">
留言时间：<%=Posttime%> </font>|
<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>
大家到这看吧。。。在这不能全部贴出来。麻烦你们了！！！！再次谢谢你们！！！！

http://community.csdn.net/Expert/topic/4492/4492395.xml?temp=3.313845E-02

请至少明确的给出你要问的问题。这样热心的朋友才好帮你解答吧？

￥＃……￥◎×

你这样整出来不被骂死才怪那。

有什么问题呀？出现什么提示？

ASP关于留言版的问题 asp 留言版的问题请教一个关于ASP留言版的问题，在线等，急，谢谢（二）关于空间留言版的问题???急~~~ ASP留言本问题关于ASP留言本垃圾广告问题进来探讨关于QQ留言的问题？关于QQ的留言问题关于留言本的问题留言版的问题