% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页
|
|
江西发现不明飞行物 持续时间达2个多小时
人民网6月27日讯 6月25日晚,地处赣闽交界处的江西省瑞金市合龙乡河山岭附近,发现一不明飞行物。飞行物呈发亮的圆形,在河山岭附近飞来飞去,并每隔2分钟左右发射出一束束耀眼光束,光束呈白、蓝、红、绿、黄等不同颜色,尤如舞厅里的旋转灯。不明飞行物在河山岭持续时间达2个多小时,当地河山、大胜二村1000多名群众均目击了这一不明飞行物。
|
|
|