<% 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]
☉宇宙/天体图片[系列]
☉
☉
☉
☉


 　


http://www.chinaUFO.com
电话：023-62110765　 中国飞碟探索网　 传真：023-68625453
重 庆 红 古 轩 家 具 有 限 公 司  版权所有　E-mail:chinahgx@hotmail.com QQ:410695
  <%=allcounter%> 。。。