list-script.asp

AspMaker调用的自定义包

<!--##=sExpEnd##-->
<!--## End If ##-->
<div></p>

<!--## If bBasicSearch Or bExtendedBasicSearch Or bAdvancedSearch Then ##-->
<!--##=sExpStart##-->

<form id="<!--##=sFormNameBasicSearch##-->" name="<!--##=sFormNameBasicSearch##-->" action="<!--##=fn_list##-->" <!--## If bExtendedBasicSearch Then ##-->onSubmit="return EW_checkMyForm2(this);"<!--## End If ##-->>

	<!--## If bExtendedBasicSearch Then ##-->
<table class="ewBasicSearch">
	<!--##
		For i = 1 to TABLE.Fields.Count
			Set FIELD = TABLE.Fields.Seq(i)
			If FIELD.FldExtendedBasicSearch Then
				sFldVar = FIELD.FldVar
				sFldCaption = FIELD.FldCaption
				sFldVar2 = "y_" & Mid(sFldVar, 3)
				sFldHtmlTag = FIELD.FldHtmlTag
				If sFldHtmlTag = "HIDDEN" Then FIELD.FldHtmlTag = "TEXT" ' overide HIDDEN
				sFldSrchOpr = FIELD.FldSrchOpr
				sFldSrchOpr2 = FIELD.FldSrchOpr2
	##-->
	<tr>
		<td><span class="aspmaker"><!--##=sFldCaption##--></span></td>
		<td><span class="ewSearchOpr">&nbsp;<!--##=FieldOperator##--></span></td>
		<td>			
			<table border="0" cellspacing="0" cellpadding="0"><tr>
				<td><span class="aspmaker"><!--##=FieldEdit_ExtendedBasicSearch##--></span></td>
				<!--## If sFldSrchOpr2 <> "" Then ##-->
				<td><span class="ewSearchOpr"><!--##=FieldSearchCondition##-->&nbsp;</span></td>
				<!--## End If ##-->
			<!--##
				If sFldSrchOpr = "BETWEEN" Or sFldSrchOpr2 <> "" Then
					FIELD.FldVar = sFldVar2
			##-->
				<td><span class="ewSearchOpr"><!--##=FieldOperator2##--></span></td>
				<td><span class="aspmaker"><!--##=FieldEdit_ExtendedBasicSearch##--></span></td>			
				<!--##
					FIELD.FldVar = sFldVar
				End If
			##-->
			</tr></table>			
		</td>
	</tr>
	<!--##
				If sFldHtmlTag = "HIDDEN" Then FIELD.FldHtmlTag = sFldHtmlTag ' restore HIDDEN
			End If
		Next
	##-->
</table>
	<!--## End If ##-->

<table class="ewBasicSearch">
	<tr>
		<td><span class="aspmaker">
	<!--## If bBasicSearch Then ##-->
			<input type="text" name="<%=ewTblBasicSrch%>" size="20" value="<%=psearch%>">
	<!--## End If ##-->
	<!--## If bBasicSearch Or bExtendedBasicSearch Then ##-->
			<input type="Submit" name="Submit" value="<!--##@QuickSearchBtn##-->&nbsp;(*)">&nbsp;<input type="Button" name="Reset" value="<!--##@Reset##-->" onclick="EW_clearForm(this.form);this.form.<%=ewTblBasicSrchType%>[0].checked = true;">&nbsp;
	<!--## End If ##-->
	<!--## If bBasicSearch Or bExtendedBasicSearch Or bAdvancedSearch Then ##-->
			<a href="<!--##=fn_list##-->?cmd=reset"><!--##@ShowAll##--></a>&nbsp;
	<!--## End If ##-->
	<!--## If bAdvancedSearch Then ##-->
			<a href="<!--##=fn_search##-->"><!--##@AdvancedSearch##--></a>
	<!--## End If ##-->
		</span></td>
	</tr>
	<!--## If bBasicSearch Then ##-->
	<tr>
	<td><span class="aspmaker"><input type="radio" name="<%=ewTblBasicSrchType%>" value="" <% If psearchtype = "" Then %>checked<% End If %>><!--##@ExactPhrase##-->&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="AND" <% If psearchtype = "AND" Then %>checked<% End If %>><!--##@AllWord##-->&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="OR" <% If psearchtype = "OR" Then %>checked<% End If %>><!--##@AnyWord##--></span></td>
	</tr>
	<!--## End If ##-->
</table>

</form>
<!--##=sExpEnd##-->
<!--## End If ##-->

<!--##
If bUserLevel Then
	sChkSecAddStart = "<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>"
	sChkSecAddEnd = "<% End If %>"
