<%
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'≡        網頁媒體播放器下載旗艦站點      ≡
'≡             翠  竹  網   站            ≡
'≡          http://www.cuiz.net           ≡
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'程序作者：辣辣箭
'電子郵箱：jian08@126.com
'個人主頁：http://www.cuiz.net
'請保留以上版權信息，謝謝
'歌詞加載程序 
'解決AJAX無法跨域讀取歌詞的問題
'2007-05-21
'********************************************
On Error Resume Next
Dim Cuiz
Cuiz = ""
Cuiz = request.QueryString("url")
If Cuiz = "" Or Len(Cuiz) < 10 Then
response.write ("[00:00.00]抱歉，暫無歌詞！[05:00.00]Www.CuiZ.Net")
response.End
End If
Server.ScriptTimeOut=999
Public Function CuizHTTPPage(Path)
Dim t
t = GetBody(Path)
CuizHTTPPage=BytesToBstr(t,"GB2312")
End function
Public Function GetBody(url) 
On error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody = .ResponseBody
End With 
Set Retrieval = Nothing 
End Function
Public Function BytesToBstr(body,Cset)
on error resume next
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
response.write CuizHTTPPage(Cuiz)
%>