s_array = split(a3,";") for i = 0 to ubound(s_array) for j=i+1 to ubound(s_array) if getSPName(s_array(i)) = getSPName(s_array(j)) then Nums = Nums + Cint(getSPNum(s_array(j))) end if next next
s_array = split(a3,";") for i = 0 to ubound(s_array) for j=i+1 to ubound(s_array) if getSPName(s_array(i)) = getSPName(s_array(j)) then Nums = Nums + Cint(getSPNum(s_array(j))) end if next
s_array = split(a3,";") for i = 0 to ubound(s_array) for j=i+1 to ubound(s_array) if getSPName(s_array(i)) = getSPName(s_array(j)) then Nums = Nums + Cint(getSPNum(s_array(j))) end if
function IsInID(j) dim x IsInID = false for each x in ID if x = j then IsInID = true exit function End if Next end function
主要函數為
function mainhb(s) s_array = split(s,";") for i = 0 to ubound(s_array) if not IsInID(i) then Nums = getSPNum(s_array(i)) for j=i+1 to ubound(s_array) if getSPName(s_array(i)) = getSPName(s_array(j)) then Nums = Nums + Cint(getSPNum(s_array(j))) redim Preserve ID(q) ID(q) = j q = q + 1 end if next
redim Preserve result(p) result(p) = getSPName(s_array(i)) & "=" & Nums p = p + 1 end if next
for each x in result mainhb=mainhb&x&";" next end function
整體函數為
<% dim result() dim ID() dim p , q , Nums
p=0 q= 0 Nums = 0
redim Preserve ID(q) ID(q) = ""
s = "sp4=33;sp2=20;sp1=34;sp3=2;sp2=3;sp4=4;" s = left(s,len(s)-1) response.write mainhb(s)
function mainhb(s) s_array = split(s,";") for i = 0 to ubound(s_array) if not IsInID(i) then Nums = getSPNum(s_array(i)) for j=i+1 to ubound(s_array) if getSPName(s_array(i)) = getSPName(s_array(j)) then Nums = Nums + Cint(getSPNum(s_array(j))) redim Preserve ID(q) ID(q) = j q = q + 1 end if next
redim Preserve result(p) result(p) = getSPName(s_array(i)) & "=" & Nums p = p + 1 end if 'Nums = 0 next
for each x in result mainhb=mainhb&x&";" next end function
Function getSPName(sp) getSPName = split(sp,"=")(0) End Function
Function getSPNum(sp) getSPNum = split(sp,"=")(1) end function
function IsInID(j) dim x IsInID = false for each x in ID if x = j then IsInID = true exit function End if Next end function %>