ASP XML 인 스 턴 스 유쿠 앨범 채집 프로그램 뇌봉 판 읽 기

4.567913.이상 프로그램 은 유쿠 의 앨범 목록 을 예 로 들 어 asp 에서 xml 를 읽 는 인 스 턴 스 입 니 다!위의 코드 를 XML.ASP 로 저장 하여 IIS 환경 에서 실행 하면 유쿠 앨범 의 데 이 터 를 수집 할 수 있 습 니 다!사실 위 에서 가 져 온 것 은 아래 xml 파일 입 니 다

 
<title>  |  -       </title></head> 
<form name="form1" method="post" action="?action=add"> 
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> 
<tr><th colspan="2" align="center" class="tableHeaderText"><<<< <font color=red>  |  -       </font> >>>></td></tr> 
<tr><td align="center"><a href="http://www.youku.com/playlist/" target="_blank">        </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> 
<tr><td align="center" bgcolor="#FFFFFF"><input name="action" type="submit" id="action" value="         "></td></tr> 
<tr><td align="center" bgcolor="#FFFFFF"></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") 
With 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 not isObject(objRootElement) then 
Response.Write("no file loaded") 
else 
Set ChannelList=objXML.getElementsByTagName("item") 
if isnull(objXML.getElementsByTagName("item") ) then 
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,"  -  -","") 
zt_name=REPLACE(v_name,"   ","") 
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=""15"" cols=""100"">" 
for j=0 to ChannelList.length-1 
dim ibb 
response.write ""&ChannelList.item(j).childnodes(0).text&"$"&ChannelList.item(j).childnodes(8).text&chr(13)&"" 
ibb=ibb+1 
next 
response.write "</textarea><br /><input type=""submit"" value=""      "" /></form></center>" 
response.write "<div align=""center""><h4>    ：<font color=red>"&ibb&"</font>        </h4></div><br>" 
end if 
end if 
%> 
<%End If %>