📄 list.asp
字号:
<%end if%>
<%if request("ID") = "List4" 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="foldinglist2">
</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="foldinglist4">
</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="foldinglist8">
</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="foldinglist14">
</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
set rs=nothing
end if
%>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist17'));">
<img src="Images/folder.gif"><b>江西</b></a>
</div>
<div class="foldinglist" id="foldinglist17">
<%
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('foldinglist18'));">
<img src="Images/folder.gif"><b>辽宁</b></a>
</div>
<div class="foldinglist" id="foldinglist18">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist19'));">
<img src="Images/folder.gif"><b>内蒙古</b></a>
</div>
<div class="foldinglist" id="foldinglist19">
</div>
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist20'));">
<img src="Images/folder.gif"><b>宁夏</b></a>
</div>
<div class="foldinglist" id="foldinglist20">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist21'));">
<img src="Images/folder.gif"><b>青海</b></a>
</div>
<div class="foldinglist" id="foldinglist21">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist22'));">
<img src="Images/folder.gif"><b>四川</b></a>
</div>
<div class="foldinglist" id="foldinglist22">
<%
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('foldinglist23'));">
<img src="Images/folder.gif"><b>山东</b></a>
</div>
<div class="foldinglist" id="foldinglist23">
<%
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -