<%@ CODEPAGE = "936" %>
<!--#include file="conn.asp"-->
<%
  dim rs
  set rs = server.createobject("adodb.recordset")
%>
<HTML><HEAD><TITLE>伊龙在线--网络电台</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<script language="javascript">
		<!--
		function Listen(ListenURL)
		{
		var Listen = window.open(ListenURL,"Listen","scrollbars=no,width=306,height=116");
		return false;
		}
		function Listci(ListenURL)
		{
		var Listci = window.open(ListenURL,"listci","scrollbars=yes,width=440,height=500");
		return false;
		}
		function Listhelp(ListenURL)
		{
		var Listhelp = window.open(ListenURL,"listhelp","scrollbars=yes,width=550,height=500");
		return false;
		}
function popwin2(id)
{		window.open("review.asp?id="+id,"","height=500,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
		//-->
</script>
<link rel="stylesheet" href="images/index.css" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
body,td,th {
	font-size: 9pt;
}
a:hover {
	color: #FF6600;
}
-->
</style>
</HEAD>
<BODY bgColor=#FFFFFF text=#000000 link=#000000 vLink=#FF0000 aLink=#006600 leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
    
        <tr> 
          <td background="images/bg.gif"> 
            <div align="center">
              <table width="777" border="0" cellpadding="0" cellspacing="0" bgcolor="#f1f1f6">
        <tr> 
                  <td>
                    <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  
                <td width="44"><img name="n1_r8_c1" src="images/1_r8_c1.jpg" width="44" height="168" border="0" alt=""></td>
                  
                <td width="303"><img src="images/index_nj_r1_c2.gif"></td>
                <td width="403" rowspan="2" valign="top"> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                        <td bgcolor="#FFFFFF" height="31"><img name="n1_r4_c4" src="images/1_r4_c4.jpg" width="257" height="31" border="0" alt=""></td>
                    </tr>
                      <tr> 
                        <td valign="top" height="124"> 
                          
                        <table width="96%" border="0" cellspacing="2" cellpadding="2">
                          <tr> 
                              
                          <td><marquee behavior=right height=16 
                              scrollamount=2 scrolldelay=0 width=360 
                              border="0"> <font color=#ff0000>电台及时播报：</font>伊龙在线网络电台正式开播   
                            电台导播QQ:183812750 收听指南：请您注意节目播出预告&nbsp;节目时间内请点击下方播放键，如您不能收听,或下方无法显示,请<a        
                              href="http://www.xhgw.net/download/real.exe">.点击这里.<font color="#F9080E"></a>下载<font color="#F9080E">REALPLAYER播放软件，收听过程中如有中断，请重按频道键，导播QQ：183812750                            </marquee></td>
                          </tr>
                            <tr> 
                              <td>
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr> 
                                    <td width="10">&nbsp;</td>
                                    <td> 
                                      <%   
	sql="select top 1 "   
	sql=sql&"njnews.id,njnews.newsname,njnews.addtime,njnews.newsnote "   
	sql=sql&" from njnews  "   
	sql=sql&" order by njnews.id desc"   
	rs.open sql,conn,1,1   
	if rs.eof and rs.bof then   
%>
                                      <%else%>
                                      <%do while not rs.eof%>
                                      <%=rs("newsnote")%> 
                                      <%if rs("addtime")>=date() then%>
                                      <%else%>
                                      <%end if%>
                                      <%                                                                                                
	rs.movenext   
	loop   
	end if   
	rs.close   
%>
                                    </td>
                                    <td width="10">&nbsp;</td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                            <tr> 
                              <td height="98"> 
                                <table width="100%"  border="0" cellspacing="0">
                                  <tr>
                                    <td><div align="center" class="style1">伊龙在线电台全新更新!向各位听众提供一个全新面貌!</div></td>
                                  </tr>
                                </table>
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr> 
                                    <td width="10">&nbsp;</td>
                                    
                                  <td>台&nbsp;&nbsp;长： DGDU.COM (QQ:183812750)<br>
                                    副台长：陈浩 (QQ:200799) 绝恋BABY (QQ:13628936)<br>
                                    监&nbsp;&nbsp;制： DGDU.COM</td>  
                                    <td width="10">&nbsp;</td>
                                  </tr>
                              </table>                              </td>
                            </tr>
                          </table>
                      <tr>
                        <td valign="top" height="34"><div align="center">
                          <div align="center">
                            <OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=60 id=video1 width=275>
                              <PARAM NAME="controls" VALUE="StatusBar,ControlPanel">
                              <PARAM NAME="console" VALUE="Clip1">
                              <PARAM NAME="autostart" VALUE="true">
                              <PARAM NAME="src" VALUE="6.mp3">
                              <embed src="2.mp3" tppabs="1.mp3" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" height=60 width=275 autostart=true> </embed>
                            </OBJECT>                         
                          </div>
                  </table>
                  </td>
                </tr>
                <tr>
                  <td height="156"><img name="n1_r8_c5" src="images/1_r8_c5.jpg" width="43" height="156" border="0" alt=""></td>
                  <td><div align="center">
                    <%
	sql="select top 1 "
	sql=sql&"news.id,news.newsname,news.addtime,news.newsnote "
	sql=sql&" from news  "
	sql=sql&" order by news.id desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
                    <%else%>
                    <%do while not rs.eof%>
                    <%=rs("newsnote")%>
                    <%if rs("addtime")>=date() then%>
                    <%else%>
                    <%end if%>
                    <%                                                                                             
	rs.movenext
	loop
	end if
	rs.close
%>
                  </div></td>
                </tr>
              </table>
                    <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td> 
                    
                  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                        <td valign="top" bgcolor="#FFFFFF"> 
                          
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                              
                            <td height="29" colspan="2" background="1.gif"><div align="center">:::新歌试听:::</div></td>
                              
                            <td width="257" background="1.gif"><div align="center">:::歌曲排行:::</div></td>
                          </tr>
                            <tr> 
                              
                            <td height="187" bgcolor="#FFFFFF" width="267"> 
                              <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                  <tr> 
                                    <td> 
                                      <%    
	sql="select top 14 "    
	sql=sql&"download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid,Nclass.Nclass "    
	sql=sql&" from download,Nclass where download.Nclassid=Nclass.Nclassid "    
	sql=sql&" order by download.dateandtime desc"    
	rs.open sql,conn,1,1    
	if rs.eof and rs.bof then    
%>
                                      <font size="2">&nbsp; </font> 
                                      <p align="center"><font size="2">没有   
                                        <%else%>
                                        <%do while not rs.eof%>  
                                        </font>
                                    </td>
                                  </tr>
                                  <tr> 
                                    <td>&nbsp;<img border="0" src="images/jian.gif"><a href="play.asp?id=<%=rs("id")%>" onClick='return Listen(this.href);'><%=rs("bb")%></a> 
                                    </td>
                                  </tr>
                                  <%   
	rs.movenext   
	loop   
	end if   
	rs.close   
     %>
                              </table>
                              </td>
                              
                            <td width="6" background="images/1_r10_c7.jpg" bgcolor="#FFFFFF">&nbsp;</td>
                            <td bgcolor="#FFFFFF" width="257"> 
                              <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                <%                      
	sql="select top 14 id,bb from download "                      
	sql=sql&" order by hits desc"                      
	rs.open sql,conn,1,1                      
	if rs.eof and rs.bof then   
%>
                                <%else%>
                                <%do while not rs.eof%>
                                <tr> 
                                  <td>&nbsp;<img src="images/jian.gif" border="0"><a href="play.asp?id=<%=rs("id")%>" onClick='return Listen(this.href);'><%=rs("bb")%></a> 
                                  </td>
                                </tr>
                                <%   
	rs.movenext                                        
	loop                                        
	end if                                        
	rs.close                                        
%>
                              </table>
                            </td>
                            </tr>
                            <tr> 
                              
                            <td height="31" colspan="2" background="1.gif"><div align="center">:::论坛新贴:::</div></td>
                              
                            <td width="257" background="1.gif"><div align="center">:::休闲娱乐新贴:::</div></td>
                            </tr>
                            <tr> 
                           <td height="201" bgcolor="#FFFFFF"><table width="100%"  border="0">
                             <tr>
                               <td><script src=../bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=13&sdate=&orders=4&info=3&action=0&reply=0&showpic=0>
</script></td>
                             </tr>
                           </table>
                              </td>
                              <td height="201" background="images/1_r10_c7.jpg" bgcolor="#FFFFFF">&nbsp;</td>
                              <td bgcolor="#FFFFFF" width="257"><table width="100%"  border="0">
                                <tr>
                                  <td><script src=../bbs/newtopic.asp?boardid=10&lock=0&bname=0&tlen=16&n=13&sdate=&orders=4&info=3&action=0&reply=0&showpic=0>
</script></td>
                                </tr>
                              </table> 
                             
                              </td>
                            </tr>
                          </table>
                        </td>
                        <td width="6" background="images/1_r10_c7.jpg"><img name="n1_r10_c7" src="images/1_r10_c7.jpg" width="6" height="466" border="0" alt=""></td>
                        <td width="224" valign="top" bgcolor="#FFFFFF"> 
                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td height="30" background="1.gif"><div align="center">::节目安排::</div></td>
                            </tr>
                            <tr> 
                              
                          <td bgcolor="#FFFFFF" valign="top"> 
                            <table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                    <td>
                                      <table width="220" border="0" cellspacing="2" cellpadding="1">
                                        <tr> 
                                          <td><img src="image/webMic.gif" width="14" height="19"> 
<b><font color=#ff0000>今天</font></b>   
                                            <script language="JavaScript">   
<!--
tmpDate = new Date();
date = tmpDate.getDate();
month= tmpDate.getMonth() + 1 ;
document.write(month);
document.write("月");
document.write(date);
document.write("日");

// -->
</script>
                                            <b><font color=#ff0000>节目表</font></b>   
                                          </td>
                                        </tr>
                                        <tr> 
                                          <td>
                                            <%       
	sql="select top 6 "       
	sql=sql&"download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid,Nclass.Nclass "       
	sql=sql&" from download,Nclass where download.classid=1 and download.Nclassid=Nclass.Nclassid "       
	sql=sql&" order by download.dateandtime desc"       
	rs.open sql,conn,1,1       
	if rs.eof and rs.bof then       
%>
                                            <p align="left">还未添加节目   
                                              <%else%>
                                              <%do while not rs.eof%>  
                                              <a href="play.asp?id=<%=rs("id")%>" onClick='return Listen(this.href);'><%=rs("bb")%></a>   
                                              [<font color=#FF0000><%=rs("hits")%></font>]<br>  
                                              <%   
	       rs.movenext   
	       loop   
	       end if   
	       rs.close   
              %>
                                          </td>
                                        </tr>
                                      </table>
                                    </td>
                                </tr>
                                  <tr>
                                    <td>
                                      <table width="220" border="0" cellspacing="2" cellpadding="1">
                                        <tr> 
                                          <td><img src="image/webMic.gif" width="14" height="19"> 
<b><font color=#ff0000>明天</font></b>   
                                            <script language="JavaScript">   
<!--
tmpDate = new Date();
date = tmpDate.getDate() + 1 ;
month= tmpDate.getMonth() + 1 ;
document.write(month);
document.write("月");
document.write(date);
document.write("日");

// -->
</script>
                                            <b><font color=#ff0000>节目表</font></b></td>  
                                        </tr>
                                        <tr> 
                                          <td>
                                            <%       
	sql="select top 6 "       
	sql=sql&"download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid,Nclass.Nclass "       
	sql=sql&" from download,Nclass where download.classid=2 and download.Nclassid=Nclass.Nclassid "       
	sql=sql&" order by download.dateandtime desc"       
	rs.open sql,conn,1,1       
	if rs.eof and rs.bof then       
%>
                                            <p align="left">还未添加节目   
                                              <%else%>
                                              <%do while not rs.eof%>  
                                              <a href="play.asp?id=<%=rs("id")%>" onClick='return Listen(this.href);'><%=rs("bb")%></a>   
                                              [<font color=#FF0000><%=rs("hits")%></font>]<br>  
                                              <%   
	       rs.movenext   
	       loop   
	       end if   
	       rs.close   
              %>
                                          </td>
                                        </tr>
                                      </table>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td>
                                      <table width="220" border="0" cellspacing="2" cellpadding="1">
                                        <tr> 
                                          <td><img src="image/webMic.gif" width="14" height="19"> 
<b><font color=#ff0000>综合精选节目</font></b></td>  
                                        </tr>
                                        <tr> 
                                          <td>
                                            <%       
	sql="select top 6 "       
	sql=sql&"download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid,Nclass.Nclass "       
	sql=sql&" from download,Nclass where download.classid=3 and download.Nclassid=Nclass.Nclassid "       
	sql=sql&" order by download.dateandtime desc"       
	rs.open sql,conn,1,1       
	if rs.eof and rs.bof then       
%>
                                            <p align="left">还未添加节目   
                                              <%else%>
                                              <%do while not rs.eof%>  
                                              <a href="play.asp?id=<%=rs("id")%>" onClick='return Listen(this.href);'><%=rs("bb")%></a>   
                                              [<font color=#FF0000><%=rs("hits")%></font>]<br>  
                                              <%   
	       rs.movenext   
	       loop   
	       end if   
	       rs.close   
              %>
                                          </td>
                                        </tr>
                                      </table>
                                    </td>
                                  </tr>
                              </table>
                              
                          </td>
                            </tr>
                          </table>
                        </td>
                    </tr>
                    </table>
                  </td>
                </tr>
              </table>
                    <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  
              <td height="23" background="1.gif" bgcolor="#FFFFFF"><div align="center">
                :::电台点歌::
              </div></td>
                </tr>
                <tr>
                  <td height="105" bgcolor="#FFFFFF"><iframe frameborder=0 height=210 marginheight=0 marginwidth=0 scrolling=no src="music.asp" 
                  width=750></iframe></td>
                </tr>
          </table>          </td>
        </tr>
      </table>
              <table width="777" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="19" background="../ing/1.gif"><div align="center"><a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dgdu.com')">设为首页</a> | <a href="javascript:window.external.addFavorite('http://www.dgdu.com','伊龙在线设计中心')">加入收藏</a> | <a href="http://www.dgdu.com">关于我们</a> | <a href="mailto:5814370@peoplemail.com.cn">联系站长</a> | <a href="http://www.dgdu.com">友情连接</a> |
                    <!--#include file="active.asp"--> </div></td>
                </tr>
              </table>
            </div>
</BODY>
        <%
response.write ukong
'---------------------------------center end-------------------------------
call web_end(0)
sub links_left()
  tit=vbcrlf&"<table border=0 width='100%' cellpadding=0 cellspacing=0>" & _
      vbcrlf&"<tr><td align=center height=50><a href='" & web_var(web_config,2) & "' target=_blank><img border=0 src='images/logo.gif' width=88 heigh=31 alt='" & web_var(web_config,1) & "'></a></td></tr>" & _
      vbcrlf&"<tr><td align=center valign=top><textarea name=flink_main rows=5 cols=21  onfocus=this.select() onmouseover=this.focus()><a href='" & web_var(web_config,2) & "' target=_blank><img border=0 src='" & web_var(web_config,2) & "images/logo.gif' width=88 heigh=31 alt='" & web_var(web_config,1) & "'></a></textarea></td></tr>" & _
      vbcrlf&"</table>"
  call left_type(tit,"links",1)
end sub
%>