<%
countlong=8
On Error Resume Next
count=server.mappath("jsq\count.txt")
set cou=server.createobject("scripting.filesystemobject")
set out=cou.opentextfile(count,1,true,false)
counter=out.readline
out.close
'if (session("in")<>"in") then
'session("in")="in"
set out=cou.createtextfile(count,true,false)
application.lock
counter=counter+1
out.writeline counter
application.unlock
out.close
'end if
co=cstr(counter)
for i=1 to countlong-len(co)
response.write "

"
next
for i=1 to len(co)
num=mid(co,i,1)
response.write "

"
next
%>
陕西省无线电管理委员会主办
地址:省政府大院机关工委4楼
电话:(029)87291915 传真:(029)87291554
建议使用 800*600 分辨率浏览