<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>

<% Dim convertWeek convertWeek=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六") response.write "今天是" & year(now) & "年" response.write month(now) & "月" & day(now) & "日, " response.write convertWeek(WeekDay(now)-1) %> ‖设为首页‖收藏本站‖

首　页 潮州交警 行政许可 办事指南 信息查询 交管信息 交通法规 安全天地 交警风采

交通标志 警告标志 禁令标志 指示标志 指路标志 旅游标志 指示标线 禁止标线 警告标线 道路施工安全标志		道路施工安全标志
	通告道路施工区通行的标志。 施6 前方施工 施7 前方施工 施8 道路施工 施9 道路封闭 施10 道路封闭 施11 道路封闭 施12 右道封闭 施13 右道封闭 施14 右道封闭 施15 左道封闭 施16 左道封闭 施17 左道封闭 施18 中间封闭 施19 中间封闭 施20 中间封闭 施21 车辆慢行 施22 向左行驶 施23 向右行驶 施24 向左改道 施25 向右改道

潮州交警     行政许可    办事指南    信息查询    交警信息     交通法规     安全天地    交警风采

Copyright©2005 潮州市公安局交警支队 版权所有 地址：潮州大道北端富丽公园西侧　电话：(0768)2852188 潮州市名城信息科技有限公司 提供技术支持　浏览分辨率：1024×768 800×600 粤ICP备06031769号 <% Const ForReading = 1, ForWriting = 2, ForAppending =3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 filepath=server.mappath(".") filename=filepath+"\counter.txt" set fs=createobject("scripting.filesystemobject") if fs.fileexists(filename) then set f=fs.getfile(filename) Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s=ts.readline+1 ts.close else fs.createtextfile(filename) set f=fs.getfile(filename) s=1 end if '鍚慶ounter.txt涓�鍐欐暟鎹� Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.writeline(cstr(s)) ts.close '鏄剧ず璁℃暟鍣? s=cstr(s+1000000) s=mid(s,2,6) for i=1 to 6 response.write "" next %>