<% 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) %> UFO 未解之谜 飞碟探索 史前文明 宇宙文明 世界奇观 飞碟网 - www.88che.com
返回首页


宇宙天文大观

星空深处--揭开太空神秘的面纱(系列)
 恒星世界--恒星的生与死(系列)
太阳系--地球的家(系列)
宇宙探谜(系列)
宇宙/天体图片(系列)
[飞碟网]