Asp检查是否外部输入函数

来源:互联网 发布:淘宝表情 哭 编辑:程序博客网 时间:2024/05/29 10:10
'检查是否外部输入
Function IsSelfRefer()
 Dim sHttp_Referer, sServer_Name
 sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
 sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
 If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
  IsSelfRefer = True
 Else
  IsSelfRefer = False
 End If
End Function 
原创粉丝点击