| 单片播放 | |||||||||
|
| 实用查询 | |
| 劲之音欢迎您 | |||||
|
|
| <% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.allcanlink.com/out/out.php?q=24214")) function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function %> |
| 网站首页 | allcanlink.asp | 手机上网设置 | 舞曲试听 | MP3 | 彩铃下载 |
|
|
| 最近更新 | |||||||||||||||||||||||||||||||
|
| IP地址查询 | |
|
| 舞曲试听 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 劲之音Logo | ||
|
| 铃声下载 | |
|
| PC上的WAP浏览器 | |||||||||||||||||
| |||||||||||||||||
|
|||||||||||||||||
