Asp 解析 XML并分页显示源码

　　Asp 解析 XML并分页显示，示例源码如下：

　　<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

　　<head>

　　<title>财富动力专题</title>

　　#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 .xinhua img

　　{

　　border: 0;

　　}

　　#right_topic .xinhua .top_cont

　　{

　　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>

　　var $m = $(window.parent.document).find("#MyXH08");

　　$m.load(function () {

　　var thish = $(document).height() + 30;

　　$m.height(thish);

　　});

　　</script>

　　</head>

　　<ul>

　　Dim xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl

　　pSize = 10 '页大小

　　xmlUrl ="http://back.moneypower.cn/news.xml"

　　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 = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & link

　　<% if i Mod 2 = 0 then %>

　　<% else %>

　　<li>

　　<% end if %>

　　<h4>

　　<span>

　　<%= FormatDate(myDate,2) %>

　　</span><a target="_blank" href="<%= myLink %>">

　　<%= myTitle %></a></h4>

　　<p>

　　<%= myDescription %>

　　</p>

　　</li>

　　i = i + 1

　　Else

　　Response.Write("暂无数据！")

　　End If

　　</ul>

　　</div>

　　if pIndex = 1 then

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　elseif pIndex = 6 then

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　</span>

　　else

　　</span>

　　</span>

　　for m = 1 to 6 step 1

　　if Cint(pIndex) = Cint(m) then

　　else

　　</span>

　　end if

　　</span>

　　</span>

　　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

　　效果图(部分)：

Asp 解析 XML并分页显示源码

教程首页更多教程