Asp 解析 XML并分页显示

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><link href="http://www.fx678.com/css/cur_topics.css" rel="stylesheet" type="text/css" /><script language="javascript" type="text/ecmascript" src="http://www.fx678.com/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,xmlUrlpSize = 10  '页大小xmlUrl ="http://back.moneypower.cn/news.xml"REM 页索引pIndex = Request.QueryString("p")if Cint(pIndex) > 6 Or Cint(pIndex) < 1 thenpIndex = 1end ifREM 异步读取XML源Set http = Server.CreateObject("Microsoft.XMLHTTP")http.open "GET",xmlUrl,falsehttp.sendREM 定义 读取XML 的变量Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")xmlDoc.async = falsexmlDoc.validateOnParse = falsexmlDoc.load(http.ResponseXML)Set objNodes = xmlDoc.getElementsByTagName("item")if objNodes.length > 0 theni = 0For j = (pSize*(pIndex-1)) to (pSize*pIndex-1) step 1myTitle = objNodes(j).childNodes(0).textmyDate = objNodes(j).childNodes(3).textmyDescription = objNodes(j).childNodes(2).textlink = Server.URLEncode(objNodes(j).childNodes(1).text)myLink = "http://www.fx678.com/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" href="<%= myLink %>"><%= myTitle %></a></h4><p><%= myDescription %></p></li><% i = i + 1NextElseResponse.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 %>

效果图(部分)：

Asp 解析 XML并分页显示相关推荐

asp oracle 分页显示,利用ASP实现Oracle数据记录的分页显示
[IT168 服务器学院]一.引言通过浏览器访问数据量大的表时需要进行分页.ASP对数据库记录分页显示可以通过ADO对象集Recordset对象来实现.Recordset具有以下几个用于分页显示的属 ...
asp.net oracle 分页,asp.net教程之利用ASP实现Oracle数据记录的分页显示
一.引言通过浏览器访问数据量大的表时需要进行分页.ASP对数据库记录分页显示可以通过ADO对象集Recordset对象来实现.Recordset具有以下几个用于分页显示的属性: PageSize:每 ...
XML数据的分页显示
我的个人网站上有一个页面,主要介绍了一些我喜欢的书籍,目前有9本,这样把页面拉的很长,挺影响美观的,于是决定分页显示它们.我没有SQL数据库,而且我也不想用复杂的数据库来存放这种简单的数据,所以我用的 ...
xml 属性value换行显示_跟光磊学Java开发-Java解析XML
XML介绍 XML(EXtensible Markup Language)指的是可扩展的标记语言. XML经常被用于框架的配置文件,例如Mybatis,Spring等开源框架都会使用XML作为配置文件 ...
Asp.net(c#)GridView分页时用图片显示上一页,下一页
Asp.net(c#)GridView分页时用图片显示上一页,下一页效果展示: 需要的两张图片: 详细代码: Code <%@ Page Language="C#" ...
ASP.NE浏览时无法显示 XML 页
ASP.NE浏览时无法显示 XML 页无法显示 XML 页. 使用样式表无法查看 XML 输入.请更正错误然后单击刷新按钮,或以后重试. 名称以无效字符开头.处理资源 'http://loca ...
cocos2d-x 3.0 使用Sax解析xml文档（解决中文显示问题）
今天是个好日子,心想的事儿都能成,明天是个好日子,打开了家门儿迎春风... 恩,听着歌写文档生活就是这么享受. 今天以前的邻居大神突然在qq上赞了我一下,这让我异常激动啊..这还要从前前前几天说起,那 ...
asp mysql分页_asp数据库编程:ADO 存取数据库时如何分页显示
∈裁词?ADO 存取数据库时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显 ...
改进一个asp.net通用分页显示辅助类
前言:闲暇时重新再看之前很多项目代码的时候,发现很多总是有那么点缺陷的代码,如芒刺入骨,令人心烦.挣扎良久,苦口婆心劝荐自己今后要争取把某些代码写的更易用更灵活更完善一些.比如在这篇已经提及到的通用客 ...
使用jquery解析xml
使用Jquery解析XML: $.ajax({ url: 'ajax/test.xml', dataType : 'xml', cache: false, ...

Asp 解析 XML并分页显示

Asp 解析 XML并分页显示

Asp 解析 XML并分页显示相关推荐

最新文章

热门文章