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

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