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

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

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

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>