提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  移动开发

当前栏目

Asp解析XML并分页显示源码

ASP源码XML 解析 显示 分页
2023-06-13 09:15:26 时间
Asp解析XML并分页显示，示例源码如下：
复制代码代码如下:

<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<linkhref="http://www.fx678.com/css/cur_topics.css"rel="stylesheet"type="text/css"/>
<scriptlanguage="javascript"type="text/ecmascript"src="http://www.fx678.com/js/jquery-1.8.0.min.js"></script>
<title>财富动力专题</title>
<styletype="text/css">
#right_topic
{
float:right;
height:auto;
width:690px;
}
#right_topic.xinhua
{
clear:both;
width:690px;
overflow:hidden;
font-size:14px;
color:#444;
line-height:24px;
}
#right_topic.xinhuaimg
{
border:0;
}
#right_topic.xinhua.top_cont
{
border:1pxsolid#ddd;
height:140px;
}
#right_topic.xinhua.top_cont.xh_logo
{
width:270px;
float:left;
margin:25px10px;
}
#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:3pxsolid#206295;
}
.listul
{
margin:0;
padding:0;
}
.listulli
{
list-style:none;
border-bottom:1pxdotted#E5E5E5;
padding:10px;
}
.listullih4
{
font-family:"MicrosoftYahei";
font-size:18px;
font-weight:normal;
line-height:22px;
margin:0px;
margin-bottom:5px;
padding:0;
color:#0761B7;
}
.listullih4a
{
color:#206295;
text-decoration:none;
}
.listullih4a:hover
{
text-decoration:underline;
}
.listullispan
{
float:right;
width:120px;
color:#999;
font-size:14px;
text-align:right;
}
.listullip
{
margin:0;
padding:0;
font-size:12px;
}
.listulli.bg
{
background:#f5f8fa;
}
#pageZone
{
background:#F5F6FB;
border-bottom:1pxsolid#DBE3EE;
margin:10pxauto20px;
padding:10px0;
text-align:center;
}
#pageZonespan
{
background:#FFFFFF;
border:1pxsolid#D8DADF;
font-size:14px;
height:34px;
line-height:34px;
margin:0px2px;
padding:8px12px;
}
#pageZonespana
{
color:#666;
text-decoration:none;
}
#pageZonespan.isNow
{
background:#206295;
border:1pxsolid#D8DADF;
color:#FFFFFF;
}
</style>
<scripttype="text/javascript">
var$m=$(window.parent.document).find("#MyXH08");
$m.load(function(){
varthish=$(document).height()+30;
$m.height(thish);
});
</script>
</head>
<bodystyle="width:690px;">
<!--列表信息-->
<divclass="list">
<ul>
<%
DimxmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl
pSize=10"页大小
xmlUrl="http://back.moneypower.cn/news.xml"

REM页索引
pIndex=Request.QueryString("p")
ifCint(pIndex)>6OrCint(pIndex)<1then
pIndex=1
endif

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

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

SetobjNodes=xmlDoc.getElementsByTagName("item")

