|
|
|||||
|
|
|||||
 |
农业气象科技 |
||||
|
|
<红河州人工增雨防雹简报> |
|
<% Dim Counter Sub IncrementCounter() ' 建立一 FileSystemObject 对象 Set fs = Server.CreateObject("Scripting.FileSystemObject") counter_file = Server.MapPath("../hhmb/counter/counter.txt") ' 启动 /counter.txt 文件，并且读取记录在文件中的 counter Set txt = fs.OpenTextFile(counter_file) Counter = txt.ReadLine txt.Close ' 将计数器加三 Counter = Counter + 1 ' 将计数器写入 /counter.txt 文件之中 Set txt = fs.CreateTextFile( counter_file, True ) txt.WriteLine(Counter) txt.Close End Sub Application.Lock IncrementCounter ' 将访问者计数器加一，并写入文件中 Application.UnLock L=len(cstr(counter)) for i=1 to 7-L counter="0"&counter next for i=1 to 7 n=mid(counter,i,1) Response.Write "
" next %>
版权所有：云南省红河州气象信息网络中心 策划制作：尹文有、张锦等
电话：0873-3722416,3723076 Email:ynhhmb@sina.com