<% Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString ="Provider=SQLOLEDB.1;Password=sctelecomtemp;User ID=sctelecom3;Persist Security Info=True;Initial Catalog=SCtelecom;Data source=localhost;Connect Timeout=15" conn.Open %> <% '我自己写的一些函数 '======================================================================================================== '比较两个字符串Str1和Str2,如果Str1包含Str2返回True,否则返回False Function CompString(Str1,Str2) If Instr(1,Str1,Str2,1) Then CompString=True Else CompString=False End If End Function '======================================================================================================== 'Str 要分解的String 'FirstLinkStr 第一个分解后的字符串的连接字符串前部 'LastLinkStr 最后一个分解后的字符串的连接字符串前部 'LinkStr1 非第一个分解后的字符串的连接字符串前部 'LinkStr2 分解后的字符串的连接字符串后部 '返回一个新的字符串 Function DeleaveString(Str,FirstLinkStr,LinkStr1,LinkStr2,LastLinkStr,Char) TempStr=Str If TempStr<>"" Then If Instr(1,TempStr,Char,1)<1 Then DeleaveString=FirstLinkStr&TempStr&LastLinkStr Else E=Instr(1,TempStr,Char,1) Strtmp=Left(TempStr,E-1) TempStr=Replace(TempStr,"","",E+1,1) DeleaveString=FirstLinkStr&Trim(Strtmp)&LinkStr2 Do While Instr(E,TempStr,Char,1) E=Instr(1,TempStr,Char,1) Strtmp=Left(TempStr,E-1) TempStr=Replace(TempStr,"","",E+1,1) DeleaveString=DeleaveString&LinkStr1&Trim(Strtmp)&LinkStr2 Loop DeleaveString=DeleaveString&LinkStr1&Trim(TempStr)&LastLinkStr End If End If End Function '======================================================================================================== '比较两个字符串,把相同的保留一个,组成一个新的字符串返回 Function CompLinkString(Str1,Str2,Char) TempStr1=Str1 TempStr2=Str2 If TempStr1<>"" Then If TempStr2<>"" Then If Instr(1,TempStr2,Char,1)<1 Then If Instr(1,TempStr1,TempStr2,1)<1 Then TempStr1=TempStr1&Char&TempStr2 End If Else Do While Instr(1,TempStr2,Char,1) E=Instr(1,TempStr2,Char,1) Str=Left(TempStr2,E-1) If Instr(1,TempStr1,Str,1)<1 Then TempStr1=TempStr1&Char&Trim(Str) End If TempStr2=Replace(TempStr2,"","",E+1,1) Loop Str=TempStr2 If Instr(1,TempStr1,Str,1)<1 Then TempStr1=TempStr1&","&Trim(Str) End If End If End If Else TempStr1=TempStr2 End If CompLinkString=TempStr1 End Function '======================================================================================================== '统计字符串中元素个数 Function CountElements(Str,Char) TempStr=Str If TempStr<>"" Then Count=0 If Instr(1,TempStr,Char,1)<1 Then CountElements=1 Else Do While Instr(1,TempStr,Char,1) Count=Count+1 TempStr=Replace(TempStr,Char,"",1,1) Loop CountElements=Count+1 End If Else CountElements=0 End If End Function '======================================================================================================== '取指定位置的字符串 Function GetElement(Str,Char,Num) TempStr=Replace(Str,"","") If TempStr<>"" Then Count=0 If Instr(1,TempStr,Char,1)<1 Then Count=1 Else Do While Instr(1,TempStr,Char,1) Count=Count+1 TempStr=Replace(TempStr,Char,"",1,1) Loop Count=Count+1 End If TempStr=Replace(TempStr,"",Char) If Count>1 Then If Num<1 Then GetElement="" End If If Num=1 Then GetElement=Left(TempStr,Instr(1,TempStr,Char,1)-1) End If If Num=Count Then For i=1 to Num-1 TempStr=Replace(TempStr,"","",Instr(1,TempStr,Char,1)+1,1) Next GetElement=TempStr End If If Num>Count Then GetElement="" End If If Num>1 And NumCountElements(Str,Char) Then GetElements="" Else If Total>=CountElements(Str,Char) Then GetElements=Replace(Str,Char,ChangeChar) Else GetElements="" For i=Start To Total+Start-1 GetElements=GetElements&GetElement(Str,Char,i)&ChangeChar Next GetElements=Left(GetElements,Len(GetElements)-1) End If End If End If End Function '======================================================================================================== '生成“全选”和“清除”按钮 'ForName 表单中Form的名字 'ElementName 表单中元素的名字 'Parameter 为1时只有“全选”按钮,为2时只有“清除”按钮,为3时有“全选”和“清除”按钮 Function ChkButton(FormName,ElementName,Parameter) If Parameter<=1 Or Parameter>=3 Then Response.Write "" Response.Write "" End If If Parameter>=2 Then Response.Write "" Response.Write "" End If End Function '======================================================================================================== '取指定两字符串之间的字符串 Function GetString(Str,FrontStr,BackStr) TempStr=Str If TempStr="" Then GetString="" Else If FrontStr="" Then If BackStr="" Then GetString=Trim(TempStr) Else If Instr(1,TempStr,BackStr,1) Then GetString=Trim(Left(TempStr,Instr(1,TempStr,BackStr,1)-1)) Else GetString="" End If End If Else If Instr(1,TempStr,FrontStr,1) Then If BackStr="" Then GetString=Trim(Mid(TempStr,Instr(TempStr,FrontStr,1)+1,Len(TempStr))) Else TempStr=Replace(TempStr,FrontStr,"",Instr(1,TempStr,FrontStr,1),1) If Instr(1,TempStr,BackStr,1) Then GetString=Trim(Left(TempStr,Instr(1,TempStr,BackStr,1)-1)) Else GetString="" End If End If Else GetString="" End If End If End If End Function '======================================================================================================== '日期和时间 'Parameter<=1 返回日期 'Parameter>1 返回日期和星期 'Parameter2 为2时返回的月、日长度为2 Function WeekDate(LinkString,Parameter,Parameter2) Y=Year(Date()) M=Month(Date()) D=Day(Date()) If Parameter2=2 Then If Len(M)=1 Then M="0"&M End If If Len(D)=1 Then D="0"&D End If End If Select Case WeekDay(Date()) Case 1 Week="星期日" Case 2 Week="星期一" Case 3 Week="星期二" Case 4 Week="星期三" Case 5 Week="星期四" Case 6 Week="星期五" Case 7 Week="星期六" End Select If Parameter="" Or Parameter<=1 Then If LinkString="" Then WeekDate=Y&"年"&M&"月"&D&"日" Else WeekDate=Y&LinkString&M&LinkString&D End If Else If LinkString="" Then WeekDate=Y&"年"&M&"月"&D&"日  "&Week Else WeekDate=Y&LinkString&M&LinkString&D&"  "&Week End If End If End Function '======================================================================================================== '取得明天的日期 'LinkStr 年月日之间的连接字符串 Function Tomorrow(LinkStr) ThisYear=Year(Date()) ThisMonth=Month(Date()) ThisDay=Day(Date()) If LinkStr="" Then LinkStr1="年" LinkStr2="月" LinkStr3="日" Else LinkStr1=LinkStr LinkStr2=LinkStr LinkStr3="" End If Select Case ThisMonth Case 1,3,5,7,8,10,12 If ThisDay+1<=31 Then Tomorrow=ThisYear&LinkStr1&ThisMonth&LinkStr2&ThisDay+1&LinkStr3 Else If ThisMonth=12 Then Tomorrow=ThisYear+1&LinkStr1&"1"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&ThisMonth+1&LinkStr2&"1"&LinkStr3 End If End if Case 2 If ThisYear\4=0 Then If ThisDay+1>29 Then Tomorrow=ThisYear&LinkStr1&"3"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&"2"&LinkStr2&ThisDay+1&LinkStr3 End If Else If ThisDay+1>28 Then Tomorrow=ThisYear&LinkStr1&"3"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&"2"&LinkStr2&ThisDay+1&LinkStr3 End If End If Case 4,6,9,11 If ThisDay+1<=30 Then Tomorrow=ThisYear&LinkStr1&ThisMonth&LinkStr2&ThisDay+1&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&ThisMonth+1&LinkStr2&"1"&LinkStr3 End if End Select End Function '======================================================================================================== Function FormatNum(Number) If Number<0 Then If Instr(1,Cstr(Number),".")=2 Then Number="-0."&Right(Cstr(Number),Len(Cstr(Number))-2) End If Else If Number<1 And Number>0 Then If Instr(1,Cstr(Number),".")=1 Then Number="0"&Cstr(Number) End If Else Number=Number End If End If FormatNum=Number End Function '======================================================================================================== '格式化日期 Function FormatDate(Str,Char,ChangeChar) If Str<>"" Then FormatDate="" For i=1 To CountElements(Str,Char) TmpStr=GetElement(Str,Char,i) If Len(TmpStr)<2 Then TmpStr="0"&TmpStr End If if i - CountElements(Str,Char)=0 then FormatDate=FormatDate&TmpStr else FormatDate=FormatDate&TmpStr&ChangeChar end if Next Else FormatDate="" End If End Function '======================================================================================================== Function IsSelected(Str,Str2,Out) If Str=Str2 Then IsSelected=Out End Function '======================================================================================================== Function NoSpac(Str) If Str="" Then NoSpac=" " Else NoSpac=Str End If End Function '======================================================================================================== '显示文本格式! function Text(strTemp) if strtemp<>"" then MessageText = server.htmlencode(strTemp) MessageText = replace(MessageText,"<","<") MessageText = replace(MessageText,">",">") MessageText = replace(MessageText,""","""") MessageText = replace(MessageText,chr(13),"
") MessageText = replace(MessageText,chr(32)," ") text=Messagetext end if end function '======================================================================================================== '-年-月-日的日期格式 Function DateCH(strTemp) if isdate(strTemp) then YYYY=Year(strTemp) MM=Month(strTemp) DD=Day(strTemp) DateCH=YYYY&"年"&MM&"月"&DD&"日" else DateCH=strTemp end if End Function '======================================================================================================== %> <% ID=trim(request("ID")) if not isnumeric(id) then response.write "您输入了错误的ID号" response.end end if set rs=Server.CreateObject("ADODB.RecordSet") %> 四川省电信有限公司
  首页 关于我们 企业动态 电信业务 网上客服中心 技术前沿 总经理信箱 品牌管理系统 English
用心,让信息服务更贴心——记全国劳动模范、江西九江电信员工向东

 

  编者按:江西九江电信员工向东,十几年如一日,全心全意为用户服务,赢得了社会各界的一致好评。作为中国电信的十大服务标兵,作为与时俱进的基层代表,向东的先进事迹再次吸引了许多中央级媒体和社会的关注。最近,新华社、人民日报、中央电视台、江西日报和本报等中央及江西省地方媒体的十多位记者,会聚江西九江,对向东事迹进行了采访。本报记者虽然曾对他用心服务的优秀事迹进行过多次报道,但每次采访都有新的收获。记者深深感到,向东不仅是适应改革、服务市场的典范,也是实践电信转型战略、服务信息时代的楷模。近两年在中国电信转型的大背景之下,他不断学习,不断创新,更加关注客户的需求,为更多的用户提供实用的信息服务的努力和探索,非常值得学习和传扬。

  在摆满各式金黄色荣誉证书的橱窗前,身着电信蓝工作服的向东面对记者的录音笔和相机,显得有些腼腆和紧张,然而,从他的脸庞和眼睛,看到的却是一种真诚、朴实的光彩。向东说:“这些证书是社会对我的认可,但是与这些看得见、摆得出的荣誉相比,用户心里对我的肯定和赞同更让我感动。”

  作为一名劳模,向东身上有许多动人的故事,这些故事,来源于他对用户的一份真心。从1992年参加电信工作以来,向东一直恪守着这样的信念:决不让电信失信。无论什么时候,只要用户有需要,就随叫随到。

  向东有一个“变与不变”的工作格言:变,就是不断跟着形势而变,不断转变思想观念,不断改变工作方式和服务手段;不变,是指爱岗敬业的态度不变,吃苦耐劳的精神不变,全心全意为用户服务的宗旨不变。

  当记者问:是什么促使你不断转变,创新服务方式和手段的呢?向东的回答很简单也很实在:“我是工作在一线的员工,我会面对用户提出的各种要求,我要接触各种新的东西,如果不学习不创新,怎么面对客户呢?”

  原来在向东看来,“变”的理由,是为了向用户提供更全面、更便捷的综合信息服务,是为了坚守对用户的“不变”。这简简单单的几个字,让我们看到了向东身上那股与时俱进的劲头和一心为客户着想的淳朴情怀,看到了他为“劳模”这个词语诠释出的新内涵。

  向东班的曹春江是个年轻的小伙子,在和记者谈到向东时,他说:“向经理是一个非常细心、对市场很敏锐的人。以前,向经理经常会问大家这样一个问题:你关心你的客户了吗?但自从企业转型之后,近年来向经理是这么问大家的:你关心你的客户的客户了吗?”曹春江讲了一件他印象深刻的事情:去年年末,九江一家名叫“百度眼镜直通车”的店准备在元旦期间开张,在为客户办理800业务的时候,向东向该店的王总建议,可以通过电信公司的短信群发功能,向有针对性的人群,比如学生群体发送相关信息,王总欣然同意,爽快地定制了10万条短信,向东又为该店提供了设计短信内容的服务,这种细心的服务,让对方既满意又惊喜。

  九江深燃是深圳天然气公司在九江投资建设的一家国有控股公司,截至去年年底,已在九江市发展2万余天然气用户。2007年春节前的一天,向东和同事来到该公司介绍短信和电话拜年业务。在与对方的沟通中,向东发现,该公司目前通过银行实现的查询、咨询和缴费等服务很难满足客户的多种需求。可不可以用信息化的手段来解决这个问题?向东开始了思考。三天后,带着一套解决方案,向东再次来到了深燃公司,他在方案中建议,通过人工平台、自动平台和上网查询三套系统,为客户提供应缴费用、余额等信息。深燃公司的方副总看完方案后非常高兴,就在洽谈快要结束的时候,向东试探性地问:“方总,据我观察发现,您的客户最大的担忧就是天然气泄漏问题,我们有一项‘电话看家’业务,可以为您的客户实现实时电话报警。”方副总听后表现出很大的兴趣。为了让客户放心,向东专程去深圳考察了“电话看家”业务的监测终端,回来后,连夜向公司领导写了“大力发展电话看家业务”的建议报告,得到了公司领导的同意,并任命他为“电话看家”业务推进组副组长。随后,向东又赶往广西学习,将广西“电话看家”业务可行的运营模式引入九江。

  佳丽数码洗印中心是九江一家专业的数码照片冲洗店,该店老板对向东早有耳闻,有一次他对向东抱怨说,店里的上网速度很慢,有没有什么解决办法。向东细心了解这家店的情况,发现虽然佳丽数码店面不大,却是九江各县乃至湖北省数码影楼的一个专业冲洗集散点,每天都有几百张照片通过QQ接收,因此才造成网速慢的现象。凭借敏锐的市场触感和熟练的业务知识,向东很快为客户拟订了一套“一揽子解决方案”:为客户搭建一个洗印中心网站,将服务器设在电信IDC机房,各数码影楼配备管理账号,同时接入百兆光纤提高访问速度,如此一来,不仅可以解决现存效率低的问题,还能在网上宣传佳丽数码的服务品牌,甚至可以结合速递服务,吸引数码爱好者通过网络实现数码冲印,从而带来新的客户源,打造了一个全新的价值链,向东的方案也很快得到佳丽数码的首肯。

  正是这种“用心”,向东不仅为企业,更为客户的价值不断增值。用他的话来说就是:“基层员工要适应转型这个大方向,要更好地满足客户的需求,要为更多的客户创造更多的价值,使企业价值和客户价值共同成长。”也正是这种“用心”,让向东在九江百姓的眼里,成为一种服务品牌,向东服务就是诚信服务、亲情服务、快乐服务、创新服务。而且,随着中国电信转型的深入推进,信息增值业务的不断丰富,向东服务还在不断被赋予新的内涵,他将为九江老百姓带来更多更便捷的信息化服务。

 
中国电信
<%set rs=nothing%> <% conn.close set conn=nothing %>

版权所有-四川省电信有限公司 
Copyright(C) SICHUAN TELECOM COMPANY LIMITED. All rights reserved
本网站由
天府热线设计制作