<%
dim conn,rs1,datetime,number
set conn=server.createobject("adodb.connection")
conn.open "dsn=cqm;uid=sa;pwd=2000"
set rs1=server.createobject("adodb.recordset")
datetime=date()
rs1.open "select * from counter",conn,3,3
number=clng(rs1("number"))+1
rs1("number")=clng(number)
rs1("datetime")=datetime
rs1.update
rs1.close
set rs=nothing%>
方圆标志认证中心
