<%@ language=vbscript %>
<% dim counter,exec,rs1,rs
exec="select * from counter"
set conn=server.createobject("ADODB.connection")
conn.open"dsn=blackrosa;uid=sz_blackrosa;pwd=rosa*78d"
set rs=conn.execute(exec)
fcounter=rs("counter")+1
exe1="update counter set counter="&fcounter&" "
set rs1=conn.execute(exe1)
set rs2=conn.execute(exec)
%>
<% set rs=nothing
set rs1=nothing
set rs2=nothing
set conn=nothing
%>
深圳市布莱克罗莎花艺中心!
