📄 tvlist.asp

📁 SEO过的带数据库的NBA直播程序！解压到根目录更换banner即可!后台admin 密码zidane

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="Check_7758991.asp"-->
<html>
<head>
<title></title>
<link rel="stylesheet" href="community.css" type="text/css">
<!--<script type=text/javascript src="cc.js"></script>-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
	background-image: url();
	background-color: #333333;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
body,td,th {
	color: #FFFFFF;
}
a:link {
	color: #FFFFFF;
}
a:visited {
	color: #CDCDCD;
}
a:hover {
	color: #CCCCCC;
}
-->
</style>
</head>
<body oncontextmenu="return false">
<%
 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=95% border=0 cellspacing=0 cellpadding=0 align=center><tr><td height=1></td></tr><tr>")
  i=0
  while not rs.eof
   i=i+1
   Response.Write "<td valign=top width=250>╄ <a href=play2.asp?id="&rs("id")&" target=""video"" class=link>"&rs("name")&"</a></td>"
      if i=2 and not rs.eof then 
	     Response.Write("<TR><TD colspan=1 height=2></TD></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
%>
<style>
BODY {SCROLLBAR-FACE-COLOR: #D4D0C8; }
  </style> 
<a href="http://www.2008tv.cn" target="_blank">.</a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -