notallowviewpage.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 13 行

<%
FunCtion NotAllowViewPage(PageName)
	If Lcase(Request.ServerVariables("SCRIPT_NAME")) = Lcase(PageName) Then
		Response.Write("<script>"&Chr(13))
		Response.Write("for(i=0;i<10000;i++)"&Chr(13))
		Response.Write("{"&Chr(13))
		Response.Write("alert('本页面不允许直接浏览！');"&Chr(13))
		Response.Write("}"&Chr(13))
		Response.Write("</script>")
		Response.End()
	End If
End FunCtion
%>