📄 default.asp

📁 《XML语言及应用》作者华铨平—examples
💻 ASP
字号:
<%
	strSourceFile = Server.MapPath("List.xml")
	Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
	objXML.load(strSourceFile)
	Set objRootsite = objXML.documentElement.selectSingleNode("GuestBook")
%>
<html>
<head>
<title>留言本(Powered by XML)</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">留言溥</font>
			<a href="PostNew.asp"><font color=#FFFFFF>写新留言</font></a>
		</td>
	</tr>
<% 
	'每页显示10条留言
	PageSize =10		
	
	'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
	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
		'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
		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)," ")

		text = Replace(text,"<","&lt")

		text = Replace(text,">","&gt")
	
	%>
	<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 href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633"> 
	留言时间：<%=Posttime%> </font>| 
	<hr>
	<pre><%=text%></pre></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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -