list.asp

后台地址：login.asp 管理员 帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信

                <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="foldinglist24">
			</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") = "List6" 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>
        <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">
			  <%
               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%>
</center>
</body>

</html>