selectvalue.asp

功能齐全的oa系统

<%
	Function SelectValue(ObjDB,StrSQL)
		Dim C,ObjRS,IntRows,i,Result
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
		For i = 0 To IntRows
			Result = Result & "<option value=" & ObjRS(0,i) & ">" & ObjRS(1,i) & "</option>" & Vbcrlf
		
		Next
		
		SelectValue = Result
			
	End Function
	Function SelectValueTwo(StrSQL)
		Dim C,ObjRS,IntRows,i,Result,TString,aryReturn
	     aryReturn=Array("否","是")
		 IF StrSQL=TRUE THEN
		 StrSQL=1
		 ELSE
		 StrSQL=0
		 END IF 
		For i = 0 To 1
	        IF  cstr(StrSQL)=cstr(i) THEN
			Result = Result & "<option value=" & i& "  SELECTED>" & aryReturn(i)& "</option>" & Vbcrlf
		    ELSE
			Result = Result & "<option value=" & i & " >" &  aryReturn(i) & "</option>" & Vbcrlf
			END IF
			
			
		Next
		
		SelectValueTwo= Result
			
	End Function
 Function SelectValueSingle(ObjDB,StrSQL,SValue)
		Dim C,ObjRS,IntRows,i,Result
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
			
		For i = 0 To IntRows
	
		     if CStr(ObjRS(0,i))=CStr(SValue) then
						Result = Result & "<option value=" & ObjRS(0,i) & "  selected>" & ObjRS(1,i) & "</option>" & Vbcrlf
 			 else
			 			Result = Result & "<option value=" & ObjRS(0,i) & ">" & ObjRS(1,i) & "</option>" & Vbcrlf
			 end if
		Next

		SelectValueSingle = Result
			
End Function

Function SelectValueView(ObjDB,StrSQL,SValue)
		Dim C,ObjRS,IntRows,i,Result
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
				For i = 0 To IntRows
	         
		     if CStr(ObjRS(0,i))=CStr(SValue) then
						Result = CStr(ObjRS(1,i))
					
						exit for
						else
					
			 end if
	
		Next
			
		
		SelectValueView = Result
			
End Function

Function SelectValueList(ObjDB,StrSQL,SValue)
		Dim C,ObjRS,IntRows,i,Result,aryReturn,j
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
		 aryReturn = Split(SValue,",")

			'response.write ObjRS(1,0)&"<br>"&ObjRS(1,1)&"<br>"&ObjRS(1,2)&"<br>"&"CStr(SValue)="&CStr(SValue)
			
			'response.End()
		For i = 0 To IntRows
	         For j= LBound(aryReturn) To UBound(aryReturn)
		    
			   if CStr(ObjRS(0,i))=CStr(aryReturn(j)) then
						Result =Result&CStr(ObjRS(1,i))&""
					
						exit for
											
			     end if
				 next
	
		Next
			
		
		SelectValueList = Result
			
End Function

Function SelectValueArray(ObjDB,StrSQL,SValue)
		Dim C,ObjRS,IntRows,i,Result,aryReturn,j
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
		 aryReturn = Split(SValue,",")

			
		For i = 0 To IntRows
		
	          For j= LBound(aryReturn) To UBound(aryReturn)
			   'response.write CStr(ObjRS(0,i))&"<br>"&CStr(aryReturn(j))
			 'response.End()
		     if CStr(ObjRS(0,i))=CStr(aryReturn(j)) then
			
						Result = Result & "<option value=" & ObjRS(0,i) & "  selected>" & ObjRS(1,i) & "</option>" & Vbcrlf
 			            exit for		 
			 'else
			 			'Result = Result & "<option value=" & ObjRS(0,i) & ">" & ObjRS(1,i) & "</option>" & Vbcrlf
			 end if
			 next
			  	'Result = Result & "<option value=" & ObjRS(0,i) & ">" & ObjRS(1,i) & "</option>" & Vbcrlf

			 
		Next

		SelectValueArray= Result
			
End Function
	Function GetOption(ObjDB,StrSQL,ID)
		Dim C,ObjRS,IntRows,i,Result
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
		For i = 0 To IntRows
			Result = Result & "<option value=" & ObjRS(0,i) & " "
			If ObjRS(0,i) = ID Then	Result = Result & " selected "
			Result = Result & ">" & ObjRS(1,i) & "</option>" & Vbcrlf
		
		Next
		GetOption = Result
	End Function
	
	Function GetOptions(ObjDB,StrSQL,IDs)
		Dim C,ObjRS,IntRows,i,Result
		Dim StrIDs
		StrIDs = "," & IDs & ","
		Set C = Server.CreateObject("CMS2003.DBhandle")
		C.Init(ObjDB)
		ObjRS = C.List(1,0,StrSQL)
		IntRows = C.GetRows()
		For i = 0 To IntRows
			Result = Result & "<option value=" & ObjRS(0,i) & " "
			If InStr(1,StrIDs,","&ObjRS(0,i)&",")<>0 Then	Result = Result & " selected "
			Result = Result & ">" & ObjRS(1,i) & "</option>" & Vbcrlf
		
		Next
		GetOptions = Result
	End Function
%>