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

热门教程

禁止站外提交表单

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

  '函数名:ChkPost
  '作  用:禁止站外提交表单
  '返回值:true站内提交,flase站外提交
    '参数:链接串
  function ChkPost()
  dim server_v1,server_v2
  chkpost=false
  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
   chkpost=False
  else
   chkpost=True
  end If
 end Function

'使用方法
 If Not ChkPost() Then
  showErrorImg = true
 End If
 

热门栏目