lrcget.asp

来自「后台管理 /login.asp 帐号:admin 密码：123456 后台程」· ASP 代码 · 共 55 行

<%
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'≡        网页媒体播放器下载旗舰站点      ≡
'≡             翠  竹  网   站            ≡
'≡          http://www.cuiz.net           ≡
'≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
'程序作者：辣辣箭
'电子邮箱：[e-mail]
'个人主页：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)
%>