list-script-option.asp

AspMaker调用的自定义包

<!--##session list-option-caption##-->
<!--##=sExpStart##-->
<!--##
If bUserLevel Then
	sViewSecChkStart = "<% If (ewCurSec And ewAllowView) = ewAllowView Then %>"
	sViewSecChkEnd = "<% End If %>"
	sEditSecChkStart = "<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>"
	sEditSecChkEnd = "<% End If %>"
	sAddSecChkStart = "<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>"
	sAddSecChkEnd = "<% End If %>"
	sDeleteSecChkStart = "<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>"
	sDeleteSecChkEnd = "<% End If %>"
Else
	sViewSecChkStart = ""
	sViewSecChkEnd = ""
	sEditSecChkStart = ""
	sEditSecChkEnd = ""
	sAddSecChkStart = ""
	sAddSecChkEnd = ""
	sDeleteSecChkStart = ""
	sDeleteSecChkEnd = ""
End If

If TABLE.TblView Then
##-->
<!--##=sViewSecChkStart##-->
<td>&nbsp;</td>
<!--##=sViewSecChkEnd##-->
<!--##
End If

If TABLE.TblInlineEdit Then
##-->
<!--##=sEditSecChkStart##-->
<td>&nbsp;</td>
<!--##=sEditSecChkEnd##-->
<!--##
End If

If TABLE.TblEdit Then
##-->
<!--##=sEditSecChkStart##-->
<td>&nbsp;</td>
<!--##=sEditSecChkEnd##-->
<!--##
End If

If Not (bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl) Then ' No copy for USER LEVEL TABLE
If TABLE.TblCopy And TABLE.TblAdd Then
##-->
<!--##=sAddSecChkStart##-->
<td>&nbsp;</td>
<!--##=sAddSecChkEnd##-->
<!--##
End If
End If

If TABLE.TblDelete Then
##-->
<!--##=sDeleteSecChkStart##-->
<!--## If bMultiDelete Then ##-->
<td><input type="checkbox" class="aspmaker" onClick="EW_selectKey(this);"></td>
<!--## Else ##-->
<td>&nbsp;</td>
<!--## End If ##-->
<!--##=sDeleteSecChkEnd##-->
<!--##
End If

For i = 1 to DB.Tables.Count
	If DB.Tables(i).TblMasterTbl = TABLE.TblName And DB.Tables(i).TblMasterFld <> "" And DB.Tables(i).TblDetailFld <> "" Then
##-->
<td>&nbsp;</td>
<!--##
	End If
Next

If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then
##-->
<td>&nbsp;</td>
<!--##
End If
##-->
<!--##=sExpEnd##-->
<!--##/session##-->


<!--##session list-option-field##-->
<!--##
'If bExportHtml Or bExportWord Or bExportExcel Then
'	sExpStart = "<% If sExport = """" Then %>"
'	sExpEnd = "<% End If %>"
'Else
'	sExpStart = ""
'	sExpEnd = ""
'End If

If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then
	Set FIELD = TABLE.Fields(DB.UserLevelIdFld)
	sUserLvlIDFldVar = FIELD.FldVar
	sUserLvlChkStart = "<% If " & sUserLvlIDFldVar & " <= 0 Then %>-<%Else%>"
	sUserLvlChkEnd = "<% End If %>"
Else
	sUserLvlChkStart = ""
	sUserLvlChkEnd = ""
End If

If bUserLevel Then
	sViewSecChkStart = "<% If (ewCurSec And ewAllowView) = ewAllowView Then %>"
	sViewSecChkEnd = "<% End If %>"
	sEditSecChkStart = "<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>"
	sEditSecChkEnd = "<% End If %>"
	sAddSecChkStart = "<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>"
	sAddSecChkEnd = "<% End If %>"
	sDeleteSecChkStart = "<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>"
	sDeleteSecChkEnd = "<% End If %>"
Else
	sViewSecChkStart = ""
	sViewSecChkEnd = ""
	sEditSecChkStart = ""
	sEditSecChkEnd = ""
	sAddSecChkStart = ""
	sAddSecChkEnd = ""
	sDeleteSecChkStart = ""
	sDeleteSecChkEnd = ""
End If

##-->
<!--##=sExpStart##-->
<!--##
If TABLE.TblView Then
##-->
<!--##=sViewSecChkStart##-->
<td><span class="aspmaker"><!--##=sUserLvlChkStart##--><a href="<!--##=view_url##-->"><!--##@Browse##--></a><!--##=sUserLvlChkEnd##--></span></td>
<!--##=sViewSecChkEnd##-->
<!--##
End If

