源代碼如下，謝謝(無法上傳源代碼，只好截取一段)
  <%Dim a,b,c
set rsmid=server.createobject("adodb.recordset") 
sqlmid="select distinct LarCode,LarSeq,MidCode,midSeq from bclass order by LarSeq,MIdSeq" 
rsmid.Open sqlmid,conn,1,1 

response.write "<TR><TD width=100 align=center bgcolor=#FFFFFF>商品分类</td><td bgcolor=#FFFFFF>"
response.write "<select name='MidCode'>"
response.write"<option value='未归类^未归类' selected>---选择商品所属分类---</option>"
if rsmid.bof and rsmid.eof then
response.write "<option selected value='未归类^未归类'>-暂无商品分类-</option>"
else
Do While Not rsmid.eof
a = rsmid("larcode")
response.write "<option value='"&rsmid("larCode")&"^"&rsmid("MidCode")&"'>"&rsmid("LarSeq")&"-"&rsmid("LarCode")&" >> "&rsmid("MidSeq")&"-"&rsmid("MidCode")&"</option>"
rsmid.movenext
if rsmid.eof then exit do
if rsmid("larcode")<>a then response.write "<option value=''>--------------------------</option>"
loop
end if
rsmid.close
set rsmid=nothing

response.write "</TD></TR>"

'-------------
set rsfun=server.createobject("adodb.recordset") 
sqlfun="select distinct FLarCode,FLarSeq,FMidCode,FmidSeq from fclass order by FLarSeq,FMIdSeq" 
rsfun.Open sqlfun,conn,1,1 

response.write "<TR><TD width=100 align=center bgcolor=#FFFFFF>功能分类</td><td bgcolor=#FFFFFF>"
response.write "<select name='FMidCode'>"
response.write"<option value='未归类^未归类' selected>---选择功能所属分类---</option>"
if rsfun.bof and rsfun.eof then
response.write "<option selected value='未归类^未归类'>-暂无功能分类-</option>"
else
Do While Not rsfun.eof
a = rsfun("Flarcode")
response.write "<option value='"&rsfun("FlarCode")&"^"&rsfun("FMidCode")&"'>"&rsfun("FLarSeq")&"-"&rsfun("FLarCode")&" >> "&rsfun("FMidSeq")&"-"&rsfun("FMidCode")&"</option>"
rsfun.movenext
if rsfun.eof then exit do
if rsfun("Flarcode")<>a then response.write "<option value=''>--------------------------</option>"
loop
end if
rsfun.close
set rsfun=nothing

response.write "</TD></TR>"