checkserver.asp

asp的新闻网站

<%
'服务器检测

dim serverRefer
dim serverName '机器名称
dim serverIp 'IP地址
dim serverWebName '域名
dim checkFlag '是否进行检测

serverWebName="webserver"
checkFlag="YES"

checkServer=0
serverRefer=Request.ServerVariables("HTTP_REFERER")
if serverRefer=""  then
	checkServer=0
else
	if len(serverRefer)<=7 then
		checkServer=0
	else
		serverRefer=lcase(mid(serverRefer,8,len(serverRefer)-7))
		if instr(1,serverRefer,serverName)=1 or instr(1,serverRefer,serverIp)=1 or instr(1,serverRefer,serverWebName)=1 then
			checkServer=1 '检测通过
		else
			checkServer=0
		end if
	end if
end if

if (checkServer=0)and(checkFlag="YES") then
	response.write "<center>本页不允许外部地址访问！<a href=javascript:history.go(-1)>按此返回!</a></center>"
	response.end
end if
%>