If TABLE.TblInlineEdit Then
##-->
<!--##=sEditSecChkStart##-->
<td><span class="aspmaker"><!--##=sUserLvlChkStart##-->
<% If <!--##=InlineEditKeyCheck##--> Then %>
<a href="" onClick="<!--##=sListFormSubmit##-->return false;"><!--##@Update##--></a>&nbsp;<a href="<!--##=fn_list##-->?a=cancel"><!--##@Cancel##--></a>
<input type="hidden" name="a_list" value="update">
<!--## If ewCond_HasFileField() Then ##-->
<input type="hidden" name="EW_Max_File_Size" value="<!--##=DB.MaxUploadSize##-->">
<!--## End If ##-->
<% Else %>
<a href="<!--##=inlineedit_url##-->"><!--##@InlineEdit##--></a>
<% End If %>
<!--##=sUserLvlChkEnd##--></span></td>
<!--##=sEditSecChkEnd##-->
<!--##
End If

If TABLE.TblEdit Then
##-->
<!--##=sEditSecChkStart##-->
<td><!--##=sUserLvlChkStart##--><span class="aspmaker"><a href="<!--##=edit_url##-->"><!--##@Edit##--></a><!--##=sUserLvlChkEnd##--></span></td>
<!--##=sEditSecChkEnd##-->
<!--##
End If

If Not (bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl) Then ' No copy for USER LEVEL TABLE
If TABLE.TblCopy And TABLE.TblAdd Then
##-->
<!--##=sAddSecChkStart##-->
<td><span class="aspmaker"><a href="<!--##=copy_url##-->"><!--##@Copy##--></a></span></td>
<!--##=sAddSecChkEnd##-->
<!--##
End If
End If

If TABLE.TblDelete Then
	If bInlineDelete Then
		sDeleteConfirm = " onclick=""" & sMouseClickDeleteEvent & "return ew_confirmdelete('<%=sDeleteConfirmMsg%>');"""
	Else
		sDeleteConfirm = ""
	End If
##-->
<!--##=sDeleteSecChkStart##-->
	<!--##
	If Not bMultiDelete Then
	##-->
<td><!--##=sUserLvlChkStart##--><span class="aspmaker"><a<!--##=sDeleteConfirm##--> href="<!--##=delete_url##-->"><!--##@DeleteLink##--></a><!--##=sUserLvlChkEnd##--></span></td>
	<!--##
	Else
		If sMouseClickMultiDeleteEvent <> "" Then
			sMultiDeleteClick = " onclick='" & sMouseClickMultiDeleteEvent & "'"
		Else
			sMultiDeleteClick = ""
		End If
	##-->
<td><!--##=sUserLvlChkStart##--><span class="aspmaker"><input type="checkbox" name="key_d" value="<!--##=multidelete_key##-->" class="aspmaker"<!--##=sMultiDeleteClick##-->><!--##@DeleteLink##--></span><!--##=sUserLvlChkEnd##--></td>
	<!--##
	End If
	##-->
<!--##=sDeleteSecChkEnd##-->
<!--##
End If

For i = 1 to DB.Tables.Count
	If DB.Tables.Seq(i).TblMasterTbl = TABLE.TblName And DB.Tables.Seq(i).TblMasterFld <> "" And DB.Tables.Seq(i).TblDetailFld <> "" Then
		'Save Current Table
		Set MASTERTABLE = TABLE
		Set TABLE = DB.Tables.Seq(i)
##-->
<td><span class="aspmaker"><a href="<!--##=detail_url##-->"><!--##=TABLE.TblCaption##--> <!--##@Detail##--></a></span></td>
<!--##
		' Restore Current Table
		Set TABLE = MASTERTABLE
	End If
Next

If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then
##-->
<td><span class="aspmaker"><a href="<!--##=userpriv_url##-->"><!--##@Permission##--></a></span></td>
<!--##
End If
##-->
<!--##=sExpEnd##-->
<!--##/session##-->


<!--##session list-option-multi##-->
<!--##
'If bExportHtml Or bExportWord Or bExportExcel Then
'	sExpStart = "<% If sExport = """" Then %>"
'	sExpEnd = "<% End If %>"
'Else
'	sExpStart = ""
'	sExpEnd = ""
'End If

