检查被提交的数据来源

  '******************************
 '名称: ChkPost
 '参数:NULL
 '返回值：True/False
 '作用:检查被提交的数据来源
 '******************************
 Public 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=True
 End Function