<%
strSourceFile = Server.MapPath("./") & "List.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由线程创建一个XML对像
objXML.load(strSourceFile)'把XML文件读入内存
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
'选取NewList节点
%>
网络桌面(xml留言板) -</p>
<p><script language="<a target="_blank" href="http://111com.net/js_a/js.html">javascript教程</a>" src="other.js"></script><br />
<style type="text/<a target="_blank" href="http://111com.net/cssdiv/css.html">css教程</a>"><br />
<!--<br />
td { font-family: "宋体"; font-size: 9pt; text-decoration: none}<br />
a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}<br />
a:hover { color: #FF6600; text-decoration: underline}<br />
--><br />
</style><br />
</head><body bgcolor="#0099CC" text="#000000"><br />
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC"><br />
<tr bgcolor="#000000"><br />
<td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color=#FFFFFF>写新留言<br />
</font></a></font></td><br />
</tr><br />
<%<br />
PageSize =10 '假设每页显示10条留言<br />
AllNodesNum =objRootsite.childNodes.length-1<br />
'response.write objRootsite.childNodes.length<br />
'response.end<br />
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）<br />
PageNum=AllNodesNumPageSize+1'算出总页数<br />
PageNo=request.querystring("PageNo")</p>
<p> if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言<br />
PageNo=PageNum<br />
end if<br />
<br />
StarNodes=PageNo*PageSize-1'获得起始节点<br />
EndNodes=(PageNo-1)*PageSize'获得结束节点</p>
<p> if EndNodes<0 then<br />
EndNodes=0<br />
end if<br />
'response.write " StarNodes and AllNodesNum==="&StarNodes &"----"&AllNOdesNum&"<br>"<br />
if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数<br />
EndNodes=EndNodes-(StarNodes-AllNodesNum)<br />
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错<br />
StarNodes=AllNodesNum<br />
end if<br />
'response.write "StarNodes=_________"&StarNodes &"---"&"<br>"<br />
if EndNodes<0 then<br />
EndNodes=0<br />
end if<br />
while StarNodes>=EndNodes<br />
'从结束节点到超始节点之间读取节点数据<br />
'response.write "id="&objRootsite.childNodes.item(StarNodes).childNodes.item(0).text</p>
<p> id = objRootsite.childNodes.item(StarNodes).childNodes.item(0).text<br />
'id号 <br />
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text<br />
'获得用户名<br />
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text<br />
'获得用户来自那里<br />
Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text<br />
'获得留言时间<br />
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text<br />
'获得用户主页<br />
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text<br />
'获得用户Eamil<br />
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text<br />
'获昨留言内容<br />
'*****************************************************************************<br />
'这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为<NewList><br />
' objRootsite.childNodes.item(StarNodes)所对应的节点就是<list>节点因为不至一个<list>节点所以用了item()<br />
'来识别当前节点数据，随着StarNodes的递减<list>节点根着往上移一个个读取<list>节点数据。<br />
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里<br />
'(1)所对应的就是username用户名（因为<list>节点的子节点才是我们真正所要的）<br />
'******************************************************************************<br />
text = replace(text,chr(13),"<br>")<br />
'替代回车<br />
text = replace(text,chr(32)," ")<br />
'替代空格<br />
%><br />
<tr bgcolor="#F0F0F0"><br />
<td width="21%" height="94" valign="top">id号：<%=id%><br>姓名：<%=username%><br><br />
来自：<%=fromwhere%><br><br />
<a href='PostEdit.asp?id=<%=id%>'>编辑留言</a><br />
</td><br />
<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%>的主页">主页</a><br />
| | <a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633"><br />
留言时间：<%=Posttime%> </font>|<br />
<hr><br />
<%=Replace(text,Chr(13),"<br>")%> </td><br />
</tr><br />
<tr bgcolor="#FFFFFF" align="right"><br />
<td colspan="2"> </td><br />
</tr><br />
<%<br />
StarNodes=StarNodes-1<br />
wend<br />
set objXML=nothing<br />
%><br />
<tr bgcolor="#FFFFFF" align="right"><br />
<td colspan="2"> 共有<<%=PageNum%>>页<br />
<%<br />
if cint(PageNo)<>PageNum then '分页<br />
response.write "<a href=index.asp?PageNo="&(PageNo+1)&">上一页</a>"<br />
end if<br />
if cint(PageNo)<>1 then<br />
response.write "<a href=index.asp?PageNo="&(PageNo-1)&">下一页</a>"<br />
end if<br />
%><br />
</td><br />
</tr><br />
</table><br />
</body><br />
</html></p>
<p>list.xml 文件格式</p>
<p><?xml version="1.0" encoding="gb2312"?><br />
<site><br />
<NewList><br />
<list><br />
<id>0</id><br />
<username>1111</username><br />
<fromwhere>中国</fromwhere><br />
<Posttime>2007-4-20 17:54:35</Posttime><br />
<homepage>http://</homepage><br />
<email>111</email><br />
<text>qqqqqqqqq</text><br />
</list><br />
<list><br />
<id>1</id><br />
<username>sdf</username><br />
<fromwhere>中国</fromwhere><br />
<Posttime>2007-4-25 10:24:03</Posttime><br />
<homepage>http://</homepage><br />
<email>sdf</email><br />
<text>wwwwwwwwww</text><br />
</list><br />
</NewList><br />
</site></p>
<p>发送保存到xml 文档</p>
<p><%<br />
username=request.form("username")<br />
if username<>"" then<br />
fromwhere =request.form("fromwhere")<br />
homepage =request.form("homepage")<br />
email =request.form("email")<br />
text =request.form("text")<br />
text =replace(text,"<","<")<br />
Posttime =now()<br />
strSourceFile = Server.MapPath("./") & "List.xml"<br />
'获取XML文件的路径这里根据你的虚拟目录不同而不同<br />
Set objXML = Server.CreateObject("Microsoft.XMLDOM")<br />
'创建XML对像<br />
objXML.load(strSourceFile)<br />
'把XML文件读入内存中<br />
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")<br />
'选取<NewList>节点<br />
if objRootlist.hasChildNodes then<br />
'判断<NewList>是否有子节点（因为如果是每一次<NewList>是没有子节点的， 如果不加判断在第一次运得时就会报错<br />
id = objRootlist.lastchild.firstchild.text+1<br />
'这里获得将要插入子节点的ＩＤ号，其ＩＤ号为<NewList>的最后一个子节点(lastchild)的第一个子节点(firstchild)<br />
'的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）<br />
else<br />
'如是没有字子节点则是第一次留言ＩＤ号设为１<br />
id=1<br />
end if<br />
brstr=chr(13)&chr(10)&chr(9)<br />
'为了插入XML文件中的节点换行空格排列整齐<br />
'（当然你也可以不用这样只是为了XML数据好看而以）<br />
XMLnode=brstr&"<list>"&brstr & _<br />
"<id>"&id&"</id>"&brstr & _<br />
"<username>"&username&"</username>"&brstr & _<br />
"<fromwhere>"&fromwhere&"</fromwhere>"&brstr & _<br />
"<Posttime>"&Posttime&"</Posttime>"&brstr & _<br />
"<homepage>"&homepage&"</homepage>"&brstr & _<br />
"<email>"&email&"</email>"&brstr & _<br />
"<text>"&text&"</text>"&brstr & _<br />
"</list>"&chr(13)<br />
'根据得到的数据建立XML片段<br />
set objXML2=Server.CreateObject("Microsoft.XMLDOM")<br />
'建立一个新XML对像<br />
objXML2.loadXML(XMLnode)<br />
'把XML版片段读入内存中<br />
set rootNewNode=objXML2.documentElement<br />
'获得objXML2的根节点<br />
objRootlist.appendChild(rootNewNode)<br />
'把XML片段插入到List.xml中<br />
objXML.save(strSourceFile)<br />
'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）<br />
set objXML=nothing<br />
set objXML2=nothing<br />
Response.Redirect("index.asp")<br />
response.end<br />
end if<br />
%><br />
<html><br />
<head><br />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br />
<meta name="Author" content="许诺,xunuo"><br />
<title>网络桌面(xml留言板) - <a href="http://www.xunuo.net</title">http://www.111com.net</title</a>><br />
<script language="javascript" src="other.js"></script><br />
<style type="text/<a href="http://www.111com.net/cssdiv/css.html" target="_blank">css</a>"><br />
<!--<br />
td { font-size: 9pt}<br />
--><br />
</style><br />
</head><br />
<body bgcolor="#0099CC" text="#000000"><br />
<table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF"><br />
<form action="PostNew.asp" method="post" name="form1"><br />
<tr bgcolor="#000000"><br />
<td colspan="2"><font color="#FFFFFF">新留言</font></td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right">姓 名：</td><br />
<td width="81%"><br />
<input type="text" name="username"><br />
** </td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right">来 自：</td><br />
<td width="81%"><br />
<input type="text" name="fromwhere" value="中国"><br />
</td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right">主 页：</td><br />
<td width="81%"><br />
<input type="text" name="homepage" value="http://"><br />
</td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right">Email：</td><br />
<td width="81%"><br />
<input type="text" name="email"><br />
</td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right" valign="top">内 容：</td><br />
<td width="81%"><br />
<textarea name="text" cols="60" rows="10"></textarea><br />
</td><br />
</tr><br />
<tr bgcolor="#EFEFEF"><br />
<td width="19%" align="right"> </td><br />
<td width="81%"><br />
<input type="submit" name="Submit" value="提交"><br />
<input type="reset" name="Submit2" value="重填"><br />
</td><br />
</tr><br />
</form><br />
</table><br />
</body><br />
</html><br />
编辑xml 文档</p>
<p><%<br />
dim id ,action<br />
id = Request.QueryString("id")<br />
if IsNumeric(id)=false or isNull(id) then<br />
response.write ("参数不正确，请返回！")<br />
response.end<br />
end if <br />
action = Request.QueryString("action")<br />
id = id <br />
if action = "update" then<br />
id = request("id")<br />
username=request.form("username")<br />
fromwhere =request.form("fromwhere")<br />
homepage =request.form("homepage")<br />
email =request.form("email")<br />
text =request.form("text")<br />
text =replace(text,"<","<")<br />
Posttime =now()<br />
strSourceFile = Server.MapPath("./") & "List.xml"<br />
'获取XML文件的路径这里根据你的虚拟目录不同而不同<br />
Set objXML = Server.CreateObject("Microsoft.XMLDOM")<br />
'创建XML对像<br />
objXML.load(strSourceFile)<br />
'把XML文件读入内存中<br />
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")<br />
'选取<NewList>节点<br />
<br />
set rootOldNode=objRootlist.childNodes.item(id) <br />
'--------NEW START -----------<br />
brstr=chr(13)&chr(10)&chr(9)<br />
XMLnode=brstr&"<list>"&brstr & _<br />
"<id>"&id&"</id>"&brstr & _<br />
"<username>"&username&"</username>"&brstr & _<br />
"<fromwhere>"&fromwhere&"</fromwhere>"&brstr & _<br />
"<Posttime>"&Posttime&"</Posttime>"&brstr & _<br />
"<homepage>"&homepage&"</homepage>"&brstr & _<br />
"<email>"&email&"</email>"&brstr & _<br />
"<text>"&text&"</text>"&brstr & _<br />
"</list>"&chr(13)<br />
'根据得到的数据建立XML片段<br />
set objXML2=Server.CreateObject("Microsoft.XMLDOM")<br />
'建立一个新XML对像<br />
objXML2.loadXML(XMLnode)<br />
'把XML版片段读入内存中<br />
set rootNewNode=objXML2.documentElement<br />
'===========NEW=============<br />
objRootlist.ReplaceChild rootNewNode,rootOldNode<br />
objXML.save(strSourceFile)<br />
set objXML=nothing<br />
set objXML2=nothing<br />
Response.Redirect("index.asp")<br />
response.end<br />
else<br />
strSourceFile = Server.MapPath("./") & "List.xml"<br />
'获取XML文件的路径这里根据你的虚拟目录不同而不同<br />
Set objXML = Server.CreateObject("Microsoft.XMLDOM")<br />
'创建XML对像<br />
objXML.load(strSourceFile)<br />
'把XML文件读入内存中<br />
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")<br />
'选取<NewList>节点<br />
' response.write objRootsite.childNodes.item(id).childNodes.item(1).text<br />
' response.end <br />
id = objRootsite.childNodes.item(id).childNodes.item(0).text<br />
'id号 <br />
username = objRootsite.childNodes.item(id).childNodes.item(1).text<br />
'获得用户名<br />
fromwhere = objRootsite.childNodes.item(id).childNodes.item(2).text<br />
'获得用户来自那里<br />
Posttime = objRootsite.childNodes.item(id).childNodes.item(3).text<br />
'获得留言时间<br />
homepage = objRootsite.childNodes.item(id).childNodes.item(4).text<br />
'获得用户主页<br />
email = objRootsite.childNodes.item(id).childNodes.item(5).text<br />
'获得用户Eamil<br />
text = objRootsite.childNodes.item(id).childNodes.item(6).text <br />
set objXML = nothing <br />
end if<br />
%></p>
<p><html><br />
<head><br />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br />
<meta name="Author" content="许诺,xunuo"><br />
<title>网络桌面(xml留言板) - http://www.111com.net
会用到的js文件
// Function 打印版权
function printCopy(){
// wr("
");
// wr("
说明：转载本站内容，请务必保留原作者信息。
本站提供的资料或软件多数是在网上搜集，侵犯了您的版权，请来信告诉我们，本站将删除这些内容。
[记事本][进入首页]");
}
// Function 打印广告
function printAD(){
// wr ("
")
}
printCopy()
printAD()
function wr(str){
document.write(str) ;
}
function gotoXunuo(){
window.open("
http://www.111com.net/")
}