If bUserLevel Then
	sViewSecChkStart = "<% If (ewCurSec And ewAllowView) = ewAllowView Then %>"
	sViewSecChkEnd = "<% End If %>"
	sEditSecChkStart = "<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>"
	sEditSecChkEnd = "<% End If %>"
	sAddSecChkStart = "<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>"
	sAddSecChkEnd = "<% End If %>"
	sDeleteSecChkStart = "<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>"
	sDeleteSecChkEnd = "<% End If %>"
Else
	sViewSecChkStart = ""
	sViewSecChkEnd = ""
	sEditSecChkStart = ""
	sEditSecChkEnd = ""
	sAddSecChkStart = ""
	sAddSecChkEnd = ""
	sDeleteSecChkStart = ""
	sDeleteSecChkEnd = ""
End If

##-->
<!--##=sExpStart##-->
<span class="aspmaker">
<!--##
If TABLE.TblView Then
##-->
<!--##=sViewSecChkStart##-->
	<a href="<!--##=view_url##-->"><!--##@Browse##--></a>&nbsp;
<!--##=sViewSecChkEnd##-->
<!--##
End If

If TABLE.TblInlineEdit Then
##-->
<!--##=sEditSecChkStart##-->
<% If <!--##=InlineEditKeyCheck##--> Then %>
<a href="" onClick="<!--##=sListFormSubmit##-->return false;"><!--##@Update##--></a>&nbsp;<a href="<!--##=fn_list##-->?a=cancel"><!--##@Cancel##--></a>
<input type="hidden" name="a_list" value="update">
<!--## If ewCond_HasFileField() Then ##-->
<input type="hidden" name="EW_Max_File_Size" value="<!--##=DB.MaxUploadSize##-->">
<!--## End If ##-->
<% Else %>
<a href="<!--##=inlineedit_url##-->"><!--##@InlineEdit##--></a>
<% End If %>
<!--##=sEditSecChkEnd##-->
<!--##
End If

If TABLE.TblEdit Then
##-->
<!--##=sEditSecChkStart##-->
	<a href="<!--##=edit_url##-->"><!--##@Edit##--></a>&nbsp;
<!--##=sEditSecChkEnd##-->
<!--##
End If

If Not (bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl) Then ' No copy for USER LEVEL TABLE
If TABLE.TblCopy And TABLE.TblAdd Then
##-->
<!--##=sAddSecChkStart##-->
	<a href="<!--##=copy_url##-->"><!--##@Copy##--></a>&nbsp;
<!--##=sAddSecChkEnd##-->
<!--##
End If
End If

If TABLE.TblDelete Then
	If bInlineDelete Then
		sDeleteConfirm = " onclick=""return ew_confirm('<%=sDeleteConfirmMsg%>');"""
	Else
		sDeleteConfirm = ""
	End If
##-->
<!--##=sDeleteSecChkStart##-->
	<!--##
	If Not bMultiDelete Then
	##-->
	<a<!--##=sDeleteConfirm##--> href="<!--##=delete_url##-->"><!--##@DeleteLink##--></a>&nbsp;
	<!--##
	Else
	##-->
	<input type="checkbox" name="key_d" value="<!--##=multidelete_key##-->" class="aspmaker"><!--##@DeleteLink##-->
	<!--##
	End If
	##-->
<!--##=sDeleteSecChkEnd##-->
<!--##
End If

For i = 1 to DB.Tables.Count
	If DB.Tables.Seq(i).TblMasterTbl = TABLE.TblName And DB.Tables.Seq(i).TblMasterFld <> "" And DB.Tables.Seq(i).TblDetailFld <> "" Then
		'Save Current Table
		Set MASTERTABLE = TABLE
		Set TABLE = DB.Tables.Seq(i)
##-->
	<a href="<!--##=detail_url##-->"><!--##=TABLE.TblCaption##--> <!--##@Detail##--></a>&nbsp;
<!--##
		' Restore Current Table
		Set TABLE = MASTERTABLE
	End If
Next

If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then
##-->
	<a href="<!--##=userpriv_url##-->"><!--##@Permission##--></a>
<!--##
End If
##-->
</span>
<!--##=sExpEnd##-->
<!--##/session##-->

<!--##session list-option-export-start##-->
<!--##
If bExportWord Or bExportExcel Then
	sExpSpecialStart = "<% If sExport <> ""word"" And sExport <> ""excel"" Then %>"
	sExpSpecialEnd = "<% End If %>"
Else
	sExpSpecialStart = ""
	sExpSpecialEnd = ""
End If
##-->
<!--##=sExpSpecialStart##-->
<!--##/session##-->

<!--##session list-option-export-end##-->
<!--##=sExpSpecialEnd##-->
<!--##/session##-->