<% TABBG1="images\index012.jpg" TABBG2="images\index012.jpg" if date<>cdate(gxdate) then response.redirect "system/newindex.asp" usna=REQUEST.COOKIES("USERname") if usna<>"" and session("username")="" then response.redirect "system/user/autologin.asp" end if %>

　

　

　

自2005年3月新注册业务17996开通以来，业绩飞速增长，2005年12月公司新业务月流量已突破700万大关，受到铁通北分领导高度赞赏！

　

　

当前位置 >>北京民旭通通讯设备销售有限公司

公司简介

北京民旭通通讯设备销售有限公司，是一家专注于通信服务的高新技术企业，是中国铁通北京分公司的主要业务合作伙伴，公司秉承现代化企业经营理念，积极参加电信市场竞争，配合铁通，努力为社会公众提供质优的电信服务。

公司拥有一只高素质、经验丰富的管理和业务团队，现拥有直销人员3600余人，现每月ＩＰ话费流量在2000万以上，其中注册业务约占总流量的４０％。有1/3的客户是企业客户。

我公司将以认真的工作态度，自觉接受行业管理及社会各界的监督。在广大用户的厚爱与支持下，公司业绩正在稳定快速的增长。

　　

企业营业执照

　

　

服务介绍

卡类服务

　

17995 都市通

　

功能：

主叫绑定，余额转移，支持 ISDN、实现一卡多机同时呼叫。

覆盖范围：

国内长途全覆盖（包括异地的所有固定电话和移动电话），国际 127 个国家和地区。

拨打方式：

二次拨号：（相关功能请按语音提示操作）
17995+ 帐号 #+ 密码 #+ 长途区号 + 被叫号码 #

资费标准：

IP 长途资费标准见下表：

　

拨打地区

17995都市通资费标准

国内长途

0.3 元 / 分钟

香港、澳门、台湾

1.5 元 / 分钟

美国、加拿大

2.4 元 / 分钟

其他国家和地区

3.2 元 / 分钟

注：以上费用不含市话接入费

主叫服务

　

17996

　

通话清晰、适用于所有固话、传真、移动电话、提供电子话单

覆盖范围：

国内长途全覆盖（包括异地的所有固定电话和移动电话），国际 127 个国家和地区。

拨打方式：

17996+ 长途区号 + 被叫号码
（未拨通不收市话费）

资费标准：

IP 长途资费标准见下表：

　

拨打地区

17996资费标准

国内长途

0.3 元 / 分钟

香港、澳门、台湾

1.5 元 / 分钟

美国、加拿大

2.4 元 / 分钟

其他国家和地区

3.2 元 / 分钟

注：以上费用不含市话接入费

　

中国铁通17995/6电信服务中心

北京民旭通通讯设备销售有限公司

地址：北京宣武区马连道11号一商大厦923室

E-mail：ip17996@126.com

电话：010-51657789京ICP备05048183号

　

<% conn.close set conn=nothing function ReadText(FileName) '这是一个用于读出文本文件的函数 set adf=server.CreateObject("Adodb.Stream") if instr(filename,":\")<>0 then path=filename else path=server.MapPath(FileName) end if with adf .Type=2 .LineSeparator=13 .Open .LoadFromFile (path) .Charset="GB2312" .Position=2 ReadText=.ReadText .Cancel() .Close() end with set adF=nothing end function function downmenulist(Mn1,Mjb) '此函数用于检测某一栏目下的一级子栏目列表,如有子栏目,存于一数量中,如没有,返回为空,第一个参数是栏目名,第二个是栏目级别 MJB=MJB MN=MN1 dim rsdown1 dim mymenulist(100,6) sql="select id,menuname,栏目管理员,挂接表,不准复制,栏目简介 from menu where menuup='"&Mn&"' and jb='"&Mjb&"' order by menuname" Set rsdown1=Server.CreateObject("ADODB.RecordSet") 'Response.Write sql rsdown1.Open sql,conn,1,1 if rsdown1.eof then mymenulist(0,1)="" else i=0 '以下为四个反回的四列,第一列,栏目名,第二,ID,第三,管理员,第四,是否可复制,第五,栏目简介,第六,挂接的表 do while not rsdown1.eof mymenulist(i,1)=rsdown1("menuname") mymenulist(i,2)=rsdown1("ID") mymenulist(i,3)=rsdown1("栏目管理员") mymenulist(i,4)=rsdown1("不准复制") mymenulist(i,5)=rsdown1("栏目简介") mymenulist(i,6)=rsdown1("挂接表") i=i+1 rsdown1.movenext loop end if rsdown1.close downmenulist=mymenulist end function SUB menuindisp(str,en,ls) '三个参数的意思分别是: 起始的栏目，结束的栏目,单列还是双列 menu=downmenulist("",1) if ls="单" then ls=1 else ls=2 end if for i=str to en Response.Write "" for ii=1 to ls if menu(i,1) ="" then exit for if bttou<>"YES" then '以下是显示一个项目的头部分 Response.Write "

" Response.Write "" Response.Write " " Response.Write " " ' 以上是显示一个项目的头部分 Response.Write "

" Response.Write " "&mid(menu(i,1),4,50)&"" Response.Write "

" else Response.Write "

" end if '以下是显示一个项目的内容部分 Response.Write "

"&readtext("gx/IN"&i&".htm")&"

" ' 以上显示一个项目 if ii<>ls then i=i+1 next Response.Write "

" next END SUB SUB menuCindisp(ls) '参数的意思单列还是双列 menu=CMENU() if ls="单" then ls=1 else ls=2 end if for i=0 to MENU(0,3) Response.Write " " for ii=1 to ls if menu(i,1) ="" then exit for if bttou<>"YES" then '以下是显示一个项目的头部分 Response.Write "

" Response.Write "" Response.Write " " Response.Write "

" Response.Write " "&mid(menu(i,1),4,50)&"" Response.Write "

" '以上是显示一个项目的头部分 else Response.Write "

" end if '以下是显示一个项目的内容部分 Response.Write "

"&readtext("gx/cIN"&i&".htm")&"

" '以上显示一个项目 if ii<>ls then i=i+1 next if i=menu(0,3) then end if Response.Write "

" next END SUB function CMENU() '反回所有设置有要在首页更新的子栏目 sql="select * from menu where 不准复制=1 order by menuname" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,1 DIM MEN(30,7) CI=0 DO WHILE NOT RS1.EOF MEN(CI,1)=RS1("MENUNAME") MEN(CI,2)=RS1("ID") men(ci,3)=rs1("栏目管理员") men(ci,4)=rs1("不准复制") men(ci,5)=rs1("栏目简介") men(ci,6)=rs1("挂接表") RS1.MOVENEXT CI=CI+1 LOOP MEN(0,3)=RS1.recordcount RS1.CLOSE CMENU=MEN END function sub dispmenu(str,en) '用来显示栏目导航 Response.Write " " for i=str to en Response.Write "" next Response.Write "

" Response.Write readtext("gx/menu"&i&".htm") Response.Write "

" end sub SUB disp_PHB(SN) sql="select top "&sn&" * from filephb order by -filesn" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,1 Response.Write "" do while not rs1.eof Response.Write "" rs1.movenext loop Response.Write "

作者	发文数
"&RS1("USERname")&"	"&rs1("filesn")&"

" rs1.close end sub %>