search-script.asp

AspMaker调用的自定义包

<!--##session aspheader##-->
<%
Response.Buffer = True

<!--## If PROJ.OptionExplicit Then ##-->
Dim sSrchStr, sSrchWrk, sSrchFld
<!--## End If ##-->

' Get action
sAction = Request.Form("a_search")

Select Case sAction
	Case "S": ' Get Search Criteria

	' Build search string for advanced search, remove blank field
	sSrchStr = ""
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.FldSearch And FIELD.FldHtmlTag <> "FILE" Then
		sFldVar = FIELD.FldVar
		sFldVar2 = "y_" & Mid(sFldVar,3)
		sFldOpr = "z_" & Mid(sFldVar,3)
		sFldOpr2 = "w_" & Mid(sFldVar,3)
		sFldCond = "v_" & Mid(sFldVar, 3)
		sFldSrchOpr = FIELD.FldSrchOpr
		sFldSrchOpr2 = FIELD.FldSrchOpr2
'		If ewGetFieldType(FIELD.FldType) = 2 Then
'			sSrchFld = "EW_UnFormatDateTime(" & sFldVar & ", " & FIELD.FldDtFormat & ")"
'			sSrchFld2 =  "EW_UnFormatDateTime(" & sFldVar2 & ", " & FIELD.FldDtFormat & ")"
'		Else
			sSrchFld = sFldVar
			sSrchFld2 = sFldVar2
'		End If
##-->
	' Field <!--##=FIELD.FldName##-->
	<!--##=sFldVar##--> = Request.Form("<!--##=sFldVar##-->")
	<!--##=sFldOpr##--> = Request.Form("<!--##=sFldOpr##-->")
<!--## If sFldSrchOpr2 <> "" Then ##-->
	<!--##=sFldCond##--> = Request.Form("<!--##=sFldCond##-->")
<!--## End If ##-->
<!--## If sFldSrchOpr = "BETWEEN" Or sFldSrchOpr2 <> "" Then ##-->
	<!--##=sFldVar2##--> = Request.Form("<!--##=sFldVar2##-->")
	<!--##=sFldOpr2##--> = Request.Form("<!--##=sFldOpr2##-->")
<!--## End If ##-->
	sSrchWrk = ""
