| "D.small_cat.options[0].selected=true;"+chr(13)&_
"}")
i=0
dim NextLevel,UpCatCode,overflow
NextLevel="N"
overflow="N"
strJScript=""
Do While Not Rs.Eof
UpcateCode=Trim(Rs("ProvinceCode"))
if NextLevel="N" then
strJScript="else if(valuecategory.indexOf("+chr(34)+Upcat 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> | 
