deleavedata.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 53 行

<%
Function DeleaveData(ThisData)
if ThisData<>"" then
	Sqlstr=""
	if Instr(1,ThisData,",",1)<1 then
		Sqlstr="Attribute like '%"&ThisData&"%'"
	else
		E=Instr(1,ThisData,",",1)
		Str=Mid(ThisData,1,E-1)
		Sqlstr=Sqlstr&"Attribute like '%"&Str&"%'"
		ThisData=Replace(ThisData,"","",E+1,1)
		do while Instr(1,ThisData,",",1)
			E=Instr(1,ThisData,",",1)
			Str=Mid(ThisData,1,E-1)
			Sqlstr=Sqlstr&" or Attribute like '%"&Str&"%'"
			ThisData=Replace(ThisData,"","",E+1,1)
		loop
		Str=ThisData
		Sqlstr=Sqlstr&" or Attribute like '%"&Str&"%'"
	end if	
end if
DeleaveData=Sqlstr
End Function

Function CompData(Data1,Data2)
if Data1<>"" then
	if Data2<>"" then
		Sqlstr=""
		if Instr(1,Data2,",",1)<1 then
			if Instr(1,Data1,Data2,1)<1 then
				Data1=Data1&","&Data2
			end if
		else
			do while Instr(1,Data2,",",1)
				E=Instr(1,Data2,",",1)
				Str=Mid(Data2,1,E-1)
				if Instr(1,Data1,Str,1)<1 then
					Data1=Data1&","&Str
				end if
				Data2=Replace(Data2,"","",E+1,1)
			loop
			Str=Data2
			if Instr(1,Data1,Str,1)<1 then
				Data1=Data1&","&Str
			end if
		end if		
	end if
else
	Data1=Data2	
end if
CompData=Data1
End Function
%>