Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > Code เช็ค บอท ว่ามาเก็บข้อมูลเวปของเราหรือเปล่า แล้วเป็น บอท ของ Search Engine อะไร

Code เช็ค บอท ว่ามาเก็บข้อมูลเวปของเราหรือเปล่า แล้วเป็น บอท ของ Search Engine อะไร

เริ่มหัวข้อใหม่

Orion

โพสกระทู้ ( 164 )
บทความ ( 4 )

Code

%
Dim varUAGENT
Dim varREFERER
Dim varADDR
Dim varIAM
Dim varRemoteAddr

varUAGENT = Request.ServerVariables("HTTP_USER_AGENT")
varREFERER = Request.ServerVariables("HTTP_REFERER")
varRemoteAddr = Request.ServerVariables("Remote_ADDR")
varADDR = left(Request.ServerVariables("Remote_ADDR"), 2)
varIAM = ""

' Search for those BOTS
If instr(varUAGENT,"google") OR instr(varUAGENT,"URL_Spider_SQL") OR instr(varUAGENT,"Firefly") OR instr(varUAGENT,"NationalDirectory") OR instr(varUAGENT,"Ask Jeeves") OR instr(varUAGENT,"TECNOSEEK") OR instr(varUAGENT,"InfoSeek") OR instr(varUAGENT,"WebFindBot") OR instr(varUAGENT,"girafabot") OR instr(varUAGENT,"crawler") OR instr(varUAGENT,"www.galaxy.com") OR instr(varUAGENT,"Googlebot") OR instr(varUAGENT,"Scooter") OR instr(varUAGENT,"Slurp") OR instr(varUAGENT,"appie") OR instr(varUAGENT,"FAST") OR instr(varUAGENT,"fast") OR instr(varUAGENT,"WebBug") OR instr(varUAGENT,"Spade") OR instr(varUAGENT,"ZyBorg") OR instr(varUAGENT,"rabaz") Then
' Determine the google bot
If varADDR = 21 AND instr(varUAGENT,"google") Then
varIAM = "Googlebot"
End If
If varADDR = 64 AND instr(varUAGENT,"google") Then
varIAM = "Freshbot"
End If
' String the info message together
If varREFERER <> "" Then
strMessage = "Refer:" & varREFERER & VbCrlf
End If
If varUAGENT <> "" Then
strMessage = strMessage & "Agent:" & varUAGENT & VbCrlf
End If
If varIAM <> "" Then
strMessage = strMessage & " I am:" & varIAM & VbCrlf
End If

If varADDR <> "" Then

' SEnd that email
Set JMail = Server.CreateObject("JMail.Message")
JMail.Logging = True
JMail.Charset = "window-874"
JMail.ContentTransferEncoding = "Quoted-Printable"
JMail.ISOEncodeHeaders = False
JMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
JMail.AddNativeHeader "MTA-Settings", "route"
JMail.Priority = 1

JMail.From = "[email protected]"
JMail.FromName = "[email protected]"
'JMail.AddRecipient "[email protected]"
JMail.AddRecipient "[email protected]"
JMail.Subject = "A Spider Is Crawling!!! A voice from God ha ha ha " & Now() & " " &Second(Now())
JMail.HTMLBody = strMessage

If Not JMail.Send( "127.0.0.1:25") Then
Set JMail = Nothing
Else
Set JMail = Nothing
End If
End If
End If
%>

Code ข้างต้นทุกครั้งที่ Bot มาเยี่ยมผมให้มันส่งเมลย์มาแจ้ง ...

แต่คุณสามารถแก้ไข โดยตัดส่วน ส่งเมลย์ออก แล้วนำไป Add ลง database ก็ได้ ครับ

Tag : - - - -

Date : 2010-02-27 19:48:05

By : inanosms

View : 2478

Reply : 4

No. 1

Sir Sn@ke

โพสกระทู้ ( 18 )
บทความ ( 0 )

Date : 2010-02-28 16:24:20

By : sirsnake_knight

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

ตอนนี้มี script บางตัวสามารถปลอมเป็น bot ได้ครับ ถ้าจะให้ดีและชัวจะต้องเชคจาก hostname

Date : 2010-02-28 16:27:38

By : webmaster

No. 3

Orion

โพสกระทู้ ( 164 )
บทความ ( 4 )

Quote:
ตอนนี้มี script บางตัวสามารถปลอมเป็น bot ได้ครับ ถ้าจะให้ดีและชัวจะต้องเชคจาก hostname

แล้วอย่างนี้ HostName ของ Bot มันเปลี่ยนบ่อยไหมคับ

ถ้าบ่อย จะมีวิธีการเช็คยังไง หรือว่าใช้ Parameter อะไรมาเป็นตัวเช็คครับ

ขอบคุณครับ

Date : 2010-03-01 18:06:44

By : inanosms

No. 4

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

hostname จะไม่เปลี่ยนครับ

Date : 2011-09-16 17:47:52

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : Code เช็ค บอท ว่ามาเก็บข้อมูลเวปของเราหรือเปล่า แล้วเป็น บอท ของ Search Engine อะไร

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก