|
【 ↓ 快 速 入 口 ↓ 】
·>技术特点
·>流
程 图（焚烧发电）
·>流
程 图（中小型图）
·>设
备 图
::::....
·>技术特点
·>流
程 图
·>设
备 图
::::....
·>技术特点
·>流
程 图
·>设
备 图
::::....
·>技术特点
·>流
程 图
·>设
备 图
::::....
·>联合国环境规划署
·>中国国家环保总局
·>中国环境网
·>香港地球之友
·>环保青年网站
·>中国环保商务网
|
|
<%
Application.Lock
IncrementCounter
Application.UnLock
Sub IncrementCounter()
Set fs=Server.CreateObject("Scripting.FileSystemObjects")
counter_file=server.MapPath("/counter.txt")
Set txt=fs.OpenTextFile(counter_file)
Application("counter")=txt.ReadLine
%>
<%="您是第"%> <%=Application("counter")%> <%="位贵宾"%>
<%
txt.close
Application("counter")=Application("counter")+1
set txt=fs.CreateTextFile(counter_file,True)
txt.WriteLine(Application("counter"))
txt.close
End Sub
%>
|
电话：89592042 89592043
传真：89592044 89592041 EMail：info@thunist.com