dqlist.asp

来自「网络电视类型的好网站」· ASP 代码 · 共 26 行

<!--#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
  Response.Write("<table width=760 border=0 cellspacing=0 cellpadding=0 align=center><tr>")
  i=0
  while not rs.eof
  i=i+1
   Response.Write "<td align=center><a href=tvlist.asp?id="&rs("id")&" target=""rt"">"&rs("quyu")&"</a></td>"
      if i=5  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
%>