dbhandle_search.asp

功能齐全的oa系统

<%Function DBHandle_Search(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).Count = 3 Then
						    If Request.Form(StrForm)(3)=0 then
							   Result = Result & " And " & StrForm & "= '" & Request.Form(StrForm)(1) & "'"
							else
							  Result = Result & " And " & StrForm & " Like '%" & Request.Form(StrForm)(1) & "%'"
	    
							end if  
						 else If Request.Form(StrForm).Count = 2 Then
							Result = Result & " And " & StrForm & " Between '" & Request.Form(StrForm)(1) & "' And  '" & Request.Form(StrForm)(2) & "'" 
						 else If Request.Form (StrForm).Count =1 then
							  Result = Result & " And " & StrForm & " Like '%" & Request.Form(StrForm) & "%'"
                             end if  
						     End If
					     End If
				         End If
				end if         
			Next
			
			DBHandle_Search = Result
		End Function
%>