asp实现防止站外提交内容的两个方法
发布时间:2021-09-24 00:00| 有 位朋友查看
简介:方式一: 复制代码 代码如下: % FunctionIsSelfRefer() DimformUrl,relUrl formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER"))) IfformUrl=""Then IsSelfRefer=False Else relUrl="http://"Trim(Request.ServerVariables("SERVER_NAME")) If(form……
方式一:
<%
Function IsSelfRefer()
Dim formUrl,relUrl
formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))
If formUrl="" Then
IsSelfRefer = False
Else
relUrl="http://" & Trim(Request.ServerVariables("SERVER_NAME"))
If (formUrl<>relUrl) Then
IsSelfRefer = False
Else
IsSelfRefer = True
End If
End If
End Function
%>
方式二:
<%
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
%>
原文链接:https://m.jb51.net/article/6056.htm
本站部分内容转载于网络,版权归原作者所有,转载之目的在于传播更多优秀技术内容,如有侵权请联系QQ/微信:153890879删除,谢谢!