1、Request.ServerVariables("SERVER_NAME")
test.asp内容:
<%=Request.ServerVariables("SERVER_NAME")%>
访问:http://crm.021fb.com/inc/test.asp
输出:crm.021fb.com
结论:得到网站的域名
应用:防止外部表单提交数据
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
‘----------------------------------------------------------------------------------------/
本文介绍了一种使用ASP中的Request.ServerVariables方法获取当前服务器域名的方法,并通过比较HTTP_REFERER来判断请求是否来自同一站点,以此来防止外部表单提交。

363

被折叠的 条评论
为什么被折叠?



