函数:校验是否在外部提交表单
<%
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
%>
本文主题,表单
