链
接
|
编辑推荐
| <% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.link-8.com/link8.asp?site_id=29399")) 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 %> |
Copyright© 2009-2010 34dm.com Inc. All rights reserved. 34动漫 版权所有
请将屏幕分辨率设置到1024X768并使用IE6.0或Maxthon浏览本站以达到最佳效果
管理员邮箱:m@34dm.com 管理员QQ:649273182 QQ群1: 101671825
本站所有资源均来自于网络,仅供网友试看、交流和讨论之用,如有侵犯您的版权请与我们联系,我们将立即删除
请将屏幕分辨率设置到1024X768并使用IE6.0或Maxthon浏览本站以达到最佳效果
管理员邮箱:m@34dm.com 管理员QQ:649273182 QQ群1: 101671825
本站所有资源均来自于网络,仅供网友试看、交流和讨论之用,如有侵犯您的版权请与我们联系,我们将立即删除





































