防止外部数据提交！

最新推荐文章于 2018-10-11 19:40:40 发布

原创最新推荐文章于 2018-10-11 19:40:40 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#server #function

ASP 专栏收录该内容

15 篇文章

订阅专栏

博客展示了CheckPostUrl函数，用于防止外部数据提交。该函数通过对比HTTP_REFERER和SERVER_NAME判断数据提交合法性，若不合法则输出提示并终止响应，体现了对数据提交安全的保障。

'--------------------------------------------------------------------------------------'
'     函数名:  CheckPostUrl
'         描述:  防止外部数据提交
'--------------------------------------------------------------------------------------'
Function CheckPostUrl()
      Dim Server_v1,Server_v2
      CheckPostUrl = 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
          CheckPostUrl = False
      Else
          CheckPostUrl = True
      End If
End function

'方法调用
If CheckPostUrl = False Then
     Response.Write "<center>您提交的数据不合法，请不要从外部提交数据。<center>"
     Response.End
End If