استخدم asp للحصول على ملف xml الخاص بالموضوع المحدد، ثم قم بقراءة محتويات قائمة ملف xml على دفعات.
انسخ الكود كما يلي:<title>Lei Feng|Youku-Album Collection Program</title></head>
<form name=form1method=post action=?action=add>
<table width=95% border=0 align =center cellpadding=0 cellpacing=1 class=tableBorder>
<tr><th colspan=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></ د >< tr>
<tr><td align=center bgcolor=#FFFFFF>على سبيل المثال الألبوم: http://www.youku.com/playlist_show/id_2344971.html</td></tr>
<tr><td align=center bgcolor= # FFFFFF><اسم الإدخال=نوع الإجراء=إرسال المعرف=قيمة الإجراء=أرسل عنوان الألبوم للتحليل></td></tr> <tr>
<td align=center bgcolor=#FFFFFF></td></tr>
</table>
</form>
<%
if Request(action)=add ثم
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>
الوظيفة GetPageContent(Url)
تعتيم HTTPObj
عند الخطأ استئناف
المجموعة التالية HTTPObj = Server.CreateObject(Microsoft. XMLHTTP)
باستخدام HTTPObj
.Open Get، Url، False،
.Send
End With
if HTTPObj.Readystate <> 4 ثم
قم بتعيين HTTPObj = لا شيء
GetPageContent = نهايةوظيفة الخروج
الخاطئ
إذا
GetPageContent = استبدال (HTTPObj.responseText,UTF-8,gb2312)
تعيين HTTPObj = لا شيء
نهاية الوظيفة
strXML=GetPageContent(&v_url&)
Set objXML = Server.CreateObject(Microsoft.XMLDOM)
objXML .validateonparse = صحيح
objXML.async=false
objXML.loadXML(strXML)
قم بتعيين objRootElement = objXML.documentElement
إذا لم يكن isObject(objRootElement) ثم
Response.Write (لم يتم تحميل أي ملف)
وإلا
قم بتعيين ChannelList=objXML.getElementsByTagName(item)
إذا كان فارغًا(objXML.getElementsByTagName(item ) ) ثم
الاستجابة.الكتابة (فشلت القراءة)
Response.End()
else
Set Statistics=objXML.getElementsByTagName(title)
set KeywordList=objXML.getElementsbytagname(lastBuildDate)
'response.write الإجمالي: &keywordlist.length-1&channels'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_urlrows=15 cols=100>
for j=0 to ChannelList.length-1
dim
استجابة
ibb.write
&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
%>
<%End If %>
البرنامج أعلاه يعتمد على قائمة ألبومات Youku كمثال لـ asp قراءة أكس أم أل!
احفظ الكود أعلاه بتنسيق XML.ASP وقم بتشغيله في بيئة IIS لجمع بيانات ألبوم Youku!
في الواقع، ما تم الحصول عليه أعلاه هو
كود النسخ لملف xml التالي، الكود كما يلي:
<?xml version=1.0 encoding=utf-8?>
<!-- generator=Novajax Feed Writer -->
<rss. الإصدار=2.0 xmlns:media=http ://search.yahoo.com/mrss xmlns:itunes=http://www.itunes.com/dtds/podcast-1.0.dtd>
<channel>
<title>Youku-Album-Video لـ Qianlong و Xiangfei (الحلقة 27)</title>
<description>فيديو لألبوم Youku Qianlong و Xiangfei (الحلقة 27)</description>
<link>http://www.youku .com /playlist/</link>
<lastBuildDate>الأربعاء، 16 ديسمبر 2009 13:34:06 +0800</lastBuildDate>
<generator>Novajax كاتب الموجز</generator>
<image>
<url>http://www.youku.com/index/img/youkulogo.gif</url>
<title>Youku.com - شبكة الفيديو رقم 1 في الصين، التي توفر تشغيل الفيديو , نشر الفيديو، البحث عن الفيديو</title>
<link>http://www.youku.com</link>
<description>منصة خدمة الفيديو، توفير تشغيل الفيديو، نشر الفيديو، بحث الفيديو، مشاركة الفيديو</description>
< / الصورة >
<العنصر
><title>تشيان لونغ وشيانغفي 01</title>
<link>http://www.youku.com/v_show/id_XMTM4NTY5NDk2_rss.html</link>
<description><![CDATA[<a href=http:// www .youku.com/v_show/id_XMTM4NTY5NDk2_rss.html><img src=http://g3.ykimg.com/0100641F464B178EA61F9F011876CAD9220D5D-8DAE-B491-FD1B-138F2DC75B23 border=0 width=120 height=90 vspace=4 hspace=4 /><itunes:duration>43:42</itunes: المدة>
<itunes:keywords>زونلونغ، نوربيا، تيانيو، ونغ هونغ، أينور، جوهاير، تان فيلينغ، فاليي، سلامجيانغسي</itunes:keywords>
<author>Weijie المصارف</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NDk2_rss.html#comments</comments>
<pubDate>الأربعاء، 16 ديسمبر 2009 13:34:06 +0800</pubDate>
<guid>34642374</guid>
<enclosure type=application/x-shockwave-flash url=http://player.youku.com/player.php/sid /34642374/v.swf></enclosure>
</item>
<item>
<title>تشيان لونغ وشيانغفي 02</title>
<link>http://www.youku.com/v_show/id_XMTM4NTY5NTI4_rss.html</link>
<description><![CDATA[<a href=http:// www .youku.com/v_show/id_XMTM4NTY5NTI4_rss.html><img src=http://g2.ykimg.com/0100641F464B178D99EF1F011876CA86F7B34B-B71C-2F1E-36B5-D0804F32AB42 border=0 width=120 height=90 vspace=4 hspace=4 /><itunes:duration>41:26</itunes: المدة>
<itunes:keywords>زونلونغ، نوربيا، تيانيو، ونغ هونغ، أينور، جوهاير، تان فيلينغ، فاليي، سلامجيانغسي</itunes:keywords>
<author>Weijie المصارف</author>
<comments>http://www.youku. com/v_show/id_XMTM4NTY5NTI4_rss.html#comments</comments>
<pubDate>الأربعاء، 16 ديسمبر 2009 13:34:06 +0800</pubDate>
<guid>34642382</guid>
<enclosure type=application/x-shockwave-flash url=http://player.youku.com/player.php/sid /34642382/v.swf></enclosure>
</item>
</channel>
</rss>