Else
	sChkSecAddStart = ""
	sChkSecAddEnd = ""
End If

If TABLE.TblAdd Then
##-->
<!--##=sChkSecAddStart##-->
<!--##=sExpStart##-->
<table class="ewListAdd">
	<tr>
		<td><span class="aspmaker"><a href="<!--##=fn_add##-->"><!--##@AddLink##--></a></span></td>
	</tr>
</table>
<p>
<!--##=sExpEnd##-->
<!--##=sChkSecAddEnd##-->
<!--##
End If
##-->

<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span<!--##=ewCSSMsg##-->><%= Session(ewSessionMessage) %></span></p>
<%
	Session(ewSessionMessage) = "" ' Clear message
End If
%>

<!--## If bTopPageLink Then ##-->
<!--##include list-script-pager.asp/asppagecount##-->
<!--## End If ##-->

<% If nTotalRecs > 0 Then %>

<!--## If TABLE.TblInlineEdit Then ##-->
<form name="<!--##=sFormName##-->" id="<!--##=sFormName##-->" action="<!--##=fn_list##-->" method="post"<!--##=sEncType##-->>
<!--## Else ##-->
<form method="post">
<!--## End If ##-->

<!--## If iRecPerRow < 1 Then ' Single Column ##-->

<table<!--##=sListTableId##--><!--##=ewCSSTableClass##-->>
	<!-- Table header -->
	<tr<!--##=ewCSSTableHeaderClass##-->>

	<!--## If bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-caption##-->
	<!--## End If ##-->

	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList Then
			sFldVar = FIELD.FldVar
	##-->
		<td valign="top"<!--##=FieldTD_Header##-->><span<!--##=ewCSSCaptionSpanClass##-->>
	<!--## If bExportHtml Or bExportWord Or bExportExcel Then ##-->
<% If sExport <> "" Then %>
<!--##=FIELD.FldCaption##-->
<% Else %>
	<!--## End If ##-->
	<!--##
	If iSortType > 0 And FIELD.FldType <> 205 Then ' Sort Enabled And Field not adLongVarBinary
	##--><a href="<!--##=fn_list##-->?order=<%= Server.URLEncode("<!--##=FIELD.FldName##-->") %>"<!--##=ewCSSCaptionSpanClass##--><!--##=sJsSort##-->><!--##
	End If
	##--><!--##=FIELD.FldCaption##--><!--##=SrchLegend##--><% If Session(ewSessionTblSort & "_<!--##=sFldVar##-->") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_<!--##=sFldVar##-->") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %><!--##
	If iSortType > 0 And FIELD.FldType <> 205 Then ' Sort Enabled And Field not adLongVarBinary
	##--></a><!--##
	End If
	##-->
	<!--## If bExportHtml Or bExportWord Or bExportExcel Then ##-->
<% End If %>
	<!--## End If ##-->
		</span></td>
	<!--##
		End If
	Next
	##-->

	<!--## If Not bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-caption##-->
	<!--## End If ##-->

	</tr>

<!--## Else ' RecPerRow >= 1 (Multi Column) ##-->

<table border="0" cellspacing="5" cellpadding="5">

<!--## End If ##-->

<%
' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1
' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
	rs.MoveFirst
	rs.Move nStartRec - 1
End If

<!--## If iRecPerRow < 1 Then ##-->
	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList Then
			If FIELD.FldAggregate = "COUNT" Or FIELD.FldAggregate = "AVERAGE" Then
				If PROJ.OptionExplicit Then
	##-->
Dim cnt_<!--##=FIELD.FldVar##-->
	<!--## End If ##-->
cnt_<!--##=FIELD.FldVar##--> = 0 ' Initialise count to zero for aggregation
	<!--##
			End If
			If FIELD.FldAggregate = "AVERAGE" Or FIELD.FldAggregate = "TOTAL" Then
				If PROJ.OptionExplicit Then
	##-->
Dim tot_<!--##=FIELD.FldVar##-->
	<!--## End If ##-->
tot_<!--##=FIELD.FldVar##--> = 0 ' Initialise total to zero for aggregation
	<!--##
			End If
		End If
	Next
	##-->
<!--## End If ##-->

<!--## If TABLE.TblKey <> "" And TABLE.TblInlineEdit Then ##-->
nEditRowCnt = 0
<!--## End If ##-->
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
	nRecCount = nRecCount + 1
	If CLng(nRecCount) >= CLng(nStartRec) Then
		nRecActual = nRecActual + 1

	' Set row color
	sItemRowClass = <!--##=DoubleQuote(ewCSSTableRowClass, 1)##-->
	sListTrJs = <!--##=DoubleQuote(sListTrJs, 1)##-->

