一聚教程网:一个值得你收藏的教程网站

热门教程

asp 简单防止外部提交

时间:2022-06-30 09:13:47 编辑:袖梨 来源:一聚教程网

'****************************************************
  '函数名: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()'
 

热门栏目