<!--## If FIELD.FldHtmlTag = "TEXTAREA" AND FIELD.FldUseDHTMLEditor Then ##-->
	If ((Left(LCase(<!--##=sFldVar##-->), 3) = "<p>") And (Right(LCase(<!--##=sFldVar##-->), 4) = "</p>")) Then <!--##=sFldVar##--> = Trim(Mid(<!--##=sFldVar##-->, 4, Len(<!--##=sFldVar##-->)-7)) ' Remove <p></p>
<!--## End If ##-->
	If <!--##=sFldVar##--> <> "" Then
		sSrchWrk = sSrchWrk & "<!--##=sFldVar##-->=" & Server.URLEncode(<!--##=sSrchFld##-->)
		sSrchWrk = sSrchWrk & "&<!--##=sFldOpr##-->=" & Server.URLEncode(<!--##=sFldOpr##-->)
	End If
<!--## If sFldSrchOpr = "BETWEEN" Or sFldSrchOpr2 <> "" Then ##-->
<!--## If FIELD.FldHtmlTag = "TEXTAREA" AND FIELD.FldUseDHTMLEditor Then ##-->
	If ((Left(LCase(<!--##=sFldVar2##-->), 3) = "<p>") And (Right(LCase(<!--##=sFldVar2##-->), 4) = "</p>")) Then <!--##=sFldVar2##--> = Trim(Mid(<!--##=sFldVar2##-->, 4, Len(<!--##=sFldVar2##-->)-7)) ' Remove <p></p>
<!--## End If ##-->
	If <!--##=sFldVar2##--> <> "" Then
		If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&"
		sSrchWrk = sSrchWrk & "<!--##=sFldVar2##-->=" & Server.URLEncode(<!--##=sSrchFld2##-->)
		sSrchWrk = sSrchWrk & "&<!--##=sFldOpr2##-->=" & Server.URLEncode(<!--##=sFldOpr2##-->)
	End If
<!--##End If##-->
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
<!--## If sFldSrchOpr2 <> "" Then ##-->
		sSrchStr = sSrchStr & "&<!--##=sFldCond##-->=" & Server.URLEncode(<!--##=sFldCond##-->)
<!--## End If ##-->
	End If
<!--## If sFldSrchOpr2 <> "" Then ##-->
	Session(ewSessionTblAdvSrch & "_<!--##=sFldCond##-->") = <!--##=sFldCond##--> ' Save AND/OR condition
<!--## End If ##-->
<!--##
	End If
Next
##-->
	If sSrchStr <> "" Then
		Response.Clear
		Response.Redirect "<!--##=fn_list##-->" & "?" & sSrchStr
	End If

	Case Else ' Restore search settings
	<!--##
		For i = 1 to TABLE.Fields.Count
			Set FIELD = TABLE.Fields.Seq(i)
			If FIELD.FldGenerate And FIELD.FldSearch And FIELD.FldHtmlTag <> "FILE" Then
				sFldVar = FIELD.FldVar: sFldOpr = "z_" & Mid(sFldVar, 3)
				sFldVar2 = "y_" & Mid(sFldVar, 3): sFldOpr2 = "w_" & Mid(sFldVar, 3)
				sFldCond = "v_" & Mid(sFldVar, 3)
				sFldSrchOpr = FIELD.FldSrchOpr
				sFldSrchOpr2 = FIELD.FldSrchOpr2
	##-->
		<!--##=sFldVar##--> = Session(ewSessionTblAdvSrch & "_<!--##=sFldVar##-->")
		<!--## If sFldSrchOpr = "USER SELECT" Then ##-->
		<!--##=sFldOpr##--> = Session(ewSessionTblAdvSrch & "_<!--##=sFldOpr##-->")
		<!--## End If ##-->
		<!--## If sFldSrchOpr2 <> "" Then ##-->
		<!--##=sFldCond##--> = Session(ewSessionTblAdvSrch & "_<!--##=sFldCond##-->")
		<!--## End If ##-->
		<!--## If sFldSrchOpr = "BETWEEN" Or sFldSrchOpr2 <> "" Then ##-->
		<!--##=sFldVar2##--> = Session(ewSessionTblAdvSrch & "_<!--##=sFldVar2##-->")
			<!--## If sFldSrchOpr2 = "USER SELECT" Then ##-->
		<!--##=sFldOpr2##--> = Session(ewSessionTblAdvSrch & "_<!--##=sFldOpr2##-->")
			<!--## End If ##-->
		<!--## End If ##-->
	<!--##
			End If
		Next
	##-->
	
End Select

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
<!--## If InStr(1,DB.DBDBMSName,"ORA",vbTextCompare) > 0 And TABLE.TblBlob Then ##-->
' For Oracle database, use connection string for proper handling of BLOB field
xDb_Conn_Str = xDb_Conn_Str_Ora_Blob
<!--## End If ##-->
conn.Open xDb_Conn_Str
%>
<!--##/session##-->


<!--##session htmtable##-->

<p><span class="aspmaker"><!--##@Search##--> <!--##$TABLE.TblType##-->: <!--##=TABLE.TblCaption##--><br><br><a href="<!--##=fn_list##-->"><!--##@BackToList##--></a></span></p>

<form name="<!--##=sFormName##-->" id="<!--##=sFormName##-->" action="<!--##=fn_search##-->" method="post"<!--##=sFormSubmit##-->>
<p>
<input type="hidden" name="a_search" value="S">

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

<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.FldSearch And FIELD.FldHtmlTag <> "FILE" Then
		sFldSrchOpr = FIELD.FldSrchOpr
		sFldSrchOpr2 = FIELD.FldSrchOpr2
##-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->><!--##=FIELD.FldCaption##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span class="aspmaker"><!--##=FieldOperator##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span class="aspmaker"><!--##=FieldEdit##--></span></td>
	</tr>
	<!--## If sFldSrchOpr = "BETWEEN" Or sFldSrchOpr2 <> "" Then ##-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##--> align="right">
			<!--## If sFldSrchOpr2 <> "" Then ##-->
			<!--##=FieldSearchCondition##-->
			<!--## End If ##-->&nbsp;
		</td>
		<td<!--##=ewCSSTableAltRowClass##-->><span class="aspmaker"><!--##=FieldOperator2##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span class="aspmaker"><!--##=FieldEdit2##--></span></td>
	</tr>
	<!--##End If##-->
<!--##
	End If
Next
##-->
</table>
<p>
<input type="<!--##=sButtonType##-->" name="Action" value="<!--##@Search##-->"<!--##=sButtonSubmit##-->>
<input type="button" name="Reset" value="<!--##@Reset##-->" onclick="EW_clearForm(this.form);">
</form>
<!--## If ewCond_DHtmlEditor() Then ##-->	
<script type="text/javascript">
<!--
EW_createEditor();  // Create DHTML editor(s)
//-->
</script>
<!--## End If ##-->
<!--##=UpdateSearchJS##-->
<!--##/session##-->
<!--##session aspfooter##-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>
<!--##/session##-->