Asp 解析 XML并分页显示源码

编程入门行业动态更新时间:2024-10-27 02:26:20

这篇文章主要介绍了Asp如何解析XML并分页显示，附截图，需要的朋友可以参考下Asp 解析 XML并分页显示，示例源码如下：复制代码代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="www.w3/1999/xhtml"> <head> <link rel="stylesheet" type="text/css" /> <script language="javascript" type="text/ecmascript" src="www.fx678/js/jquery-1.8.0.min.js"></script> <title>财富动力专题</title> <style type="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 .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> <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 ="back.moneypower/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 = "www.fx678/news/currency/XH08NewsContent.asp?u=" & link %> <% if i Mod 2 = 0 then %> <li class="bg"> <% else %> <li> <% end if %> <h4> <span> <%= FormatDate(myDate,2) %> </span><a target="_blank" myLink %>"> <%= myTitle %></a></h4> <p> <%= myDescription %> </p> </li> <% i = i + 1 Next Else Response.Write("暂无数据！") End If %> </ul> </div>  <div id="pageZone"> <% if pIndex = 1 then %> <span class="Disabled">第一页</span> <span class="Disabled"><<上一页</span> <span class="isNow number" title="您正在浏览本页">1</span> <span class="number" title="第2页"> <a >2</a> </span> <span class="number" title="第3页"> <a >3</a> </span> <span class="number" title="第4页"> <a >4</a> </span> <span class="number" title="第5页"> <a >5</a> </span> <span class="number" title="第6页"> <a >6</a> </span> <span title="转到下一页"> <a Cint(pIndex+1) %>">下一页>></a> </span> <span title="转到最后一页"> <a >最后一页</a> </span> <% elseif pIndex = 6 then %> <span class="Disabled"> <a >第一页</a> </span> <span title="转到上一页"> <a Cint(pIndex-1) %>">上一页</a> </span> <span class="number" title="第1页"> <a >1</a> </span> <span class="number" title="第2页"> <a >2</a> </span> <span class="number" title="第3页"> <a >3</a> </span> <span class="number" title="第4页"> <a >4</a> </span> <span class="number" title="第5页"> <a >5</a> </span> <span class="number isNow" title="您正在浏览本页">6</span> <span class="Disabled">下一页>></span> <span class="Disabled" title="转到最后一页">最后一页</span> <% else %> <span class="number"> <a >第一页</a> </span> <span title="转到上一页"> <a Cint(pIndex-1) %>">上一页</a> </span> <% for m = 1 to 6 step 1 if Cint(pIndex) = Cint(m) then %> <span class="number isNow" title="您正在浏览本页"><%= m %></span> <% else %> <span class="number" title="第<%= m %>页"> <a m %>"><%= m %></a> </span> <% end if next %> <span title="转到下一页"> <a Cint(pIndex+1) %>">下一页>></a> </span> <span title="转到最后一页"> <a >最后一页</a> </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并分页显示源码

本文发布于:2023-06-11 15:12:35，感谢您对本站的认可！

本文链接:https://www.elefans.com/category/jswz/34/637422.html