📄 tvlist.asp

📁 网络电视类型的好网站

💻 ASP

字号:

<!--#include file="conn.asp"-->
<html>
<head>
<title></title>
<LINK href="style.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<table width="328" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD height=6 colSpan=2 bgcolor="#037ec5"></TD>
  </tr>
  <tr> 
    <td height="25" bgcolor="#07b5ec">&nbsp;&nbsp; <img src="images/dot.gif" width="16" height="15"> 
      请选择您收听的媒体</td>
  </tr>
  <tr> 
    <td height="2" background="Images/dot_01.gif" bgcolor="#3399CC"></td>
  </tr>
  <tr> 
    <td height="50" bgcolor="#F2F2F2"> <div align="center">
        <%
 id=Trim(Request.QueryString("id"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from tvname where quyu="&id&" order by cdbl(paixu)",conn,1,1
if rs.recordcount=0 then
	response.write "该地区没有电视台"
else
  Response.Write("<table width=300 border=0cellspacing=0ellpadding=0  background= bgcolor=#000000 align=center><tr>")
  i=0
  while not rs.eof
   i=i+1
   Response.Write "<td  width=150  align=center><a href=play2.asp?id="&rs("id")&" target=""main"">"&rs("name")&"</a></td>"
      if i=2 and not rs.eof then 
	     Response.Write("</tr><tr>")
		 i=0
	  end if
	  if  rs.eof  then
	   Response.Write("</tr>")
	   end if
		rs.movenext
		wend
	Response.Write("</table>")
end if
rs.close
set rs=nothing
%>
      </div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -