现在太多的自动注册软件,太多的表单自动留言软件了,过滤这部分数据的时候除了验证码,我们还可以判断数据是否从本站提交,下面青岛星网跟大家分享1个函数。
' ============================================ ' 检测上页是否从本站提交 ' 返回:True,False '技术支持:www.qdxw.net ' ============================================ Function IsSelfRefer() Dim sHttp_Referer, sServer_Name sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then IsSelfRefer = True Else IsSelfRefer = False End If End Function