<!--##If PROJ.TblAltColor Then##-->
	' Display alternate color for rows
	If nRecCount Mod 2 <> 1 Then
		sItemRowClass = <!--##=DoubleQuote(ewCSSTableAltRowClass, 1)##-->
	End If
<!--##End If##-->

<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldIsPrimaryKey Or FIELD.FldGenerate Then
##-->
	<!--##=FIELD.FldVar##--> = rs("<!--##=FIELD.FldName##-->")
<!--## If FIELD.FldType = 18 Or FIELD.FldType = 19 Then ##-->
	<!--##=FIELD.FldVar##--> = ewConv(<!--##=FIELD.FldVar##-->, <!--##=FIELD.FldType##-->) ' Convert adUnsignedSmallInt/adUnsignedInt
<!--## End If ##-->
<!--##
		If iRecPerRow < 1 Then
			If FIELD.FldList Then
				If FIELD.FldAggregate = "COUNT" Or FIELD.FldAggregate = "AVERAGE" Then
##-->
	cnt_<!--##=FIELD.FldVar##--> = cnt_<!--##=FIELD.FldVar##--> + 1 ' Increment no. of records
<!--##
				End If
				If FIELD.FldAggregate = "AVERAGE" Or FIELD.FldAggregate = "TOTAL" Then
					If InStr(1, DB.DBDBMSName, "ORA", vbTextCompare) > 0 And FIELD.FldType = adNumeric Then
						sAggValue = "CDbl(" & FIELD.FldVar & ")"
					Else
						sAggValue = FIELD.FldVar
					End If
