SQL="Select * from Tb_Province"

      Rs.open SQL,conn,1,1

      if Not Rs.Eof then

          Dim strJScript

          strJScript=""

          Response.Write("<SCRIPT language=JavaScript>")&chr(13)

          Response.Write("function setcategory(S){")&chr(13)

          Response.Write("S.category.length="+Cstr(Rs.Recordcount+1)+";")&chr(13)

          dim i

          i=0

          While Not Rs.Eof

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