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"

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>