北京道维税务师事务所！

<% countfile=server.mappath("counter/people.asp") Set fs=CreateObject("Scripting.FileSystemObject") n=Year(date()) y=Month(date()) r=Day(date()) s=Hour(time()) f=Minute(time()) m=Second(time()) if len(y)=1 then y="0" & y if len(r)=1 then r="0" & r if len(s)=1 then s="0" & s if len(f)=1 then f="0" & f if len(m)=1 then m="0" & m sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m dim ly() Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop thisfile.close sameip=0 for i=1 to (countly-1)/2 if DateDiff("s",ly(i*2),sj)>60 then ly(i*2-1)="" ly(i*2)="" countly=countly-2 end if if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then sameip=1 ly(i*2)=sj end if next set outfile=fs.CreateTextFile(countfile) for i=0 to countly-1 if ly(i)<>"" then outfile.WriteLine ly(i) end if next if sameip=0 then outfile.WriteLine Request.ServerVariables("REMOTE_ADDR") outfile.WriteLine sj outfile.Close end if Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop thisfile.close total=(countly-1)/2 %>

Tel: 010-64480202　64480303

北京道维税务师事务所2007年度企业所得税汇算清缴培训会议通知

北京道维税务师事务所定于2007年12月12日下午1：30在北京国林宾馆（五层第一会议室）召开2007年度企业所得税汇算清缴政策辅导会，会期半天，敬请贵企业财务人员参加。

会议地址：和平里七区24号楼（国林宾馆）：乘104快车和平里北站下车路北小区内；地铁5号线和平里北街站下车东行50米路北小区内。

北京道维税务师事务所

联系电话：64480303

联系人：牛琳

2007-12-4

公司简介　　领导致辞　　所长简历　　服务承诺　　联系方式

业务联系电话：(010) 64480202 64480303

版权所有　北京道维税务师事务所
联系网管