##-->
	If IsNumeric(<!--##=FIELD.FldVar##-->) Then tot_<!--##=FIELD.FldVar##--> = tot_<!--##=FIELD.FldVar##--> + <!--##=sAggValue##--> ' Accumulate Total
<!--##
				End If
			End If
		End If
	End If
Next

For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.ImageWidthFld <> "" And FIELD.ImageHeightFld <> "" Then
##-->
	' Get BLOB field width & height
	wd_<!--##=FIELD.FldVar##--> = rs("<!--##=FIELD.ImageWidthFld##-->")
	ht_<!--##=FIELD.FldVar##--> = rs("<!--##=FIELD.ImageHeightFld##-->")
<!--##
	End If
Next

If TABLE.TblKey <> ""  And TABLE.TblInlineEdit Then
##-->
	bEditRow = (<!--##=InlineEditKeyCheck##-->) And (nEditRowCnt = 0)
	If bEditRow Then
		nEditRowCnt = nEditRowCnt + 1
		sItemRowClass = <!--##=DoubleQuote(ewCSSEditItemRowClass, 1)##-->
		sListTrJs = <!--##=DoubleQuote(sListTrJsEdit, 1)##-->
	End If
<!--##
End If
##-->
%>

<!--## If iRecPerRow < 1 Then ' Single Record Layout ##-->

	<!-- Table body -->
	<tr<%=sItemRowClass%><%=sListTrJs%>>

	<!--## If bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-field##-->
	<!--## End If ##-->

	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList Then
	##-->
		<!-- <!--##=FIELD.FldName##--> -->
		<td<!--##=FieldTD_Item##-->><span<!--##=ewCSSItemSpanClass##-->><!--##=FieldList##--></span></td>
	<!--##
		ElseIf FIELD.FldIsPrimaryKey And TABLE.TblInlineEdit Then
	##-->
<!--##=FieldList##-->
	<!--##
		End If
	Next
	##-->

	<!--## If Not bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-field##-->
	<!--## End If ##-->

	</tr>

<!--## Else ' Multi-Column Layout ##-->

<% If (nRecActual Mod nRecPerRow = 1) OR (nRecPerRow < 2) Then %>
<tr>
<% End If %>
	<td valign="top"<%=sItemRowClass%>>

	<table<!--##=ewCSSTableClass##-->>

	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList Then
			sFldVar = FIELD.FldVar
	##-->
		<tr>
			<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->>
	<!--## If bExportHtml Or bExportWord Or bExportExcel Then ##-->
<% If sExport <> "" Then %>
<!--##=FIELD.FldCaption##-->
<% Else %>
	<!--## End If ##-->
	<!--##
	If iSortType > 0 And FIELD.FldType <> 205 Then ' Sort Enabled And Field not adLongVarBinary
	##--><a href="<!--##=fn_list##-->?order=<%= Server.URLEncode("<!--##=FIELD.FldName##-->") %>"<!--##=ewCSSCaptionSpanClass##--><!--##=sJsSort##-->><!--##
	End If
	##--><!--##=FIELD.FldCaption##--><!--##=SrchLegend##--><% If Session(ewSessionTblSort & "_<!--##=sFldVar##-->") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_<!--##=sFldVar##-->") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %><!--##
	If iSortType > 0 And FIELD.FldType <> 205 Then ' Field not adLongVarBinary
	##--></a><!--##
	End If
	##-->
	<!--## If bExportHtml Or bExportWord Or bExportExcel Then ##-->
<% End If %>
	<!--## End If ##-->
			</span></td>
			<td<!--##=ewCSSTableAltRowClass##-->><span<!--##=ewCSSItemSpanClass##-->><!--##=FieldList##--></span></td>
		</tr>
	<!--##
		End If
	Next
	##-->
	</table>

<!--##include list-script-option.asp/list-option-multi##-->

	</td>
<% If (nRecActual Mod nRecPerRow = 0) Or (nRecPerRow < 2) Then %>
</tr>
<% End If %>

<!--## End If ##-->

<%
	End If
	rs.MoveNext
Loop
%>

<!--## If iRecPerRow >= 1 Then ' Multi-Column Layout ##-->

<% If (nRecActual Mod nRecPerRow) <> 0 Then
	For i = 1 to (nRecPerRow - nRecActual Mod nRecPerRow) %>
	<td>&nbsp;</td>
	<% Next %>
	</tr>
<% End If %>
<!--## End If ##-->

<!--## If iRecPerRow < 1 And ewCond_Aggregate() Then ' Single Column Layout Aggregate Footer ##-->
<%
	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList And FIELD.FldAggregate <> "" Then
	##-->
<!--##~script_Aggregate##-->
	<!--##
		End If
	Next
	##-->
%>
<% If nTotalRecs > 0 Then %>
<!-- Table footer -->
	<tr<!--##=ewCSSTableFooterClass##-->>

	<!--## If bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-caption##-->
	<!--## End If ##-->

	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
		If FIELD.FldGenerate And FIELD.FldList Then
	##-->
		<td<!--##=FieldTD_Item##-->><span<!--##=ewCSSItemSpanClass##-->>
	<!--## If FIELD.FldAggregate <> "" Then	##-->
		<!--##=Lang.Phrase(FIELD.FldAggregate)##-->: <!--##=FieldAggregate##-->
	<!--## End If ##-->
		</span></td>
	<!--##
		End If
	Next
	##-->

	<!--## If Not bLinkOnLeft Then ##-->
<!--##include list-script-option.asp/list-option-caption##-->
	<!--## End If ##-->

	</tr>
<% End If %>
<!--## End If ##-->

</table>

<!--##
If TABLE.TblDelete And bMultiDelete Then
##-->
<!--##=sExpStart##-->
<!--##
	sDeleteJsPrefix = "if (!EW_selected(this)) alert('" & LANG.Phrase("NoRecordSelected") & "');"
	sDeleteJsSuffix = "{this.form.action='" & fn_delete & "';"
	sDeleteJsSuffix = sDeleteJsSuffix & "this.form.encoding='application/x-www-form-urlencoded';"
	sDeleteJsSuffix = sDeleteJsSuffix & "this.form.submit();}"
	If bInlineDelete Then
		sDeleteJs = sDeleteJsPrefix & " else if (ew_confirm('<%=sDeleteConfirmMsg%>')) " & sDeleteJsSuffix
	Else
		sDeleteJs = sDeleteJsPrefix & " else " & sDeleteJsSuffix
	End If
##-->
<% If nRecActual > 0 Then %>
	<!--## If bUserLevel Then ##-->
<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>
	<!--## End If ##-->
<p>
<input type="button" name="btndelete" value="<!--##@DeleteSelectedBtn##-->" onClick="<!--##=sDeleteJs##-->">
<p>
	<!--## If bUserLevel Then ##-->
<% End If %>
	<!--## End If ##-->
<% End If %>
<!--##=sExpEnd##-->
<!--## End If ##-->

</form>
<!--## If TABLE.TblInlineEdit Then ##-->
<% If LCase(sAction) = "edit" Then %>
<!--##=UpdateComboJS##-->
<% End If %>
<!--## End If ##-->

<% End If %>

<%
' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

<!--## If Not bTopPageLink Then ##-->
<!--##include list-script-pager.asp/asppagecount##-->
<!--## End If ##-->

<!--##=sExpStart##-->
<!--## If TABLE.TblSrchType = "BASIC" Or TABLE.TblSrchType = "BOTH" Then ##-->
<!--##=UpdateSearchJS##-->
<!--## End If ##-->
<!--##=sExpEnd##-->

<!--##/session##-->