asp检测是否外部提交数据过程_

’********************
’检测是否外部提交数据过程
’********************
Public Sub Chk_Post()
  Dim Server_V1,Server_V2
  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
   SysMsg=Language("Public",8)
   Call ShowMsg("Back","")
  End If
End Sub

文章作者：未知