inc_protect.asp

来自「可在线管理ACCESS数据库,可新建,修改,建表等如同本地操作数据库」· ASP 代码 · 共 12 行

<%
if	Session(DBA_cfgSessionPwdName) <> DBA_cfgAdminPassword and _
	InStr(1, Request.ServerVariables("SCRIPT_NAME"), "default.asp", vbTextCompare) <= 0 and _
	DBA_IsSecurityEnabled() _
	then Response.Redirect "default.asp"
	
Function DBA_IsSecurityEnabled
	On Error Resume Next
	If not DBA_cfgNoSecurity = True Then DBA_IsSecurityEnabled = True Else DBA_IsSecurityEnabled = False
	On Error Goto 0
End Function
%>