📄 template.asp
字号:
<!--##session header##-->
<!--##
sProjName = PROJ.ProjName
If ewCond_Export() Then
sTmplExpStart = "<% If sExport = """" Then %>"
sTmplExpEnd = "<% End If %>"
sTmplHtmlExpStart = "<% If sExport = """" Or sExport = ""html"" Then %>"
Else
sTmplExpStart = ""
sTmplExpEnd = ""
sTmpHtmlExpStart = ""
End If
##-->
<html>
<head>
<title><!--##=PROJ.BodyTitle##--></title>
<!--##=ewCharSet##-->
<!--##=ewCSSFile##-->
</head>
<body>
<!--##=sTmplExpStart##-->
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" style="padding-left:30px; padding-right:30px;"><a id="proTitle"><!--##=PROJ.BodyTitle##--></span></td>
<td>
<div align="center" class="topMenu">
<!--##
For i = 1 to DB.Tables.Count
Set TABLE = DB.Tables.Seq(i)
If TABLE.TblType = "REPORT" Then
sFn = fn_report
Else
sFn = fn_list
End If
If TABLE.TblList And TABLE.TblGen Then
' 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
bDynamicUserTables = bDynamicUserLevel And (TABLE.TblName = DB.UserLevelTbl Or TABLE.TblName = DB.UserLevelPrivTbl)
If bDynamicUserTables Then
sTableSecChkStart = "<% If (ewCurSec And ewAllowAdmin) = ewAllowAdmin Then %>"
sTableSecChkEnd = "<% End If %>"
ElseIf bUserLevel Then
sTableSecChkStart = "<% If AllowList(""" & TABLE.TblName & """) Then %>"
sTableSecChkEnd = "<% End If %>"
ElseIf PROJ.SecType <> "None" And PROJ.SecType <> "" Then
sTableSecChkStart = "<% If IsLoggedIn Then %>"'
sTableSecChkEnd = "<% End If %>"
Else
sTableSecChkStart = ""
sTableSecChkEnd = ""
End If
##-->
<!--##=sTableSecChkStart##-->
<a href="<!--##=sFn##-->?cmd=resetall"><!--##=TABLE.TblCaption##--></a>
<!--##=sTableSecChkEnd##-->
<!--##
End If
Next
##-->
<a href="<!--##=fn_changepwd##-->"><!--##@ChangePwd##--></a>
<% If IsLoggedIn Then %>
<a href="<!--##=fn_logout##-->"><!--##@Logout##--></a>
<% ElseIf Right(Request.ServerVariables("URL"), Len("<!--##=fn_login##-->")) <> "<!--##=fn_login##-->" Then %>
<a href="<!--##=fn_login##-->"><!--##@Login##--></a>
<% End If %>
</div>
</td>
</tr>
<tr>
<td width="100%" height="100%" valign="top" colspan="2">
<!--##=sTmplExpEnd##-->
<!--##/session##-->
<!--##session footer##-->
<!--##
'template.asp (footer)
If ewCond_Export() Then
sTmplExpStart = "<% If sExport = """" Then %>"
sTmplExpEnd = "<% End If %>"
Else
sTmplExpStart = ""
sTmplExpEnd = ""
End If
##-->
<!--##=sTmplExpStart##-->
</td>
</tr>
</table>
<!--##=sTmplExpEnd##-->
</body>
</html>
<!--##/session##-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -