<% 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 分辨率浏览