% 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) %>
|
|未解之谜|生命溯源|史前文明|航空航天|宇宙天文|飞碟文化|飞碟图片|飞碟实录|国内报道|国外报道|最新事件|飞碟探索|精品论文|首页|
|
|
《重要公告》
亲爱的各位网友: 中国飞碟探索网已在中国注册成立了科技公司。 公司经营宗旨: 公司经营范围:
欢迎有识之士踊跃跟帖,把自己看到的、听到的、想到的跟帖出来。我们会科学的分析,逻辑的推理,把大家的想法变成现实,跟帖后请把联系方式发到邮箱:yexiaobo007@sina.com 我们会为您保密,并及时与您联系。 恭祝大家:新年快乐!身体健康!万事如意!心想事成!
2006.02.08 |
|
|
|
|