showtv.asp

网络电视类型的好网站

<!--#include file="conn.asp"-->
 <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from diqu",conn,1,1
if rs.recordcount=0 then
	response.write "没有地区分类"
else
	while not rs.eof
         Response.Write rs("quyu")
		  Response.Write("<br>")
	    set rs_s=server.CreateObject("adodb.recordset")
		rs_s.open "select * from tvname where quyu="&rs("id"),conn,1,1
	    if rs_s.recordcount=0 then 
 Response.Write(  "暂无电视台")
	    else
	    		while not rs_s.eof
				Response.Write "<a href=play2.asp?id="&rs_s("id")&" target=""_blank"">"&rs_s("name")&"</a>"
             rs_s.movenext
		wend
		   end if
		   	  Response.Write("<br>")
	    rs_s.close
	    set rs_s=nothing
	rs.movenext
	wend
end if
rs.close
set rs=nothing
%>