现在太多的自动注册软件，太多的表单自动留言软件了，过滤这部分数据的时候除了验证码，我们还可以判断数据是否从本站提交，下面编程之家跟大家分享1个函数。
ASP检测是否本站提交数据函数
' ============================================
' 检测上页是否从本站提交
' 返回: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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
