asp实现防止站外提交内容的两个方法
更新时间：2007年01月09日 00:00:00 作者：
方式一：
方式二：
复制代码 代码如下:
<%
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 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
%>
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
%>
相关文章
aspjpeg是一款非常强大的图片处理组件，纯英文版本，不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印2006-06-06
javascript asp教程第八课--request对象
javascript asp教程第八课--request对象...2007-03-03
asp中Request.ServerVariables的参数集合
这篇文章主要介绍了asp中Request.ServerVariables的参数集合,需要的朋友可以参考下2020-02-02
如何回到先前的页面的方法多中语言...2007-01-01
ASP中常用的函数和详细说明...2007-03-03
UBB编辑器...2006-06-06
安全脚本程序的编写 V1.0...2006-11-11
ASP应用之模板采用...2007-01-01
很多的朋友一而再，再而三的在Server.Mappath上卡壳，cnbruce也是一遍两遍地重复，还是不能全部解决，所以通过下面的举例，希望更多的朋友能恍然大悟，透彻明白过来2007-01-01
ASP、vbscript编码模板...2006-06-06
最新评论