% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页 |
|
|
火星探索之路--探索历程 |
|
|
资料:登陆火星十大步骤
1、进行火星大气层前10分钟(即登陆前15分钟),探测器打开航行系统,不再依靠地面指示。
与火星的距离:4586.5公里速度:每小时2.06万公里 2、着陆前12分钟,推动器高速运转80秒,产生热气罩,在进入大气层时保护探测器。 与火星的距离:3017.4公里速度:每小时2.14万公里 3、着陆前10分钟,在11个月的航行旅程中供给探测器能量的太阳仪表板将与探测器分离,在火星大气层中焚毁。 与火星的距离:2301.30公里速度:每小时2.25万公里 4、着陆前5分钟,探测器进入大气层上层,火星大气层对探测器产生十倍于地球引力的极强引力。 与火星的距离:125.53公里速度:每小时2.49万公里 5、着陆前2分钟,降落伞打开。 与火星的距离:8.85公里速度:每小时1770.23公里 6、着陆前70至100秒,3条“长腿”伸开。 与火星的距离:7.56公里速度:每小时901.29公里 7、着陆前50秒,侦察器向火星表面发射激光并很快接到反射,并根据反射速度准确推测出与地面之间的距离。 与火星的距离:2.41公里速度:每小时385.77公里 8、着陆前35秒,推动器自动关闭,降落伞与探测器分离。一秒半后,降落引擎自动点燃。 与火星的距离:1310.64米速度:每小时289.67公里 9、“登陆者”以每小时8.05公里的速度降落在火星表面。 10、“登陆者”着陆后静止2分钟,让掀起的尘土静止下来。接着,“探测器”向地球报告自己平安着陆的消息。然后,开始采集样本,拍摄照片。 |
|
|
|
|