不允许直接输入地址访问页面代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】不允许直接输入地址访问页面

作者:昊源 / 发布于2014/11/28/ 926


	<%
	dim ComeUrl,cUrl

	ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
	if ComeUrl="" then
	response.write "<p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问该页面。</font>"
	response.end
	else
	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
	if mid(ComeUrl,len(cUrl)+1,1)=":" then
	 cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
	end if
	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
	if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
	 response.write "<p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问该页面。</font>"
	 response.end
	end if
	end if

	
	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　直接访问　

同语言下

可能有用的

昊源贡献的其它代码(6)