📄 list.asp
字号:
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>
<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('foldinglist24'));">
<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>
<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('foldinglist25'));">
<img src="Images/folder.gif"><b>陕西</b></a>
</div>
<div class="foldinglist" id="foldinglist25">
<%
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('foldinglist26'));">
<img src="Images/folder.gif"><b>上海</b></a>
</div>
<div class="foldinglist" id="foldinglist26">
<%
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('foldinglist27'));">
<img src="Images/folder.gif"><b>天津</b></a>
</div>
<div class="foldinglist" id="foldinglist27">
<%
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('foldinglist28'));">
<img src="Images/folder.gif"><b>新疆</b></a>
</div>
<div class="foldinglist" id="foldinglist28">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist29'));">
<img src="Images/folder.gif"><b>西藏</b></a>
</div>
<div class="foldinglist" id="foldinglist29">
</div>
<div id="foldheader" style="color: #000000; cursor: hand; margin-left: 0px">
<a onclick="onclick_folder(document.getElementById('foldinglist30'));">
<img src="Images/folder.gif"><b>云南</b></a>
</div>
<div class="foldinglist" id="foldinglist30">
<%
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('foldinglist31'));">
<img src="Images/folder.gif"><b>浙江</b></a>
</div>
<div class="foldinglist" id="foldinglist31">
<%
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('foldinglist32'));">
<img src="Images/folder.gif"><b>网络</b></a>
</div>
<div class="foldinglist" id="foldinglist32">
<%
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>
</td>
</tr>
</table>
<%end if%>
<%if request("ID") = "List5" 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">
<%
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>
</td>
</tr>
</table>
<%end if%>
<%if request("ID") = "List2" then%>
<%end if%>
<%if request("ID") = "List3" then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -