<%
elmer="elmer"
Dim Conn1,strConn1
Set Conn1=Server.CreateObject("Adodb.Connection")
strConn1="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("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)
%>
欢迎访问中国飞碟探索网
