注册 登录
编程论坛 ASP技术论坛

新人求高手解决下难度

lms9988 发布于 2011-11-01 13:28, 615 次点击
我想用asp获取一个静态加密页面里的流媒体地址 怎么获取呢

比如获取http://i.  下面代码获取的是所有内容 如何获取里面的mms播放地址?
<%
dim fso
Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetBody(weburl)
    '创建对象
    Dim ObjXMLHTTP
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
    '请求文件,以异步形式
    ObjXMLHTTP.Open "GET",weburl,False
    ObjXMLHTTP.send
    While ObjXMLHTTP.readyState <> 4
        ObjXMLHTTP.waitForResponse 1000
    Wend
    '得到结果
     GetBody=ObjXMLHTTP.responseBody
    '释放对象
     Set ObjXMLHTTP=Nothing
End Function
response.write BytesToBstr(GetBody("http://i.),"gb2312")  
function jt()
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
end function
%>
0 回复
1