asp实现防止站外提交内容的两个方法

方式一：复制代码代码如下:<% 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 %>

　　推荐阅读

　　在不刷新页面的情况下调用远程asp脚本

1.请在sql server 中建一数据库 name:house 在house中运行下列脚本 if exists (select * from sysobjects where id = object_id(N´[dbo].[City]´) and OBJECTPROPERTY(id, N´IsUserTable´>>>详细阅读

本文标题：asp实现防止站外提交内容的两个方法

地址：http://www.17bianji.com/kaifa2/ASP/32827.html

1/2 1