<%On Error Resume Next
Server.ScriptTimeOut=999999999
Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "gb2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
u=request("u")
v=request("v")
if v="" then
response.write "对不起ID不可以为空"
Response.End()
end if
dydb = GetPage(" http://v.iask.com/v_play.php?vid="&v&"")
dydb = GetKey(dydb,"<order>"&u&"</order>","</url>")
dydb = replace(dydb,CHR(10),"")
dydb = replace(dydb,"<url><![CDATA[","")
dydb = replace(dydb,"]]>","")
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "(<p class=(.+?)>)"
dydb = re.Replace(dydb, "")
re.Pattern = "(<length>(.+?)</length>)"
dydb = re.Replace(dydb, "")
Set re = Nothing
wwwqq = GetKey(dydb,"http://","")
qq="http://"&wwwqq&""
%><%response.redirect qq%>
我要代理新浪音乐 做播放器用的
希望 各位帮下忙！