%
Application.Lock '将对象锁定
SQLcmd = "select * from counter"
set rs=newconn.Execute(SQLcmd)
counter=rs("counter")+1
SQLcmd1 = "update counter set counter=counter+1"
newconn.Execute SQLcmd1
x = CStr(counter)
For i = 1 To Len(x)
gif = gif & ""
Next
gif_counter = gif
Application.UnLock '将对象解除锁定
%>
|
|
||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||