<% dim objgbrs dim m set conn=server.createobject("adodb.connection") dbpath=server.mappath("jsq.dsn") conn.open "filedsn=" &dbpath sql="select * from xyh2" set objgbrs=conn.execute(sql) m= objgbrs("数量") sql="update xyh2 set 数量=数量+1" 'response.write m 'sql="repalce(m,objgbrs("数量"))" conn.execute(sql) %>