![]() |
备案序号:皖ICP备05017605号
版权所有@阜阳气象台
欢迎您!第
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(server.mappath("txt\count.txt"))
counts=fp.Readline
response.write counts
'set fso=nothing
fp.close
set fp=nothing
counts=counts + 1
set out = fso.CreateTextFile(server.mappath("txt\count.txt"))
out.WriteLine(counts)
out.Close
set fso = nothing
set out = nothing
%>
位客人
网站制作维护:luhai email:
luhai_fy@ah163.com
QQ:8788897 TEL: 0558-2265112