% 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曾追逐日航客机31分钟
|
|
厦门商报 曾任美国联邦航天总署“意外暨调查处”官员的卡拉汉表示,他在一九八六年十一月十八日亲眼看到一个飞碟在阿拉斯加州上空追逐一架日本航空公司的747班机达三十一分钟,当时的空中与地面雷达证实卡拉汉并不是活见鬼,雷达系统并当场录下三十分钟的资料,不料廿小时后,他的UFO报告竟神秘消失。卡拉汉指出,他曾于次日与联邦调查局代表及前总统里根的科学研究小组开会讨论此事,但是中情局表示根本没有开会一事,也没有关于这项飞碟事件的纪录。
|
|
|