📄 list.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网络电视电台 - 23mn网络电视 - 在线广播_网络电台_网络电视_在线电视</title>
<style>
<!--
.menuList {
FONT-SIZE: 14px;
}
.foldinglist {
MARGIN-LEFT: 15px
}
-->
</style>
<script language=JavaScript src="Js/TreeMenu.js"></script>
</head>
<body>
<center>
<%if request("ID") = "List1" then%>
<table cellSpacing="0" cellPadding="0" width="0" border="0">
<tr>
<td align="middle">
<img src="Images/worldcup.gif" border="0"></td>
</tr>
<tr>
<td class="menuList">
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist1'));">
<img src="Images/folder.gif"><b>中央</b></a>
</div>
<div class="foldinglist" id="foldinglist1">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='中央' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist2'));">
<img src="Images/folder.gif"><b>安徽</b></a>
</div>
<div class="foldinglist" id="foldinglist1">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='安徽' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist3'));">
<img src="Images/folder.gif"><b>北京</b></a>
</div>
<div class="foldinglist" id="foldinglist3">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='北京' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist4'));">
<img src="Images/folder.gif"><b>重庆</b></a>
</div>
<div class="foldinglist" id="foldinglist3">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='重庆' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist5'));">
<img src="Images/folder.gif"><b>福建</b></a>
</div>
<div class="foldinglist" id="foldinglist5">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='福建' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist6'));">
<img src="Images/folder.gif"><b>广东</b></a>
</div>
<div class="foldinglist" id="foldinglist6">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='广东' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist7'));">
<img src="Images/folder.gif"><b>甘肃</b></a>
</div>
<div class="foldinglist" id="foldinglist7">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='甘肃' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist8'));">
<img src="Images/folder.gif"><b>广西</b></a>
</div>
<div class="foldinglist" id="foldinglist7">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='广西' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist9'));">
<img src="Images/folder.gif"><b>贵州</b></a>
</div>
<div class="foldinglist" id="foldinglist9">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist10'));">
<img src="Images/folder.gif"><b>湖北</b></a>
</div>
<div class="foldinglist" id="foldinglist10">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='湖北' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist11'));">
<img src="Images/folder.gif"><b>黑龙江</b></a>
</div>
<div class="foldinglist" id="foldinglist11">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='黑龙江' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist12'));">
<img src="Images/folder.gif"><b>河南</b></a>
</div>
<div class="foldinglist" id="foldinglist12">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='河南' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist13'));">
<img src="Images/folder.gif"><b>湖南</b></a>
</div>
<div class="foldinglist" id="foldinglist13">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='湖南' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist14'));">
<img src="Images/folder.gif"><b>海南</b></a>
</div>
<div class="foldinglist" id="foldinglist12">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='海南' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist15'));">
<img src="Images/folder.gif"><b>吉林</b></a>
</div>
<div class="foldinglist" id="foldinglist15">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist16'));">
<img src="Images/folder.gif"><b>江苏</b></a>
</div>
<div class="foldinglist" id="foldinglist16">
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Sql_Radio where Rad_Class='电视' and Rad_City='江苏' order by ID asc"
rs.open sql,conn1,1,1
if rs.eof then
%>
<%else
do while not rs.eof
%>
<div>
<a style="color: black; text-decoration: none" target="tv" href="Show/23mn_<%=rs("ID")%>.html" title="<%=rs("Rad_Title")%>"><%=left(rs("Rad_Title"),12)%></A>
</div>
<%
rs.movenext
loop
rs.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -