Asp 解析 XML并分页显示源码

2018-09-06 12:13

阅读：449

Asp 解析 XML并分页显示，示例源码如下：
复制代码代码如下:
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN
<html xmlns=
<head>
<link href=
<script language=javascript type=text/ecmascript src=
<title>财富动力专题</title>
<style type=text/css>
#right_topic
{
float: right;
height: auto;
width: 690px;
}
{
clear: both;
width: 690px;
overflow: hidden;
font-size: 14px;
color: #444;
line-height: 24px;
}
#right_topic .xinhua img
{
border: 0;
}
{
border: 1px solid #ddd;
height: 140px;
}
#right_topic .xinhua .top_cont .xh_logo
{
width: 270px;
float: left;
margin: 25px 10px;
}
#right_topic .xinhua .top_cont .xh_text
{
float: right;
width: 390px;
font-size: 14px;
line-height: 22px;
color: #666;
margin-top: 15px;
}
.list
{
clear: both;
margin-top: 15px;
overflow: hidden;
border-bottom: 3px solid #206295;
}
.list ul
{
margin: 0;
padding: 0;
}
.list ul li
{
list-style: none;
border-bottom: 1px dotted #E5E5E5;
padding: 10px;
}
.list ul li h4
{
font-family: Microsoft Yahei;
font-size: 18px;
font-weight: normal;
line-height: 22px;
margin: 0px;
margin-bottom: 5px;
padding: 0;
color: #0761B7;
}
.list ul li h4 a
{
color: #206295;
text-decoration: none;
}
.list ul li h4 a:hover
{
text-decoration: underline;
}
.list ul li span
{
float: right;
width: 120px;
color: #999;
font-size: 14px;
text-align: right;
}
.list ul li p
{
margin: 0;
padding: 0;
font-size: 12px;
}
.list ul li.bg
{
background: #f5f8fa;
}
#pageZone
{
background: #F5F6FB;
border-bottom: 1px solid #DBE3EE;
margin: 10px auto 20px;
padding: 10px 0;
text-align: center;
}
#pageZone span
{
background: #FFFFFF;
border: 1px solid #D8DADF;
font-size: 14px;
height: 34px;
line-height: 34px;
margin: 0px 2px;
padding: 8px 12px;
}
#pageZone span a
{
color: #666;
text-decoration: none;
}
#pageZone span.isNow
{
background: #206295;
border: 1px solid #D8DADF;
color: #FFFFFF;
}
</style>
<script type=text/javascript>
var $m = $(window.parent.document).find(#MyXH08);
$m.load(function () {
var thish = $(document).height() + 30;
$m.height(thish);
});
</script>
</head>
<body style=width: 690px;>

<div class=list>
<ul>
<%
Dim xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl
pSize = 10 页大小
xmlUrl =

REM 页索引
pIndex = Request.QueryString(p)
if Cint(pIndex) > 6 Or Cint(pIndex) < 1 then
pIndex = 1
end if

REM 异步读取XML源
Set http = Server.CreateObject(Microsoft.XMLHTTP)
http.open GET,xmlUrl,false
http.send

REM 定义读取XML 的变量
Set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
xmlDoc.async = false
xmlDoc.validateOnParse = false
xmlDoc.load(http.ResponseXML)

Set objNodes = xmlDoc.getElementsByTagName(item)

if objNodes.length > 0 then
i = 0
For j = (pSize*(pIndex-1)) to (pSize*pIndex-1) step 1
myTitle = objNodes(j).childNodes(0).text
myDate = objNodes(j).childNodes(3).text
myDescription = objNodes(j).childNodes(2).text
link = Server.URLEncode(objNodes(j).childNodes(1).text)
myLink =
%>
<% if i Mod 2 = 0 then %>
<li class=bg>
<% else %>
<li>
<% end if %>
<h4>

<%= FormatDate(myDate,2) %>
<a href=<%= myLink %>>
<%= myTitle %></a></h4>

<%= myDescription %>

</li>
<%
i = i + 1
Next
Else
Response.Write(暂无数据！)
End If
%>
</ul>
</div>

<div id=pageZone>
<%
if pIndex = 1 then
%>
第一页
<<上一页
1

<a href=zt_CFDL_List.asp?p=2>2</a>


<a href=zt_CFDL_List.asp?p=3>3</a>


<a href=zt_CFDL_List.asp?p=4>4</a>


<a href=zt_CFDL_List.asp?p=5>5</a>


<a href=zt_CFDL_List.asp?p=6>6</a>


<a href=zt_CFDL_List.asp?p=<%= Cint(pIndex+1) %>>下一页>></a>


<a href=zt_CFDL_List.asp?p=6>最后一页</a>

<%
elseif pIndex = 6 then
%>

<a href=zt_CFDL_List.asp?p=1>第一页</a>


<a href=zt_CFDL_List.asp?p=<%= Cint(pIndex-1) %>>上一页</a>


<a href=zt_CFDL_List.asp?p=1>1</a>


<a href=zt_CFDL_List.asp?p=2>2</a>


<a href=zt_CFDL_List.asp?p=3>3</a>


<a href=zt_CFDL_List.asp?p=4>4</a>


<a href=zt_CFDL_List.asp?p=5>5</a>

6
下一页>>
最后一页
<%
else
%>

<a href=zt_CFDL_List.asp?p=1>第一页</a>


<a href=zt_CFDL_List.asp?p=<%= Cint(pIndex-1) %>>上一页</a>

<%
for m = 1 to 6 step 1
if Cint(pIndex) = Cint(m) then
%>
<%= m %>
<%
else
%>
页>
<a href=zt_CFDL_List.asp?p=<%= m %>><%= m %></a>

<%
end if
next
%>

<a href=zt_CFDL_List.asp?p=<%= Cint(pIndex+1) %>>下一页>></a>


<a href=zt_CFDL_List.asp?p=6>最后一页</a>

<%
end if
%>
</div>
</body>
</html>

<%
Public Function FormatDate(DateAndTime, para)
On Error Resume Next
Dim y, m, d, h, mi, s, strDateTime
FormatDate = DateAndTime
If Not IsNumeric(para) Then Exit Function
If Not IsDate(DateAndTime) Then Exit Function
y = CStr(Year(DateAndTime))
m = CStr(Month(DateAndTime))
If Len(m) = 1 Then m = 0 & m
d = CStr(Day(DateAndTime))
If Len(d) = 1 Then d = 0 & d
h = CStr(Hour(DateAndTime))
If Len(h) = 1 Then h = 0 & h
mi = CStr(Minute(DateAndTime))
If Len(mi) = 1 Then mi = 0 & mi
s = CStr(Second(DateAndTime))
If Len(s) = 1 Then s = 0 & s
Select Case para
Case 1
strDateTime = y & - & m & - & d & & h & : & mi & : & s
Case 2
strDateTime = y & - & m & - & d
Case 3
strDateTime = y & / & m & / & d
Case 4
strDateTime = y & 年 & m & 月 & d & 日
Case 5
strDateTime = m & - & d
Case 6
strDateTime = m & / & d
Case 7
strDateTime = m & 月 & d & 日
Case 8
strDateTime = y & 年 & m & 月
Case 9
strDateTime = y & - & m
Case 10
strDateTime = y & / & m
Case 11
strDateTime = m & - & d & & h & : & mi
Case 12
strDateTime = h & : & mi & : & s
Case 13
strDateTime = y & m & d & h & mi & s
Case 14
strDateTime = y & m & d
Case 15
strDateTime = h & mi & s
Case 16
strDateTime = h & : & mi
Case 17
strDateTime = y & m & d & h & mi & s
Case 18
strDateTime = y & m & d
Case 19
strDateTime = y & m
Case Else
strDateTime = DateAndTime
End Select
FormatDate = strDateTime
End Function
%>

效果图(部分)：