<% set Re = Server.CreateObject("ADODB.Recordset") Re.ActiveConnection = conn Re.Source = "select gb,LarCode,MidCode from ProdClass order by gb,LarCode,MidCode desc" Re.CursorType = 0 Re.CursorLocation = 2 Re.LockType = 3 Re.Open() Re_numRows = 0 %> <% CALL listmaker(aalist,"menu1", sslist ,"menu2", ddlist, "menu3", pubevent, pubfun, "prodtable") nowtime=now() %> 选择语言 <%= aalist%> 选择大类 <%=replace(cstr(sslist),"@","&")%> 选择小类 <%=replace(cstr(ddlist),"@","&")%> <% function listmaker(byref list1, listname1, byref list2, listname2, byref list3, listname3, byref myevent, byref myfun, prodtable) aalist="" sslist="" ddlist="" loopcounter=0 lastvalue=Re(0) lastvalue2=Re(1) redim tempArray(1) thisgroupcount=0 thissubgroupcount=0 howmanygroups=0 howmanysubgroups=0 DO UNTIL Re.eof thisvalue=Re(0) thisvalue2=Re(1) thisvalue3=Re(2) if thisvalue2<>lastvalue2 then If howmanysubgroups=0 then tempSTR1=tempSTR1 & "// " & lastvalue & vbcrlf tempSTR2=tempSTR2 & "// " & lastvalue & vbcrlf end If tempSTR2=tempSTR2 & "key1[" & howmanygroups & "][" & howmanysubgroups & "]=new Array(" & thissubgroupcount & ");" &vbcrlf tempSTR1=tempSTR1 & "key[" & howmanygroups & "][" & howmanysubgroups &"]=""" & lastvalue2 & """;" & vbCRLF howmanysubgroups=howmanysubgroups+1 thissubgroupcount=0 lastvalue2=thisvalue2 end if if thisvalue<>lastvalue then tempSTR=tempSTR & "key[" & howmanygroups & "]=new Array(" & howmanysubgroups & ");" & _ vbcrlf tempSTR=tempSTR & "key1[" & howmanygroups & "]=new Array(" & howmanysubgroups & ");" & _ vbcrlf thisgroupcount=0 howmanygroups=howmanygroups+1 howmanysubgroups=0 end if if thisgroupcount=0 then aalist =aalist & "" & thisvalue & "" & vbcrlf end if if thissubgroupcount=0 then tempSTR3=tempSTR3 & "// " & lastvalue2 & vbcrlf end if tempSTR3=TempSTR3 & "key1[" & howmanygroups & "][" & howmanysubgroups & "][" & thissubgroupcount & "]=""" & thisvalue3 & """;" & vbCRLF if howmanygroups=0 then If thissubgroupcount=0 then sslist = sslist & "" & thisvalue2 & "" & vbcrlf end if End If if howmanygroups=0 then if howmanysubgroups=0 then ddlist = ddlist & "" & thisvalue3 & "" & vbcrlf end if End if thisgroupcount=thisgroupcount+1 thissubgroupcount=thissubgroupcount+1 lastvalue=thisvalue loopcounter=loopcounter+1 Re.movenext LOOP tempSTR=tempSTR & "key[" & howmanygroups & _ "]=new Array(" & howmanysubgroups+1 & ");" & _ vbcrlf tempSTR=tempSTR & "key1[" & howmanygroups & _ "]=new Array(" & howmanysubgroups+1 & ");" & _ vbcrlf tempSTR2=TempSTR2 &"key1[" & howmanygroups & "][" & howmanysubgroups & "]=new Array(" & thissubgroupcount & ");" & _ vbcrlf tempSTR1= TempSTR1 & "key[" & howmanygroups & "][" & howmanysubgroups & "]=""" & lastvalue2 & """;" & vbCRLF tempSTR=tempSTR & TempSTR1 & TempSTR2 & tempSTR3 aalist=aalist & "" sslist= sslist & "" ddlist= ddlist & "" myevent=vbcrlf & "key=new Array(" & howmanygroups+1 & ");" myevent=myevent & vbcrlf & "key1=new Array(" & howmanygroups+1 myevent=myevent & ");" & vbcrlf & tempSTR tempSTR =vbcrlf & "function Buildkey" & "(num)" & vbcrlf tempSTR =tempSTR & "{" & vbcrlf tempSTR =tempSTR & "Buildkey1(0);" & vbcrlf tempSTR =tempSTR & "document." & prodtable & "." tempSTR =tempSTR & listname2 & ".selectedIndex=0;" & vbcrlf tempSTR =tempSTR & "for(ctr=0;ctr