ifobjNodes.length>0then
i=0
Forj=(pSize*(pIndex-1))to(pSize*pIndex-1)step1
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="http://www.fx678.com/news/currency/XH08NewsContent.asp?u="&link
%>
<%ifiMod2=0then%>
<liclass="bg">
<%else%>
<li>
<%endif%>
<h4>
<span>
<%=FormatDate(myDate,2)%>
</span><atarget="_blank"href="<%=myLink%>">
<%=myTitle%></a></h4>
<p>
<%=myDescription%>
</p>
</li>
<%
i=i+1
Next
Else
Response.Write("暂无数据！")
EndIf
%>
</ul>
</div>
<!--分页信息-->
<divid="pageZone">
<%
ifpIndex=1then
%>
<spanclass="Disabled">第一页</span>
<spanclass="Disabled"><<上一页</span>
<spanclass="isNownumber"title="您正在浏览本页">1</span>
<spanclass="number"title="第2页">
<ahref="zt_CFDL_List.asp?p=2">2</a>
</span>
<spanclass="number"title="第3页">
<ahref="zt_CFDL_List.asp?p=3">3</a>
</span>
<spanclass="number"title="第4页">
<ahref="zt_CFDL_List.asp?p=4">4</a>
</span>
<spanclass="number"title="第5页">
<ahref="zt_CFDL_List.asp?p=5">5</a>
</span>
<spanclass="number"title="第6页">
<ahref="zt_CFDL_List.asp?p=6">6</a>
</span>
<spantitle="转到下一页">
<ahref="zt_CFDL_List.asp?p=<%=Cint(pIndex+1)%>">下一页>></a>
</span>
<spantitle="转到最后一页">
<ahref="zt_CFDL_List.asp?p=6">最后一页</a>
</span>
<%
elseifpIndex=6then
%>
<spanclass="Disabled">
<ahref="zt_CFDL_List.asp?p=1">第一页</a>
</span>
<spantitle="转到上一页">
<ahref="zt_CFDL_List.asp?p=<%=Cint(pIndex-1)%>">上一页</a>
</span>
<spanclass="number"title="第1页">
<ahref="zt_CFDL_List.asp?p=1">1</a>
</span>
<spanclass="number"title="第2页">
<ahref="zt_CFDL_List.asp?p=2">2</a>
</span>
<spanclass="number"title="第3页">
<ahref="zt_CFDL_List.asp?p=3">3</a>
</span>
<spanclass="number"title="第4页">
<ahref="zt_CFDL_List.asp?p=4">4</a>
</span>
<spanclass="number"title="第5页">
<ahref="zt_CFDL_List.asp?p=5">5</a>
</span>
<spanclass="numberisNow"title="您正在浏览本页">6</span>
<spanclass="Disabled">下一页>></span>
<spanclass="Disabled"title="转到最后一页">最后一页</span>
<%
else
%>
<spanclass="number">
<ahref="zt_CFDL_List.asp?p=1">第一页</a>
</span>
<spantitle="转到上一页">
<ahref="zt_CFDL_List.asp?p=<%=Cint(pIndex-1)%>">上一页</a>
</span>
<%
form=1to6step1
ifCint(pIndex)=Cint(m)then
%>
<spanclass="numberisNow"title="您正在浏览本页"><%=m%></span>
<%
else
%>
<spanclass="number"title="第<%=m%>页">
<ahref="zt_CFDL_List.asp?p=<%=m%>"><%=m%></a>
</span>
<%
endif
next
%>
<spantitle="转到下一页">
<ahref="zt_CFDL_List.asp?p=<%=Cint(pIndex+1)%>">下一页>></a>
</span>
<spantitle="转到最后一页">
<ahref="zt_CFDL_List.asp?p=6">最后一页</a>
</span>
<%
endif
%>
</div>
</body>
</html>

<%
PublicFunctionFormatDate(DateAndTime,para)
OnErrorResumeNext
Dimy,m,d,h,mi,s,strDateTime
FormatDate=DateAndTime
IfNotIsNumeric(para)ThenExitFunction
IfNotIsDate(DateAndTime)ThenExitFunction
y=CStr(Year(DateAndTime))
m=CStr(Month(DateAndTime))
IfLen(m)=1Thenm="0"&m
d=CStr(Day(DateAndTime))
IfLen(d)=1Thend="0"&d
h=CStr(Hour(DateAndTime))
IfLen(h)=1Thenh="0"&h
mi=CStr(Minute(DateAndTime))
IfLen(mi)=1Thenmi="0"&mi
s=CStr(Second(DateAndTime))
IfLen(s)=1Thens="0"&s
SelectCasepara
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
CaseElse
strDateTime=DateAndTime
EndSelect
FormatDate=strDateTime
EndFunction
%>

效果图(部分)：

相关文章