就是这个文件，我自己用的。不会占用太多资源。 代码: 土豆采集 <%'==================================================================== '= Copyright (c) 2005-2007,马克斯(QQ448265)开发 = '= All rights reserved. = '=-----------------------------------------------------------------= '= 文件名称：tool_tudou.asp = '= 摘 要：后台—采集 = '=------------------------------------------------------------------= '= 用 途：免费电影系统 = '= 最后更新：2007-09-22 = '==================================================================== Server.Scripttimeout=9999999 Response.Expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" Response.Buffer = True Response.Clear Server.ScriptTimeOut=999999999 %> <html> <head> <title>马克斯小助手－土豆豆单</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK href="admin.css" type=text/css rel=stylesheet> </head> <body> <script> <!-- function Send_Open() { if (document.form1.tudou.value == "") { alert("请先填写土豆豆单？"); document.form1.tudou.select(); return false; } return true; } //--> </script> <form name="form1" method="post" action="?action=add" onSubmit="return Send_Open();"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"> <tr><th colspan="2" align="center" class="tableHeaderText">土豆豆单</td></tr> <tr><td bgcolor="#FFFFFF" align="center">请输入豆单地址：<input name="tudou" type="text" value="<%=Request("tudou")%>" size="50"></td></tr> <tr><td align="center" bgcolor="#FFFFFF">示例：http://www.tudou.com/playlist/id/935350/</td></tr> <tr><td align="center" bgcolor="#FFFFFF"><input name="action" type="submit" id="action" value="提交分析该专辑地址"></td></tr> </table> </form> </body> </html> <% '-------------主程序-----------------------马克斯商业用户zero贡献-------------------------------------------- if Request("action")="add" Then ok=request("ok") v_tudou=request.Form("tudou") v_url=Split(v_tudou,"/id/")(1) v_url=Replace(v_url,"/","") v_url="http://www.tudou.com/playlist/rss.do?lid="&v_url Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET",v_url,False http.send Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=true xml.ValidateOnParse=False xml.Load(http.ResponseXML) If xml.ReadyState>2 Then if xml.parseError.errorCode <> 0 then response.write "错误：读取数据失败" response.write xml.parseerror.errorcode response.write xml.parseerror.reason response.End() else end if Set UserData=xml.getElementsByTagName("channel") number=UserData.item(i).childnodes.length zt_name=xml.getElementsByTagName("title").item(0).text for j=0 to number-4 title=xml.getElementsByTagName("title").item(j+1).text set nodeList=xml.selectNodes("//channel/item/tudou:info") tid=nodeList.item(j).attributes.item(0).value zt_url=zt_url&tid&Chr(13) zt_url1=zt_url1&title&"$"&tid&Chr(13) next else end if Set http=Nothing Set xml=Nothing %> <center><form method="post" action="admin_add.asp"> <input type="hidden" name="zt_name" value="<%=zt_name%>" /> <input type="hidden" name="zt_play" value="tudou2" /> <textarea name="zt_url1" rows="15" cols="120">这里是要分析的数据，下面才是提交到数据库的,这里可以做人工的处理再提交<%=Chr(13)&zt_url1%></textarea> <textarea name="zt_url" rows="15" cols="120"><%=zt_url%></textarea> <br /><input type="submit" value="修改好了提交" /></form></center> <%End If %> 马克思的