<%
elmer="elmer"
Dim Conn1,strConn1
Set Conn1=Server.CreateObject("Adodb.Connection")
strConn1="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("asp/jsq.mdb")
Conn1.Open strConn1
SQL="select * from counter where username='"&elmer&"'"
set rscounter=Conn1.execute(SQL)%>
<%application("newkucounter")=rscounter("allcounter")
application.lock
application("newkucounter")=application("newkucounter")+1
application.unlock
allcounter=application("newkucounter")
SQL="update counter set allcounter='"&allcounter&"' where username='"&elmer&"'"
set rs=Conn1.execute(SQL)
%>
欢迎访问重庆红古轩家具有限公司网站
Ynet讯：12月20日，美国国家航空航天局公布的一张照片显示，一组新型陆地漫游者目前正在开发之中，以便未来对火星上的陡坡和沟谷进行探测。