记录网页浏览次数,记录浏次数

 Rs2.open sql2,conn,1,3
 if not(rs2.eof and rs2.bof) then
 b=0
 while not rs2.eof

 zongjia=(rs2("zongjia")+zongjia1)
 
 rs2("zongjia")=zongjia 
 
 rs2.Update
 
 b = b + 1
 rs2.movenext
 wend
 end if
 rs2.close
 set rs2=nothing