% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页| |
|
|
航空航天--人类的太空探索 |
|
|
☉又一个太阳系 ☉宇宙边陲的星系 ☉人类登月 ☉反射望远镜 ☉地外文明在月球上留下的石雕 ☉太空移民 ☉土星探测 ☉怎样飞向半人马座? ☉太空探索 ☉等待宇宙深处的问候
|
☉火星探索之路--探索历程[系列] ☉火星探索之路--火星发现[系列] ☉火星探索之路--火星未来[系列] ☉火星探索之路--火星图片[系列] ☉火星探索之路--最新报道[系列] ☉航空航天论坛[bbs] ☉太阳系之谜[系列] ☉我们的家园--地球[系列] ☉ |
|
|
|