📄 top10.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统
💻 ASP
字号:
<!--#include file="dbpath/dbpath.asp"-->
<%
   const MaxPerPage=18
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j

   dim typename
   
   typename="常用网址"
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=typename%></title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="javascript">
function popwin2(id,path)
{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<%
    if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   dim sql
   dim rs
%>

<body>
<div align="center"><center>
  </center></div><div align="center"><center>

<table border="0" width="92%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" >
          <p align="center"><br>
            <%=typename%>&gt;&gt;<font color="#FF0000">网站总点击TOP10</font><br>
            |<%
dim rst,tsql
Set rst= Server.CreateObject("ADODB.Recordset")
tsql="select * from linktype order by typeid desc"
rst.open tsql,conn,1,1
 if rst.EOF then
	response.write "没有类别：（"
	else
do while NOT rst.EOF
%> <a href="index.asp?typeid=<%=rst("typeid")%>"><%=rst("type")%></a>| <%
	rst.MoveNext
	loop
	end if
rst.close
%>
          <p>
    <div align="center">
<%
sql="select top 10 * from yqlink order by hits desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 网 站</p>"
   else


%>
      <div align="center"><center>
                <table border="1" cellspacing="3" width="750" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0">
                  <tr bgcolor="#999999"> 
                    <td width="150" height="20" align="center"><font color="#0000FF"><strong>站名</strong></font></td>
                    <td width="100" height="20" align="center"><font color="#0000FF"><b>图标</b></font></td>
                    <td width="100" height="20" align="center"><font color="#0000FF"><b>站长</b></font></td>
                    <td width="250" align="center"><font color="#0000FF"><strong>网站简介</strong></font></td>
                    <td width="100" align="center"><font color="#0000FF"><strong>加入日期</strong></font></td>
                    <td width="50" align="center"><font color="#0000FF"><strong>点击</strong></font></td>
                  </tr>
                  <%do while not rs.eof%>
                  <tr bgcolor="#FFFFFF"> 
                    <td height="35"> <div align="center"><a href="<%=rs("homepage")%>" target="_blank"><%=rs("webname")%></a></div></td>
                    <% if rs("homelogo")="" then
                        logo="images/nologo.gif"
                     elseif rs("homelogo")="http://" then
                        logo="images/nologo.gif"
                     else
                        logo=rs("homelogo")
                     end if %>
                    <td height="35" align="center" valign="middle"> <div align="center"><img src="<%=logo%>" width="88" height="31"></div></td>
                    <td height="35"> <div align="center"><a href=mailto:<%=rs("email")%>><%=rs("name")%></a></div></td>
                    <td height="35"> &nbsp;&nbsp;<a href="javascript:popwin2(<%=rs("articleid")%>)"><%=rs("title")%></a> 
                    </td>
                    <td height="35"> <p align="center"><font color="#ffffff"><i><%=rs("dateandtime")%></i></font> 
                    </td>
                    <td height="35"> <p align="center"><%=rs("hits")%> </td>
                  </tr>
                  <% 
	title=title+1
        if title>9 then Exit Do
	      rs.movenext
	   loop
	end if
		  %>
                </table>
              </center>
            </div>      </div>
        </td>
  </tr>
</table>
    <br>
    <a href="javascript:history.back()">[返回]</a><!--#include file="function/ads.inc"--> 
    </center></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -