:: 武义气象信息网 ::

◇设为首页◇

◇加入收藏◇

◇联系我们◇

首　页　

气象政务

天气预报

天气实况

农业气象

气象法规

气象科普

防雷管理

服务定制

历史资料

<% dim datafile2 '读文本文件 strScroll=""'"欢迎来到武义气象信息服务网站" '滚动栏信息 ' datafile2=server.mappath("/database/sk64201.txt") set myfileobject=server.createobject("scripting.filesystemobject") datafile2=server.mappath("/database/zxfb.txt")'最新气象信息发布 set mytextfile=myfileobject.opentextfile(datafile2) sumhang=0 '行数sumhang b="" while not mytextfile.atendofstream aa=trim(mytextfile.readline) if aa<>"" then b=b+aa sumhang=sumhang+1 end if wend mytextfile.close if sumhang<>0 then strScroll=trim(strScroll+b) end if datafile2=server.mappath("/database/zjgx.txt")'网站最近更新 set mytextfile=myfileobject.opentextfile(datafile2) sumhang=0 '行数sumhang b="" while not mytextfile.atendofstream aa=trim(mytextfile.readline) if aa<>"" then b=b+aa sumhang=sumhang+1 end if wend mytextfile.close if sumhang<>0 then if strScroll="" then strScroll=trim(strScroll+b) else strScroll=trim(strScroll+"　　　　　　　　"+b) end if end if datafile2=server.mappath("/database/gdlxx.txt")'滚动栏信息 set mytextfile=myfileobject.opentextfile(datafile2) sumhang=0 '行数sumhang b="" while not mytextfile.atendofstream aa=trim(mytextfile.readline) if aa<>"" then b=b+aa sumhang=sumhang+1 end if wend mytextfile.close if sumhang<>0 then if strScroll="" then strScroll=trim(strScroll+b) else strScroll=trim(strScroll+"　　　　　　　　"+b) end if end if if strScroll="" then strScroll="欢迎来到武义气象信息服务网站" set mytextfile=nothing set myfileobject=nothing response.write(""+strScroll+"") '上一行是用于滚动文字的 %>

防雷管理

投诉举报

投诉、举报电话：　0579-7643073

投诉举报电子信箱：qxtwy@163.com

　　严正声明：　本站内容未经许可不得转载，否则依法追究责任!

ZHF.WuYi.ZheJiang.China

Email:hotwin@163.com　Tel:0579-7643059