⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list.asp

📁 这个程序是卡页连接联盟当前在使用的最新全站程序.本站是一套全新概念的自助友情链接交换系统
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title>卡页连接联盟</title>
</head>

<body topmargin=0>

<div align="center">
  <center>
  <!--#include file="ky_head.asp"-->
  <%
set rs = server.CreateObject("adodb.recordset")
if request("id")<>"" then
sql="select * from MB_Linkun where L_Class="&request("id")&" order by L_Goin desc"
else
sql="select * from MB_Linkun order by L_Goin desc"
end if
RS.open Sql,my_conn,1,3
If RS.RecordCount=0 then
response.write "对不起，数据库中没有相关信息！"
response.end
else
RS.PageSize = 30
Totalpage=INT(RS.recordcount / rs.pagesize * -1)*-1
PageNo = Request.QueryString ("PageNo")
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
If PageNo = "" then PageNo = 1 
Rs.AbsolutePage = PageNo
End If

Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion) 
Dim RowCount
RowCount = 30
%>
<table cellpadding="3" cellspacing="0" style="border:1px solid #3399FF; padding:0; border-collapse: collapse" width="760" id="AutoNumber4" height="14">
        <tr>
          <td width="30" height="19" bgcolor="#99CCFF">
          <p align="right">　</td>
          <td width="173" height="19" bgcolor="#99CCFF">网站名称</td>
          <td width="248" height="19" bgcolor="#99CCFF">网站地址</td>
          <td width="46" height="19" bgcolor="#99CCFF" align="center">进IP数</td>
          <td width="49" height="19" bgcolor="#99CCFF" align="center">出IP数</td>
          <td width="176" height="19" bgcolor="#99CCFF">最近活跃时间</td>
        </tr>
        <%
Do while Not Rs.eof and RowCount>0
%>
        <tr onmouseover="this.bgColor='#EEEEEE';" onmouseout="this.bgColor='#FFFFFF';">
          <td width="30" height="12">
          <p align="right">
          ·</td>
          <td width="173" height="12"><a target="_blank" href="url.asp?ID=<%= CInt(rs("L_ID"))%>"><%=left(rs("L_Title"),20)%></a>
          </td>
          <td width="248" height="12"><font color="#009900"><%=left(rs("L_URL"),40)%></font>
          </td>
          <td width="46" height="12" align="center"><%=rs("L_Goin")%>
          </td>
          <td width="49" height="12" align="center"><%=rs("L_Hits")%>
          </td>
          <td width="176" height="12"><%=rs("L_Date")%>
          </td>
        </tr>
        <%
RowCount = RowCount - 1
Rs.MoveNext
Loop
%>
        <tr>
          <td width="752" height="1" bgcolor="#99CCFF" colspan="6" align="center">共计 <font color=#ff3333><%=RS.recordcount%></font> 条记录 
    | 共: <font color=#ff3333><%=TotalPage%></font>  页 | 当前: 第 <font color=#ff3333><%=PageNo%></font>  页
        <%If rs.RecordCount = 0 or TotalPage = 1 Then 
Response.Write "当前只有一页"
Else%>
        <a href="<%=fileName%>?id=<%=request("id")%>&PageNo=1">首 
        页</a> | 
        <%If PageNo - 1 = 0 Then
Response.Write "上一页|"
Else%>
        <a href="<%=fileName%>?id=<%=request("id")%>&PageNo=<%=PageNo-1%>">上一页</a> 
        | 
        <%End If

If PageNo+1 > TotalPage Then
Response.Write " "
Else%>
        <a href="<%=fileName%>?id=<%=request("id")%>&PageNo=<%=PageNo+1%>">下一页</a> 
        | 
        <%End If%>
        <a href="<%=fileName%>?id=<%=request("id")%>&PageNo=<%=TotalPage%>">末 
        页</a> 
        <%End If%></td>
        </tr>
        </table><!--#include file="ky_end.asp"--></center>
</div>

</body>

</html>

⌨️ 快捷键说明

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