% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页 |
|||||||||||||||||||||||||||||||||||||||||||||||||
|
星空深处--揭开太空神秘的面纱
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|
云雾状星云
气体星云主要由高温气体组成。
组成星云的物质受附近的恒星发出的紫外线影响而带有电荷,并在它们降压的过程中放出射线(在很大程度上类似于霓虹灯)。这类星云通常都是红色的,因为它们的主要成份氢在此情况下呈红色(其他物质呈不同的颜色,但氢的含量远高于其他物质)。气体星云通常会孕育新的恒星。
(网上科学馆) |
||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||