% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页
|
|
北京发现不明飞行物 天文馆咨询电话被打爆
昨晚10时至11时零8分,北京西南方上空出现一不明飞行物。该飞行物呈圆形,形状较为模糊,直径约为1尺。不明飞行物在西南方上空不停地转着不规则的圆圈。在昨晚11时01分,不明飞行物在西北方突然往外一飞,就在记者的监视中消失得无影无踪,到11时03分,不明飞行物又现出身来。在昨晚11时05时,不明飞行物在空中突然停住,并由原来的逆时针飞行改为顺时针飞行。到昨晚11时08分,不明飞行物彻底消失。
|
|
|