防採集的原理非常簡單，先放一段動態語句，把訪問者的IP加入到資料庫的一個表裡，然後在頁面底部加入一個JS，JS直接訪問動態頁面，將訪問者的IP加入到資料庫的另外一個表裡。
昨天在網路上看到一個防採集軟體，說採集只訪問當前網頁，不會訪問網頁的圖片、JS等，今天突然想到，通過動態程序和Js訪問分別記錄訪問者的IP，然後進行IP判斷，由於採集過程不會存取JS，採集的時候只會查到用動態程式記錄的IP，而不會有透過JS記錄的IP，從而實現網頁程式的防採集。
防採集的原理非常簡單，先放一段動態語句，把訪問者的IP加入到資料庫的一個表裡，然後在頁面底部加入一個JS，JS直接訪問動態頁面，將訪問者的IP加入到資料庫的另外一個表裡。再次訪問的時候，從兩個表裡讀IP數據，然後判斷時間差，如果只在第一個表裡找到，在第二個表裡找不到，或者時間差超過10秒，則認為是採集。
優點
1.部署簡單，只要是動態語言就能很容易的實現，無需借助伺服器端程序
2.殺傷力大，幾乎能封鎖所有的採集過程
缺點
1.第一個缺點還是殺傷力大，如果需要實際使用需要考慮一些特殊情況，以免誤殺已經殺掉搜索爬蟲
2.只適用於動態網頁，靜態頁面就沒辦法用了
流程寫的比較亂，不過原理本身就不是很複雜，下面附上程序例子，懂ASP的應該很快就能看懂。
程式範例（ASP+ACCESS）（測試程式下載）：
1.建立資料庫
表1：Ip1，欄位Ip1_Adderss（文字），Ip1_Time（日期/時間，預設值=Now()）
表2：Ip2，欄位Ip2_Adderss（文字），Ip2_Time（日期/時間，預設值=Now()）
2.Index.asp（僅動態程式碼，全部程式碼請見測試程式中）
複製程式碼如下:<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%
Dim Conn,Rs,Sqlstr,Ip,IpTime,IpTime2,NewUser
NewUser=0
Set Conn = Server.CreateObject(Adodb.Connection)
Set Rs=Serverver .Createobject(Adodb.RecordSet)
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(Data.mdb)
Conn.Open ConnStr
Ip=Request.ServerVariables(REMOTE_ADDR)
Sqlstr=Select * From [Ip1] Where Ip1_Address='&Ip1_Address'&Ip1_Address'&Ip1_Address='& Order By Ip1_Id Desc
Rs.Open Sqlstr,Conn,1,3
If Rs.Eof Then
NewUser=1
Application.Lock()
Rs.AddNew()
Rs(Ip1_Address)=Ip
Rs.Update()
Application.UnLock()
Else
IpTime=Rs(Ip1_Time)
Application.Lock()
Rs.AddNew( )
Rs(Ip1_Address)=Ip
Rs.Update()
Application.UnLock()
End If
Rs.Close
If NewUser=0 Then
Sqlstr=Select * From [Ip2] Where Ip2_Address='&Ip&' Order By Ip2_Id Desc
Rs.Open Sqlstr,Conn,1,3
If Rs.Eof Then
Rs.Close
Response.Write(請勿採集！)
Response.End()
Else
IpTime2=Rs(Ip2_Time)
If DateDiff(s,IpTime2,IpTime)>10 Then
Rs.Close
Response.Write(請勿採集！)
Response.End()
End If
End If
Rs.Close
End If
%>
3.Js.asp
複製程式碼如下:
< %
Dim Conn,Rs,Sqlstr,Ip
Set Conn = Server.CreateObject(Adodb.Connection)
Set Rs=Server.Createobject(Adodb.RecordSet)
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(Data.mdb)
Conn.Open ConnStr
Ip=Request.ServerVariables(REMOTE_ADDR)
SqlstrSelect. From [Ip2]
Rs.Open Sqlstr,Conn,1,3
Application.Lock()
Rs.AddNew()
Rs(Ip2_Address)=Ip
Rs.Update()
Application.UnLock()
Rs.Close
%>
4.Get.asp
複製程式碼如下:
<%@LANGUAGE=VBSCRIPT CODEPAGE=936 %>
<%
Response.Write(Server.HTMLEncode(GetHttpPage(http://localhost/Index.asp,GB2312)))
'=========================== =====
'函數名稱：GetHttpPage
'作用：取得頁面原始碼函數
'參數：網址HttpUrl
'========================== ====
Function GetHttpPage(HttpUrl,Code)
If IsNull(HttpUrl)=True Or HttpUrl= Then
GetHttpPage=A網站維護中！
Exit Function
End If
On Error Resume Next
Dim Http
Set Http=server.createobject(MSX&ML2.XML&HTTP)
Http.open GET,HttpUrl,False
Http.Send()
If Http.Readystate<Pt>4 then
Settt4p
.
維護中！
Exit function
End if
GetHttpPage=BytesToBSTR(Http.responseBody,Code)
Set Http=Nothing
If Err.number<>0 then
Err.Clear
GetHttpPage=C網站維護中！
Exit function
End If
End Function
'==============================
'函數名稱：BytesToBstr
'作用：轉換編碼函數
'參數：字串Body，編碼Cset
'==============================
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject(ado&d&b.st&re&am)
Objstream.Type = 1
Objstream.Mode =3
Objstream.Open
Objstream.Write body
Objstream.Position = 0
Objstream.Type = 2
Objstream.Charset = Cset
BytesToBstr = Objstream.ReadText
Objstream.Close
set Objstream = nothing
End Function
%
>方卡在線原創，轉載請註明出處。如有雷同，純屬巧合！