%Application.Lock()
set rs=server.CreateObject("adodb.recordset")
sql="select * from type where id=1"
rs.open sql,conn,1,3
Application("counter")=cint(rs("application"))
Application("counter")=cint(Application("counter")+1)
rs("application")=application("counter")
rs.update
浙公网安备 33010602011771号