ASP函数:校验是否在外部提交表单

<% Rem 判断发言是否来自外部 Public Function ChkPost() Dim server_v1, server_v2 Chkpost = False server_v1 = CStr(Request.ServerVariables("HTTP_REFERER")) server_v2 = CStr(Request.ServerVariables("SERVER_NAME")) 'sServer_v2 = CStr(Request.ServerVariables("HTTP_HOST")) 红色可区分http[s]协议If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then Chkpost = True End Function %>