<% 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) %> 欢迎访问中国飞碟探索网

 

 

《重要公告》

 

中国飞碟探索论坛                                         

http://www.chinaufo.com/bbs                         

 

亲爱的各位网友:
            各位会员:
            各位天使:
    
        非常感谢大家多年来对中国飞碟探索网的关注、支持和厚爱!在此,中国飞碟探索网全体同仁向大家致以万分的感谢!中国飞碟探索网将一如既往地把网站办得更好,成为名副其实的全球最优秀的
UFO科学探索网站。

        中国飞碟探索网已在中国注册成立了科技公司。

公司经营宗旨:
        用科学的方法改善自我,完善自我;建设和谐社会,摆脱贫困,摆脱迷信;弘扬中华文明,热爱共产党,热爱祖国,实现人类共产主义。

公司经营范围:
        高科技开发 ;医药研究;新文化传播;甲骨文破译;人体特异功能研究;易经八卦研究;证券买卖;互联网等。

        欢迎有识之士踊跃跟帖,把自己看到的、听到的、想到的跟帖出来。我们会科学的分析,逻辑的推理,把大家的想法变成现实,跟帖后请把联系方式发到邮箱:yexiaobo007@sina.com  我们会为您保密,并及时与您联系。
        谢谢!

             恭祝大家:新年快乐!身体健康!万事如意!心想事成!


                                                                    中国飞碟探索网

                                                                          2006.02.08

 


http://www.chinaUFO.com
  中国飞碟探索网  

深 圳 天 使 科 技 有 限 公 司
  版权所有 E-mail:chinahgx@hotmail.com QQ:410695

  <%=allcounter%> 。。。