<% 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
贵州电信学生客户品牌建设初见成效

 

  2006年,作为加强学生客户群市场深度营销的主要举措,贵州电信创立了“青春动力”品牌。通过开展大学生三人篮球赛、大学生创业计划和十大校园歌手大赛等系列活动,加大了品牌培育意识,为“青春动力”下一步的持续发展奠定了坚实基础,积蓄了充沛的力量。

  2006年4月推出的“青春动力”是贵州电信专门针对学生为主的青年用户群体特点和需求量身打造的客户品牌。它“自信、自豪、自立、自强”的品牌内涵是当下青年学子彰显个性但不失自我,紧跟时尚但不忘拼搏,追求积极健康、有理想、有抱负的生活方式的最佳诠释;同时也是贵州电信统领校园业务推广的旗帜,通过小灵通、互联网应用、电信卡以及灵通短信、七彩铃音等多项增值业务的捆绑组合,以个性化套餐的形式,为青年学生提供价格实惠、流行时尚的通信方式。“明天看我的”口号,以一种不可抗拒的青春力量着实吸引新着这些充满理想,编制自己七彩人生的青年学子们加入进来。

  品牌推广和延伸

  在产品同质化程度越来越高的今天,当品牌文化与消费者内心认同的文化和价值观一旦产生共鸣时,这种力量就显得非常强大。2004年3月份,贵州电信对青少年生活形态和心理需求作了认真调查与透彻了解发现,在通信需求上,他们是电信新业务和新产品的主要消费群体和带动群体,个人通信消费需求旺盛,具备相当的价值贡献。纵观当前大学生的年龄组成,都是80年代中后期的人群,追求个性、推崇品牌,对自己认可的品牌有一种近乎虔诚的追随和崇拜,从NIKE、动感地带在青年学子中的受欢迎程度可见一斑,贵州电信必须紧紧抓住这一特征,推出自己深受学生群体喜爱的客户品牌才能以意识的感召力助推校园业务的长足发展。

  走品牌道路,贵州电信在校园市场开拓道路上迈出了历史性的一步。品牌名称什么?用什么样的logo?传递怎样的品牌内涵?这些都是品牌建设之初必须明确的问题。为此省电信公司开始策划学生客户品牌选名、标识设计、名牌口号设计等相关工作,并在贵州大学、贵州大学艺术学院、贵州师范大学三所学校组织了选名活动,通过现场填写调查问卷的形式对15个备选名称进行选名,经过讨论并最终选定“青春动力”为贵州电信学生客户品牌名称。4月中旬,“青春动力”学生客户品牌正式诞生,“明天看我的”作为品牌口号,同时赋予了青春动力“自信、自豪、自立、自强”的文化内涵,意味着一种青春的力量,推动着我们去追求未来的成功、去追逐生活的时尚。

  “青春动力”品牌推出后,贵州电信联合共青团贵州省委在全省31所高校中开展了一系列精彩健康的主题活动,不断给这个品牌注入更深的内涵。大学生三人篮球赛拉开了“青春动力”在校园推广的活动序幕;创业计划勤工俭学活动成为在校学生提供了一个参与社会实践、提高自我综合素质的平台;十大校园歌手大赛则是“青春动力”品牌推广活动的顶峰,全省16000多名选手参与到比赛当中,成功地将“青春动力”品牌形象展示在社会大众面前。这些展示青春风采的活动与大学生的生活具有较高相关性,“青春动力”以主动出击的姿态将学生精英推上舞台,使他们成为品牌的传播者,以独具内涵的方式演绎了“明天看我的”的品牌个性。同时,省电信公司还与团省委联合设立了“青春动力创业基金”,积极为贵州青年创业立业营造良好的发展环境和氛围。这些活动引起了贵州电视台、贵州音乐广播、腾讯、搜狐、滚石等媒体的广泛关注。

  品牌辐射和效应

  为构建高校市场可持续发展的营销模式,利用提升“青春动力”品牌影响力,扩大校园市场份额,丰富品牌感知,贵州电信整合各类资源,统一策划、统一组织开展“青春动力”校园营销活动。各分公司积极地落实了人员、物料、培训、渠道动员、现场宣传、进场公关等系列工作,较好地执行了全省的统一部署,确保了活动顺利落地。

  在全年各项活动开展期间,各分公司均组织开展了“青春动力”校园营销活动,期间针对校园用户推出的青春动力校园卡、青春动力QQ卡套餐进行了彩铃、短信、本地亲情号码、长途亲情号码、腾讯移动QQ、Q币等业务和功能的组合捆绑,增加产品吸引力,明显提高小灵通在校园内的市场份额,扩大了用户规模。

  活动现场也是我们业务推广的阵地,篮球赛、歌手赛,走进高校只见 “青春动力”宣传彩球迎风飞舞,色彩艳丽的横幅及炫目的海报将校园充满了青春的气息,促销帐篷扎营其中,搭建成声势浩大的促销平台。在促销现场一边是公司员工纷纷走出帐篷,向过往师生派发传单,互动交流,师生纷纷驻足,询问相关信息,并当场办理。激情投入结出硕果:在2006年新生入校的营销现场出现了许久未遇的学生排队办理小灵通、终端脱销的情况,201异型卡、英语卡为电信卡市场注入了新颖元素,体现出校园电话卡市场的差异化竞争优势。全省全年共计发展“青春动力”小灵通近5万户、销售电信卡一千多万元,小灵通在高校的市场占有率由年初的8%左右提升至20%以上。

  整合资源,打造渠道,确保营销策略落地。贵州2006年暑期开展的大学生勤工俭学活动可以看成是对当前高校学生资源的创造性整合,活动充分利用在校学生这一充满活力和激情的群体参与到公司一线各项市场工作中去,一方面为日后企业在校内进行业务营销做了一定人员储备,也为广大学子提供宝贵的社会锻炼和实践的机会,受到同学们的欢迎。下半年开始的青春动力校园形象店的建设更将校园营销渠道的拓展向前推进了扎实一步,贵州电信校园营销、推广将依托这一桥头堡走上日常化、深入化。

  2007年,贵州电信将继续加大“青春动力”的宣传力度,丰富品牌文化、张扬品牌个性、深化品牌内涵,让“青春动力”健康、活力、积极、成功、时尚的品牌诉求根植在学生客户群中,并与综合信息服务结合起来开展形式多样的推广活动,为“青春动力”品牌注入更多实质性内容。

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

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