📄 tool_tudou.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
<!--#include file="check.asp"-->
<%'====================================================================
'=              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">请输入豆单ID：<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/<br />我们要填的就是<font color=#FF0000><strong>935350</strong></font></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="http://www.tudou.com/playlist/rss.do?lid="&v_tudou
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&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="tudou" />
<textarea name="zt_url" rows="15" cols="120"><%=Chr(13)&zt_url%></textarea>
<br /><input type="submit" value="修改好了提交" /></form></center>
<%End If %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -