方式一:
复制代码 代码如下:<%
FunctionIsSelfRefer()
DimformUrl,relUrl
formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))
IfformUrl=""Then
IsSelfRefer=False
Else
relUrl="http://"&Trim(Request.ServerVariables("SERVER_NAME"))
If(formUrl<>relUrl)Then
IsSelfRefer=False
Else
IsSelfRefer=True
EndIf
EndIf
EndFunction
%>
方式二:
复制代码 代码如下:<%
FunctionIsSelfRefer()
DimsHttp_Referer,sServer_Name
sHttp_Referer=CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name=CStr(Request.ServerVariables("SERVER_NAME"))
IfMid(sHttp_Referer,8,Len(sServer_Name))=sServer_NameThen
IsSelfRefer=True
Else
IsSelfRefer=False
EndIf
EndFunction
%>
【asp实现防止站外提交内容的两个方法】相关文章:
★ 禁止站外提交表单
★ asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
★ 通过Response.Flush()实现下载失败的解决方法