ASP が XML を読み取る例 Youku アルバムコレクションプログラム Lei Feng バージョン

著者：Eve Cole 更新時間：2025-01-14 14:36:02

asp を使用して、指定されたトピックの xml ファイルを取得し、xml ファイルのリストの内容をバッチで読み取ります。

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

<title>Lei Feng|Youku-Album Collection Program</title></head>

<tr><thcolspan=2 align=center class=tableHeaderText><<<< <font color=red>Lei Feng|Youku-アルバムコレクションプログラム</font> >>>></td></tr>

<tr><td align=center><a href=http://www.youku.com/playlist/ target=_blank>クリックして Youku アルバムを見つけてください</a >

</td>

</tr>

<tr><td bgcolor=#FFFFFF align=center>アルバムアドレス: <input name=maxz type=text value=<%=Request(maxz)%> size=50></ td></tr>

<tr><td align=center bgcolor=#FFFFFF>アルバムの例: http://www.youku.com/playlist_show/id_2344971.html</td></tr>

</table>

</form>

if Request(action)=add then

maxz=request.Form(maxz)

v_urla=Split(maxz,/id_)(1 )

v_urlb=Replace(v_urla,.html,)

v_url=http://www.youku.com/playlist/rss/id/4014024&v_urlb

response.write <div align=center><a href=&v_url& target=_blank >現在のアルバムの XML:&v_url&</a></div>

Function GetPageContent(Url)

Dim HTTPObj

On Error Resume Next

Set HTTPObj = Server.CreateObject(Microsoft. XMLHTTP )

HTTPObj

.Open Get、Url、False、、.

Send

End With

if HTTPObj.Readystate <> 4 then

Set HTTPObj = Nothing

GetPageContent = False

Exit Function

end if

GetPageContent = replace(HTTPObj.responseText,UTF-8,gb2312)

Set HTTPObj = Nothing

End Function

strXML=GetPageContent(&v_url&)

Set objXML = Server.CreateObject(Microsoft.XMLDOM)

objXML .validateonparse = true

objXML.async=false

objXML.loadXML(strXML)

set objRootElement = objXML.documentElement

if isObject(objRootElement) then

Response.Write(ファイルがロードされていません)

else

Set ChannelList=objXML.getElementsByTagName(item)

if isnull(objXML.getElementsByTagName(item) ) ) 次に、

response.Write(読み取りに失敗しました)

response.End()

else

Set Statistics=objXML.getElementsByTagName(title)

set KeywordList=objXML.getElementsbytagname(lastBuildDate)

'response.write 合計: &keywordlist.length-1& チャンネル'response.write

<div align=center><h4> アルバム名前: &Statistics.item(0).text&</h4>

v_name=REPLACE(Statistics.item(0).text,Youku-Album-,)

zt_name=REPLACE(v_name, video,)

response.write <div align=center><h4>アルバム名: <font color=red> &zt_name& </font></h4>

response.write <center><form method=post action=../admin_add.asp>

response.write <input type=hidden name=db_channel value=&zt_name& /><br>

response.write <input type=hidden name=db_player value=youku />

response.write <textarea name=db_url rows=15cols=100>

for j=0 to ChannelList.length-1

dim ibb

応答.書き込み&ChannelList.item(j).childnodes(0).text&$&ChannelList.item(j).childnodes(8).text&chr(13)&

ibb=ibb+1

応答.write </textarea><br /><input type=submit value=modified submit/></form></center>

response.write <div align=center><h4>抽出された合計: <font color=red>&ibb&</font> 検証後に送信</h4></div><br>

end if

<%End If %>

上記のプログラムは例としてYoukuのアルバムリストに基づいています aspの例XMLを読んでいます！

上記のコードを XML.ASP として保存し、IIS 環境で実行して Youku アルバムデータを収集します。

実際、上記で取得したのは

次の XML ファイルのコピーコードです。コードは次のとおりです。

<?xml version=1.0coding=utf-8?>

<チャンネル>

<title>Youku-アルバム-乾隆と項飛のビデオ (エピソード 27)</title>

<description>優酷アルバム乾隆と項飛のビデオ (エピソード 27)</description>

<generator>Novajaxフィードライター</generator>

<image>

<url>http://www.youku.com/index/img/youkulogo.gif</url>

<title>Youku.com - ビデオ再生を提供する中国最大のビデオネットワーク、ビデオ公開、ビデオ検索</title>

<description>ビデオ再生、ビデオ公開、ビデオ検索、ビデオ共有を提供するビデオサービスプラットフォーム</description>

< /image >

アイテム>

<title>乾隆と香飛 01</title>

<itunes:keywords>ズンロン、ヌルビア、ティアンニウ、ウェンホン、アイヌル、グハイエル、タン・フェイリン、ヴァーリイー、スラムジャンシー</itunes:keywords>

<著者>ウェイジエ・シンク</ /author>

<コメント>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>

</item>

<item>

<title>乾隆と香飛 02</title>

<著者>ウェイジエ・シンク</ /author>

<コメント>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>

</item>

</channel>

</rss>

ASP が XML を読み取る例 Youku アルバム コレクション プログラム Lei Feng バージョン

ASP が XML を読み取る例 Youku アルバムコレクションプログラム Lei Feng バージョン