用ASP+XML打造留言本2 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 用ASP+XML打造留言本2

用ASP+XML打造留言本2 时间：2004/11/7 2:55:00来源：本站整理作者：蓝点我要评论(0): 五、建立显示XML数据的ASP文件(index.asp)

　　这个文件要实现的功能就是读取并显示XML数据，首先创建一个XML对像然后把XML读入内存中，利用DOM分离出我们所要的数据。

＜%

strSourceFile = Server.MapPath("/") & "\List.xml"

'获取XML文件的路径这里根据你的虚拟目录不同而不同

Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")

'以自由线程创建一个XML对像

objXML.load(strSourceFile)'把XML文件读入内存

Set objRootsite = objXML.documentElement.selectSingleNode("NewList")

'选取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'假设每页显示10条留言

AllNodesNum =objRootsite.childNodes.length-1

'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减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)的差值否则下标会超界出错

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

'获得用户Eamil

text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text

'获昨留言内容

'*****************************************************************************

'这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为＜NewList＞

' objRootsite.childNodes.item(StarNodes)所对应的节点就是＜list＞节点因为不至一个＜list＞节点所以用了item()来识别当前节点数据，随着StarNodes的递减＜list＞节点根着往上移一个个读取＜list＞节点数据。

'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里(1)所对应的就是username用户名（因为＜list＞节点的子节点才是我们真正所要的）

'******************************************************************************

text = replace(text,chr(13),"＜br＞")

'替代回车

text = replace(text,chr(32)," ")

'替代空格

%＞

＜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＞

＜%=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＞

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。