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

<% 
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 
%>