% 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 绽放出绿色光芒 |
|
据保加利亚新闻媒体2000年12月13日报道,保加利亚中部城市大特尔诺沃上空11日晚出现了两个不明飞行物(UFO)。这一现象使当地居民惊讶不已。数百名居民证实,他们当晚看见城市上空有两个“飞碟”式的圆形飞行物,向四周发出绿色光芒。目击者们还说,不明飞行物出现时,街区的许多狗开始狂吠。一当地电视台播出的录像显示不明飞行物在城市上空足足逗留了8分钟后才离去。
|
|
|