default.asp

AspMaker调用的自定义包

<!--##session default_script##-->
<%
<!--##
' Get Default Table List Page
sListURL = ""
sDefaultURL = ""
For i = 1 to DB.Tables.Count
	Set TABLE = DB.Tables.Seq(i)
	If TABLE.TblGen Then
		' Check if Default Table
		If TABLE.TblDefault And sDefaultURL = "" Then
			Set DEFTABLE = TABLE
			If TABLE.TblType = "REPORT" Then
				sDefaultURL = ewFileName("report") ' Get Report Page
			Else
				sDefaultURL = ewFileName("list") ' Get List Page
			End If
			Exit For
		End If
		' Check if First Table
		If sListURL = "" Then
			Set DEFTABLE = TABLE
			If TABLE.TblType = "REPORT" Then
				sListURL = ewFileName("report") ' Get Report Page
			Else
				sListURL = ewFileName("list") ' Get List Page
			End If
		End If
	End If
Next

If sDefaultUrl = "" Then sDefaultUrl = sListUrl

' User Level Security
bUserTable = (PROJ.SecType = "Both" Or PROJ.SecType = "Use Table")
bStaticUserLevel = bUserTable And (Not DB.UseDynamicUserLevel And DB.SecUserLevelFld <> "")
bDynamicUserLevel = bUserTable And (DB.UseDynamicUserLevel And DB.UserLevelTbl <> "" And DB.SecUserLevelFld <> "")
bUserLevel = bStaticUserLevel Or bDynamicUserLevel

If Not bUserLevel Then
##-->
Response.Redirect "<!--##=sDefaultUrl##-->"
<!--##
Else
##-->
Call LoadUserLevel
<!--##
	If IsObject(DEFTABLE) Then
		Set TABLE = DEFTABLE
		sMenuChkStart = "If AllowList(""" & TABLE.TblName & """) Then"
		sMenuChkEnd = "End If"
##-->
<!--##=sMenuChkStart##-->
	Response.Redirect "<!--##=sDefaultUrl##-->"
<!--##=sMenuChkEnd##-->
<!--##
	End If

	For i = 1 to DB.Tables.Count
		Set TABLE = DB.Tables.Seq(i)
		If TABLE.TblGen And (TABLE.TblName <> DEFTABLE.TblName) Then
			If TABLE.TblType = "REPORT" Then
				sRedirectFn = ewFileName("report") ' Get Report Page
			Else
				sRedirectFn = ewFileName("list") ' Get List Page
			End If
			sMenuChkStart = "If AllowList(""" & TABLE.TblName & """) Then"
			sMenuChkEnd = "End If"
##-->	
<!--##=sMenuChkStart##-->
	Response.Redirect "<!--##=sRedirectFn##-->"
<!--##=sMenuChkEnd##-->
<!--##
		End If
	Next
##-->
If IsLoggedIn Then
	Response.Write "<!--##@NoPermission##-->"
%>
<br>
<a href="<!--##=fn_logout##-->"><!--##@BackToLogin##--></a>
<%
Else
	Response.Redirect "<!--##=fn_login##-->"
End If
<!--##
End If
##-->
%>
<!--##/session##-->