利用ASP嵌套JS+SQL Server打造两级连动下拉框(二)

利用ASP嵌套JS+SQL Server打造两级连动

浏览选项：大中小

Response.Write("S.category.options["+Cstr(i)+"].selected=true;"+chr(13))

             Response.Write("}")&chr(13)

            Rs.Close

            Set Rs=Nothing

      end if

      set Rs=server.createobject("ADODB.recordset")

      Rs.CursorLocation = adUseClient

    SQL="Select Num=Count(*),Tb_Province.ProvinceCode From Tb_Province,Tb_City where Tb_Province.ProvinceCode=substring(Tb_City.CityCode,1,2) group by Tb_Province.ProvinceCode order by Tb_Province.ProvinceCode"

    Rs.open SQL,conn,1,1

    if Not Rs.Eof then



          dim Num(30),j

        j=0

              Do While Not Rs.Eof

                  Num(j)=Rs("Num")

                j=j+1

                Rs.MoveNext

            Loop

    end if

      Rs.Close

    set Rs=Nothing

      SQL=""

      set Rs=server.createobject("ADODB.recordset")

      Rs.CursorLocation = adUseClient

      SQL="Select Tb_Province.*,Tb_City.* From Tb_Province,Tb_City where Tb_Province.ProvinceCode=substring(Tb_City.CityCode,1,2) order by Tb_Province.ProvinceCode"

      Rs.open SQL,conn,1,1

      j=0

    if Not Rs.Eof then

          Response.Write("function setsmall_cat(D){")&chr(13)

          Response.Write("var valuecategory=D.category.options[D.category.selectedIndex].value;")&chr(13)

        Response.write("if(valuecategory.indexOf("+chr(34)+"无"+chr(34)+")==0){"+chr(13)&_

                             "D.small_cat.length=1;"&_

                             "D.small_cat.options[0].value="+chr(34)+"无"+chr(34)+";"+chr(13)&_

                             "D.small_cat.options[0].text="+chr(34)+"**请选择城市**"+chr(34)+chr(13)&_

                             "D.small_cat.options[0].selected=true;"+chr(13)&_

                              "}")



        i=0

        dim NextLevel,UpCatCode,overflow

        NextLevel="N"

          overflow="N"

[首页]    [上一页]    [下一页]    [末页]