鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > cms安装教程 > 科汛cms > >

asp判读是否外部提交简洁函数

来源:互联网 作者:佚名 时间:2015-01-06 16:00
防机器人注册的一种比较好的方法 Function CheckOuterUrl() On Error Resume Next Dim server_v1, server_v2 server_v1 = Replace(LCase(Trim(Request.ServerVar

防机器人注册的一种比较好的方法

Function CheckOuterUrl() On Error Resume Next Dim server_v1, server_v2 server_v1 = Replace(LCase(Trim(Request.ServerVariables("HTTP_REFERER"))), "http://", "") server_v2 = LCase(Trim(Request.ServerVariables("SERVER_NAME"))) CheckOuterUrl = True If Mid(server_v1,8,len(server_v2))=server_v2 Then CheckOuterUrl=False End Function ,
网友评论
<