Asp 解析 XML并分页显示源码
发布时间：2016-12-07 12:44:07 所属栏目：PHP教程 来源：站长网
导读：Asp 解析 XML并分页显示，示例源码如下： 复制代码 代码如下: lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"gt; lt;html xmlns="http://www.w3.org/1999/xhtml"gt; lt;hea
|
Asp 解析 XML并分页显示，示例源码如下： 复制代码 代码如下: lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"gt; lt;html xmlns="http://www.w3.org/1999/xhtml"gt; lt;headgt; lt;link href="http://www.fx678.com/css/cur_topics.css" rel="stylesheet" type="text/css" /gt; lt;script language="javascript" type="text/ecmascript" src="http://www.fx678.com/js/jquery-1.8.0.min.js"gt;lt;/scriptgt; lt;titlegt;财富动力专题lt;/titlegt; lt;style type="text/css"gt; #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; } lt;/stylegt; lt;script type="text/javascript"gt; var $m = $(window.parent.document).find("#MyXH08"); $m.load(function () { var thish = $(document).height() + 30; $m.height(thish); }); lt;/scriptgt; lt;/headgt; lt;body style="width: 690px;"gt; lt;!-- 列表信息 --gt; lt;div class="list"gt; lt;ulgt; lt;% 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) gt; 6 Or Cint(pIndex) lt; 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 gt; 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 %gt; lt;% if i Mod 2 = 0 then %gt; lt;li class="bg"gt; lt;% else %gt; lt;ligt; lt;% end if %gt; lt;h4gt; lt;spangt; lt;%= FormatDate(myDate,2) %gt; lt;/spangt;lt;a target="_blank" href="lt;%= myLink %gt;"gt; lt;%= myTitle %gt;lt;/agt;lt;/h4gt; lt;pgt; lt;%= myDescription %gt; lt;/pgt; lt;/ligt; lt;% i = i + 1 Next Else Response.Write("暂无数据！") End If %gt; lt;/ulgt; lt;/divgt; lt;!-- 分页信息 --gt; lt;div id="pageZone"gt; lt;% if pIndex = 1 then %gt; lt;span class="Disabled"gt;第一页lt;/spangt; lt;span class="Disabled"gt;lt;lt;上一页lt;/spangt; lt;span class="isNow number" title="您正在浏览本页"gt;1lt;/spangt; lt;span class="number" title="第2页"gt; lt;a href="zt_CFDL_List.asp?p=2"gt;2lt;/agt; lt;/spangt; lt;span class="number" title="第3页"gt; lt;a href="zt_CFDL_List.asp?p=3"gt;3lt;/agt; lt;/spangt; lt;span class="number" title="第4页"gt; lt;a href="zt_CFDL_List.asp?p=4"gt;4lt;/agt; lt;/spangt; lt;span class="number" title="第5页"gt; lt;a href="zt_CFDL_List.asp?p=5"gt;5lt;/agt; lt;/spangt; lt;span class="number" title="第6页"gt; lt;a href="zt_CFDL_List.asp?p=6"gt;6lt;/agt; lt;/spangt; lt;span title="转到下一页"gt; lt;a href="zt_CFDL_List.asp?p=lt;%= Cint(pIndex+1) %gt;"gt;下一页gt;gt;lt;/agt; lt;/spangt; lt;span title="转到最后一页"gt; lt;a href="zt_CFDL_List.asp?p=6"gt;最后一页lt;/agt; lt;/spangt; lt;% elseif pIndex = 6 then %gt; lt;span class="Disabled"gt; lt;a href="zt_CFDL_List.asp?p=1"gt;第一页lt;/agt; lt;/spangt; lt;span title="转到上一页"gt; lt;a href="zt_CFDL_List.asp?p=lt;%= Cint(pIndex-1) %gt;"gt;上一页lt;/agt; lt;/spangt; lt;span class="number" title="第1页"gt; lt;a href="zt_CFDL_List.asp?p=1"gt;1lt;/agt; lt;/spangt; lt;span class="number" title="第2页"gt; lt;a href="zt_CFDL_List.asp?p=2"gt;2lt;/agt; lt;/spangt; lt;span class="number" title="第3页"gt; lt;a href="zt_CFDL_List.asp?p=3"gt;3lt;/agt; lt;/spangt; lt;span class="number" title="第4页"gt; lt;a href="zt_CFDL_List.asp?p=4"gt;4lt;/agt; lt;/spangt; lt;span class="number" title="第5页"gt; lt;a href="zt_CFDL_List.asp?p=5"gt;5lt;/agt; lt;/spangt; lt;span class="number isNow" title="您正在浏览本页"gt;6lt;/spangt; lt;span class="Disabled"gt;下一页gt;gt;lt;/spangt; lt;span class="Disabled" title="转到最后一页"gt;最后一页lt;/spangt; lt;% else %gt; lt;span class="number"gt; lt;a href="zt_CFDL_List.asp?p=1"gt;第一页lt;/agt; lt;/spangt; lt;span title="转到上一页"gt; lt;a href="zt_CFDL_List.asp?p=lt;%= Cint(pIndex-1) %gt;"gt;上一页lt;/agt; lt;/spangt; lt;% for m = 1 to 6 step 1 if Cint(pIndex) = Cint(m) then %gt; lt;span class="number isNow" title="您正在浏览本页"gt;lt;%= m %gt;lt;/spangt; lt;% else %gt; lt;span class="number" title="第lt;%= m %gt;页"gt; lt;a href="zt_CFDL_List.asp?p=lt;%= m %gt;"gt;lt;%= m %gt;lt;/agt; lt;/spangt; lt;% end if next %gt; lt;span title="转到下一页"gt; lt;a href="zt_CFDL_List.asp?p=lt;%= Cint(pIndex+1) %gt;"gt;下一页gt;gt;lt;/agt; lt;/spangt; lt;span title="转到最后一页"gt; lt;a href="zt_CFDL_List.asp?p=6"gt;最后一页lt;/agt; lt;/spangt; lt;% end if %gt; lt;/divgt; lt;/bodygt; lt;/htmlgt; lt;% 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 %gt; 效果图(部分)：  （编辑：开发网_郴州站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
浙公网安备 33038102330466号