📄 tool_youku.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
<!--#include file="check.asp"-->
<%'====================================================================
'=              Copyright (c) 2005-2007,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=-----------------------------------------------------------------=
'=                     文件名称：tool_youku.asp                   =
'=                     摘    要：后台—优酷助手                =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-10-13                         =
'====================================================================
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
'***************************************************************
'*			定义 Function 函数
'***************************************************************
function Geturl(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
'set Http=server.createobject("Microsoft.Xmlhttp")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
Geturl=bytesToBSTR(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear
end Function

Function BytesToBstr(body,Cset)
dim objstream
s="stream"
set objstream = Server.CreateObject("adodb."&s)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

Function cut(str,start,start_num,over,over_num)'留头不留尾,首尾关键字正向
cut=mid(str,Instr(str,start)+start_num,Instr(str,over)+over_num-Instr(str,start)-start_num)
End Function

Function cut1(str,start,start_num,over,over_num)'留头不留尾,头关键字正向，尾关键字反向
cut1=mid(str,Instr(str,start)+start_num,Instrrev(str,over)+over_num-Instr(str,start)-start_num)
End Function

Function cut2(str,start,start_num,over,over_num)'留头不留尾,头关键字反向，尾关键字正向
cut2=mid(str,Instrrev(str,start)+start_num,Instr(str,over)+over_num-Instrrev(str,start)-start_num)
End Function

Function cut3(str,start,start_num,over,over_num)'留头不留尾,首尾关键字反向
cut3=mid(str,Instrrev(str,start)+start_num,Instrrev(str,over)+over_num-Instrrev(str,start)-start_num)
End Function
%>
<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.maxz.value == "") {
		alert("请先填写专辑地址？");
		document.form1.maxz.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="maxz" type="text" value="<%=Request("maxz")%>" size="50"></td></tr>
<tr><td align="center" bgcolor="#FFFFFF">例如专辑：http://www.youku.com/playlist_show/id_605121.html<br />我们的输入的就是<font color=#FF0000><strong>605121</strong></font></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>
</body>
</html>
<%
'-------------主程序-------------------------------------------------------------------
if Request("action")="add" Then
maxz=request.Form("maxz")
maxz1="http://www.youku.com/playlist_show/id_"&maxz&".html"
v_str=geturl(maxz1)
zt_name=Trim(cut(v_str,"<title>",7,"- 专辑 - 优酷视频</title>",0))
v_a=Trim(cut(v_str,"<li class=""video"">",21,"<li class=""play"">",0))
v_a=Split(v_a,"</li>")(0)
For i=0 To v_a-1
v_b=geturl("http://v.youku.com/v_playlist/f"&maxz&"o9p"&i&".html")
v_c=cut(v_b,"VideoIDS"",",10,"fo.addVariable(""isAutoPlay",0)
v_d=Split(v_c,");")(0)
v_e=Trim(cut1(v_b,"正在播放：",5,"播放：",0))
zt_url=zt_url&v_e&"$"&v_d&Chr(13)
Next 
'-------测试输出-----
'response.write"<textarea  rows=10 cols=100>"&zt_url&"</textarea>"
'response.End
'-----------END---------
%>
<center><form method="post" action="admin_add.asp">
<input type="hidden" name="zt_name" value="<%=zt_name%>" />
<input type="hidden" name="zt_play" value="youku" />
共抓取到<font color=#FF0000><strong><%=v_a%></strong></font>个视频<br />
<textarea name="zt_url" rows="15" cols="100"><%=zt_url%></textarea>
<br /><input type="submit" value="修改好了提交" /></form></center>
<%End If %>
⌨️ 快捷键说明

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