dbhandle_searchfull.asp

功能齐全的oa系统

<%Function DBHandle_Searchfull(CheckHead)
			Dim i,Result
			Dim StrForm
			For Each i In Request.Form
				If Left(i,Len(CheckHead)) = CheckHead Then
					StrForm = Right(i,Len(i)-Len(CheckHead))
					If Request.Form(i)<>"" Then
						    If Request.Form(StrForm)(5)=0 then
							   Result = Result & " And " & StrForm & "= '" & Request.Form(StrForm)(4) & "'"
							elseif Request.Form(StrForm)(5)=1 then
							   Result = Result & " And " & StrForm & " Like '%" & Request.Form(StrForm)(3) & "%'"
							elseif Request.Form(StrForm)(5)=2  then
							   Result = Result & " And " & StrForm & " Between '" & Request.Form(StrForm)(1) & "' And  '" & Request.Form(StrForm)(2) & "'" 
                            end if  
				    End If
				end if         
			Next
			
			DBHandle_Searchfull = Result
		End Function
%>