📄 top1.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=conn1.asp-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>无标题文档</title>
</head>
<table width="100%"  border="0">
<%
bigclass=trim(request("bigclass"))
smaclass=trim(request("smaclass"))
num=trim(request("num"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if bigclass="0" then
  sql="select * from news order by mi222_count desc"
elseif smaclass="0" then
  sql="select * from news where mi222_bigclass='"& bigclass &"' order by mi222_count desc"
else
  sql="select * from news where mi222_bigclass='"& bigclass &"' and mi222_smaclass='"& smaclass &"'order by mi222_count desc"
end if
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
  if num<rs.recordcount then
    num=rs.recordcount
  end if
  for i=1 to num
%>
  <tr>
    <td>&nbsp;<a href="news/news_<%=rs("id")%>.htm" target="_blank" title="<%=rs("mi222_title")%>"><%=left(rs("mi222_title"),10)%></a> [<%=rs("mi222_count")%>]</td>
  </tr>
<%
  rs.movenext
  if rs.bof or rs.eof then
    exit for
  end if
  next
else
%>
  <tr>
    <td>&nbsp;暂无文章信息！</td>
  </tr>
<%
end if
rs.close
%>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -