% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页
|
|
太阳系外行星存在外星生物(附图)
|
|
|
|
9月13日在德国慕尼黑召开了由欧洲南观象台组织的“太阳系外行星”学术讨论会,会议为期两天,主要议题是发现和分析太阳系外行星。这个会议一个引人注意的事件是,当听众提出在太阳系外行星是否存在生命的问题时,有4个科学家对此表态,他们的回答一致:“有”,这样100%的回答是此前绝无仅有的。
|
|
|