现在太多的自动注册软件，太多的表单自动留言软件了，过滤这部分数据的时候除了验证码，我们还可以判断数据是否从本站提交，下面青岛星网跟大家分享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
在线QQ：
