主题：两个函数来判断是否是外部提交

<%
Rem 检测外部提交
Function ChkPost()
    Dim server_v1,server_v2
　　chkpost=False
　　server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
　　server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
　　If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
　　chkpost=False
　　Else
　　chkpost=True
　　End If
End function 
Rem 函数,很简单的检测，就是检测提交是否为POST方式
Function PostCheck()
    PostCheck=False
　　If Lcase(Request.ServerVariables("Request_Method"))="post" Then PostCheck=True
End Function
%>

这个可以防止软件修改提交的数据吗？