<%=m_pl(rid)%>-网络直播--北京广播网

<% Session("auth") = True Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" On Error Resume Next rid = request("id") if rid="" then rid = 0 end if rid = CInt(rid) if rid<0 OR rid >16 Then rid = 0 end if '定义各频率图标 dim m_logo(16) m_logo(0) = "images/xinwenlogo.jpg" m_logo(1) = "images/jingjilogo.jpg" m_logo(2) = "images/jiaotonglogo.jpg" m_logo(3) = "images/wenyilogo.jpg" m_logo(4) = "images/tiyulogo.jpg" m_logo(5) = "images/yinyuelogo.jpg" m_logo(6) = "images/shenghuologo.jpg" m_logo(7) = "images/waiyulogo.gif" m_logo(8) = "images/rbclogo.jpg" m_logo(9) = "images/rbclogo.jpg" m_logo(10) = "images/rbclogo.jpg" m_logo(11) = "images/rbclogo.jpg" m_logo(12) = "images/rbclogo.jpg" m_logo(13) = "images/rbclogo.jpg" m_logo(14) = "images/rbclogo.jpg" m_logo(15) = "images/rbclogo.jpg" m_logo(16) = "images/qingmenglogo.jpg" dim m_pl(16) m_pl(0) = "北京新闻广播" m_pl(1) = "北京城市管理广播" m_pl(2) = "北京交通广播" m_pl(3) = "北京文艺广播" m_pl(4) = "北京体育广播" m_pl(5) = "北京音乐广播" m_pl(6) = "首都生活广播" m_pl(7) = "北京外语广播" m_pl(8) = "古典音乐广播" m_pl(9) = "通俗音乐广播" m_pl(10) = "教学广播" m_pl(11) = "文学影视广播" m_pl(12) = "戏曲综艺广播" m_pl(13)= "欢乐时光" m_pl(14) = "怀旧金曲" m_pl(15) = "爵士音乐" m_pl(16) = "青檬网络电台" dim week(7) week(1) = "周日" week(2) = "周一" week(3) = "周二" week(4) = "周三" week(6) = "周四" week(6) = "周五" week(7) = "周六" dim curdate curdate = Year(Date()) & "年" & Month(Date()) & "月" & Day(Date()) & "日" & " " & week(Weekday(Date())) %> <%=m_pl(rid)%>-网络直播--北京广播网

首页

新闻广播	首都生活	城市管理	交通广播	文艺广播	体育广播
音乐广播	外语广播	古典音乐	通俗音乐	教学广播	长书广播
青檬电台	戏曲曲艺	欢乐时光	怀旧金曲	爵士音乐

----------------------------------------------------------

DJ推荐： 更多>>>>


大鹏	王一

王力宏	陈奕迅	花儿乐队
羽泉	徐若瑄	佟大为

李宇春	飞儿乐团	阿杜	周笔畅
S.H.E.组合	王杰	容祖儿	范玮琪
周传雄	沙宝亮	林志颖	任贤齐
张惠春	张韶涵	余文乐	阿牛
陈好	陈弈迅	張靚穎	谢霆锋