asp 简单防止外部提交

'****************************************************
  '函数名：ChkPost
  '作  用：禁止站外提交表单
  '返回值：true站内提交，flase站外提交
  '****************************************************
  Public Function ChkPost()
   Dim url1,url2
   chkpost=true
   url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
   url2=Cstr(Request.ServerVariables("SERVER_NAME"))
   If Mid(url1,8,Len(url2))<>url2 and instr(url1,"dl.loupan.com") = 0 Then
  chkpost=false
  exit function
   End If
  End function

  '****************************************************
  '函数名：GetUrl
  '作  用：获取url包括参数
  '返回值：获取url包括参数
  '****************************************************
  Public Function GetUrl()  
   Dim strTemp    
   strTemp=Request.ServerVariables("Script_Name")     
   If  Trim(Request.QueryString)<> "" Then
    strTemp=strTemp&"?"
    For Each M_item In Request.QueryString
  strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
    next
   end if
   GetUrl=strTemp  
  End Function
 
 '防止外部提交使用方法
 call ChkPost()'