<% 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-中国飞碟探索网欢迎您的访问

|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页


　
　

　
　

中国最知名UFO网站

中国最知名UFO论坛

365CN娱乐网 

　

　

　

　

 

　

点击图片进入飞碟探索论坛

重庆万维科技有限公司  本站域名询价  渝ICP备05003816号  365CN娱乐网  绿色晨曦论坛

中国飞碟探索网 http://www.chinaUFO.com 版权所有 E-mail:  a.gan@yeah.net     QQ:410695

<%=allcounter%>