%
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
%>
|
联系方式
|
|
服务承诺
|
|
一、文明礼貌,热情服务
-
员工使用文明用语,全面开展微笑和礼仪服务。
-
客户来访要让座、倒水、礼貌待客,使客户有宾至如归的感觉。
-
对客户提出的问题认真、耐心地解答,直至客户满意为止。
-
员工工作时间内做到:不使用服务禁语;不接打私人电话;不在工作场所吸烟;不擅自离岗。
-
环境整洁、窗明几净,桌面、地面无灰尘纸屑,物品摆放整齐,工作场所无杂物。
二、保证质量、优质服务
-
对客户委托业务时所送的资料,造册登记,并由专人妥善保管,做好保密工作。
-
对客户委托的业务,及时迅速安排专业人员专人办理,并负责与客户联系,以确保服务质量。
-
代理业务期间,随时与客户沟通,满足客户需要了解的情况。
-
如客户因特殊情况,不能取送资料,我公司员工将负责上门服务。
-
免费提供与财税政策有关的各种公开信息咨询及宣传材料。
-
提供其他可能的帮助。
三、保证信誉、高效服务
-
办理业务实行限时服务。(各部门根据不同业务,规定和承诺限时标准)。
-
与社会正常作息时间同步,视需要亦可延长服务时间。
四、合规经营
-
认真执行国家财税政策,杜绝违法违规行为,自觉接受监督。
|
|
欢迎社会各界对我公司上述承诺给予监督
|
|
|
|
|
Copyright © 2001-2002 sinotax.com
All Rights Reserved
|
|
|