Asp は XML を解析し、ページにソースコードを表示します

著者：Eve Cole 更新時間：2025-01-26 04:48:01

この記事では、Asp が XML を解析してページに表示する方法を主に紹介します。必要な友達はそれを参照してください。

Asp は XML を解析してページに表示します。サンプルソースコードは次のとおりです。

次のようにコードをコピーします。

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

<頭>

<title>ウェルスパワーの特別トピック</title>

#right_topic

{

フロート: 右;

高さ: 自動;

幅: 690ピクセル;

}

#right_topic .xinhua

{

クリア：両方。

幅: 690ピクセル;

オーバーフロー: 非表示;

フォントサイズ: 14px;

カラー:#444;

行の高さ: 24px;

}

#right_topic .xinhua 画像

{

境界線: 0;

}

#right_topic .xinhua .top_cont

{

ボーダー: 1px ソリッド #ddd;

高さ: 140ピクセル;

}

#right_topic .xinhua .top_cont .xh_logo

{

幅: 270ピクセル;

フロート: 左;

マージン: 25 ピクセル 10 ピクセル;

}

#right_topic .xinhua .top_cont .xh_text

{

フロート: 右;

幅: 390ピクセル;

フォントサイズ: 14px;

行の高さ: 22px;

カラー:#666;

マージントップ: 15px;

}

。リスト

{

クリア：両方。

マージントップ: 15px;

オーバーフロー: 非表示;

border-bottom: 3px ソリッド #206295;

}

.listul

{

マージン: 0;

パディング: 0;

}

.listulli

{

リストスタイル: なし;

border-bottom: 1px 点線 #E5E5E5;

パディング: 10px;

}

.list ul li h4

{

font-family: "Microsoft Yahei";

フォントサイズ: 18px;

フォントの太さ: 通常;

行の高さ: 22px;

マージン: 0px;

マージン-ボトム: 5px;

パディング: 0;

カラー: #0761B7;

}

.list ul li h4 a

{

色: #206295;

テキスト装飾: なし。

}

.list ul li h4 a:hover

{

テキスト装飾: 下線;

}

.listulli スパン

{

フロート: 右;

幅: 120ピクセル;

色: #999;

フォントサイズ: 14px;

テキスト整列: 右;

}

.list ul li p

{

マージン: 0;

パディング: 0;

フォントサイズ: 12px;

}

.listulli.bg

{

背景: #f5f8fa;

}

#pageZone

{

背景: #F5F6FB;

ボーダーボトム: 1px ソリッド #DBE3EE;

マージン: 10px 自動 20px;

パディング: 10px 0;

テキスト整列: 中央;

}

#pageZone スパン

{

背景: #FFFFFF;

ボーダー: 1px ソリッド #D8DADF;

フォントサイズ: 14px;

高さ: 34ピクセル;

行の高さ: 34px;

マージン: 0px 2px;

パディング: 8px 12px;

}

#pageZone スパン

{

カラー:#666;

テキスト装飾: なし。

}

#pageZonespan.isNow

{

背景: #206295;

ボーダー: 1px ソリッド #D8DADF;

色: #FFFFFF;

}

</スタイル>

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

$m.load(関数() {

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

$m.高さ(これ);

});

</script>

</head>

<本文>

<div>

<ul>

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

pSize = 10 'ページサイズ

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

REMページインデックス

pIndex = Request.QueryString("p")

Cint(pIndex) > 6 または Cint(pIndex) < 1 の場合

pインデックス = 1

終了する場合

REM は XML ソースを非同期で読み取ります

http = Server.CreateObject("Microsoft.XMLHTTP") を設定します。

http.open "GET",xmlUrl,false

http.送信

REM は XML を読み取るための変数を定義します

Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")

xmlDoc.async = false

xmlDoc.validateOnParse = false

xmlDoc.load(http.ResponseXML)

set objNodes = xmlDoc.getElementsByTagName("item")

objNodes.length > 0 の場合

i = 0

j = (pSize*(pIndex-1)) ～ (pSize*pIndex-1) の場合ステップ 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=" & リンク

<% if i Mod 2 = 0 then %>

<リ>

<% 他 %>

<リ>

<% % の場合は終了>

<h4>

<スパン>

<%= FormatDate(myDate,2) %>

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

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

<p>

<%= myDescription %>

</p>

</li>

i = i + 1

次

それ以外

Response.Write("まだデータがありません!")

終了の場合

</ul>

</div>

<div>

pIndex = 1 の場合

<span>最初のページ</span>

<スパン(&M)

d = CStr(日(日付と時刻))

Len(d) = 1 の場合、d = "0" & d

h = CStr(時間(日付と時刻))

Len(h) = 1 の場合、h = "0" & h

mi = CStr(分(日付と時刻))

Len(mi) = 1 の場合、mi = "0" & mi

s = CStr(秒(日付と時刻))

Len(s) = 1 の場合、s = "0" & s

大文字と小文字を選択してください

ケース「1」

strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

ケース「2」

strDateTime = y & "-" & m & "-" & d

ケース「3」

strDateTime = y & "http://www.vevb.com/" & m & "http://www.vevb.com/" & d

ケース「4」

strDateTime = y & "年" & m & "月" & d & "日"

ケース「5」

strDateTime = m & "-" & d

ケース「6」

strDateTime = m & "http://www.vevb.com/" & d

ケース「7」

strDateTime = m & "月" & d & "日"

ケース「8」

strDateTime = y & "年" & m & "月"

ケース「9」

strDateTime = y & "-" & m

ケース「10」

strDateTime = y & "http://www.vevb.com/" & m

ケース「11」

strDateTime = m & "-" & d & " " & h & ":" & mi

ケース「12」

strDateTime = h & ":" & mi & ":" & s

ケース「13」

strDateTime = y & m & d & h & mi & s

ケース「14」

strDateTime = y&m&d

ケース「15」

strDateTime = h&mi&s

ケース「16」

strDateTime = h & ":" & mi

ケース「17」

strDateTime = y & m & d & h & mi & s

ケース「18」

strDateTime = y&m&d

ケース「19」

strDateTime = y&m

それ以外の場合

strDateTime = 日付と時刻

エンドセレクト

FormatDate = strDateTime

終了機能

レンダリング（部分）：

Asp は XML を解析し、ページにソース コードを表示します

Asp は XML を解析し、ページにソースコードを表示します