asp三级分类－联动下拉菜单

< %
dim  rs,firstFlag
set  rs = server.CreateObject( " adodb.recordset " )

' 读主分类
sqlstr  =   " select product_type1_id,product_type1 from t_product_type1 where isDel=0 and me_ver=' "   &  G_mver  &   " ' order by sort "
rs.Open sqlstr,conn, 1 , 1
response.Write  " <script language='javascript'> "
response.Write  " optType1=new Array( "
firstFlag  =   true
do   while   not  rs.EOF
     if  firstFlag  then
        response.Write  " ' "   &  rs( " product_type1_id " )  &   " ',' "   &  rs( " product_type1 " )  &   " ' "
        firstFlag  =   false
     else
        response.Write  " ,' "   &  rs( " product_type1_id " )  &   " ',' "   &  rs( " product_type1 " )  &   " ' "
     end   if
    rs.MoveNext()
loop
response.Write  " ); "
response.Write  " </script> "
rs.Close()

' 读二级分类
sqlstr  =   " select product_type1_id,product_type2_id,product_type2 from t_product_type2 where me_ver=' " &  G_mver  & "