asp防止外部提交

答案：
  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()'

上一个：HTTP404对SEO的影响
下一个：什么是404错误？