asp如何实现防止站外提交内容

<% 
Function IsSelfRefer() 
  Dim formUrl,relUrl 
  formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))  
  If formUrl="" Then 
    IsSelfRefer = False 
  Else 
    relUrl="http://" & Trim(Request.ServerVariables("SERVER_NAME")) 
    If (formUrl<>relUrl) Then 
      IsSelfRefer = False 
    Else 
      IsSelfRefer = True 
    End If 
  End If 
End Function 
%>