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

📄 syslist.asp

📁 媒体中国-设计联盟
💻 ASP
字号:
🔍 
<!--#include file="bof.asp" -->
<%
response.expires=0

if session("zkpicksysuser")="" then
  response.redirect "index.asp"
  response.end
end if
%>
<!--#include file="dbinc/dbpath.asp" -->
<%
const MaxPrePage=20  '每页显示记录数

if (request.querystring("page")<>"") and (IsNumeric(request.querystring("page"))) then  '检查页号
  intPage=CLng(request.querystring("page"))
else
  intPage=1
end if

strSql="select * from zkpick "
if (request.querystring("show")<>"") and (IsNumeric(request.querystring("show"))) then  '检查网站等级
  intshow=CLng(request.querystring("show"))
else
  intshow=1
end if
strSql=strSql& " where pickgrade="&intshow
strSql=strSql&" order by pickid desc"
%>
<html>
<head>
<title>[媒体中国(设计联盟)]====[http://www.3niao.com/pick/]=============</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">

</head>

<body bgcolor="#CCCCCC">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="18"><br>
      <% 
set rs=createobject("adodb.recordset") 
rs.open strSql,conn,1,3 
if rs.eof and rs.bof then 
  response.write "<div align='center'><font color='#ff9900'>暂时还没有相关网站，请稍后进行网站鉴定！</font></div>" 
else 
 
rs.pagesize=MaxPrePage 
if intPage>rs.pagecount then  
  intPage=rs.pagecount 
end if  
%>
      <table width="700" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#999999" class="9p">
        <tr bgcolor="#FFCC99" valign="bottom"> 
          <td height="18" bgcolor="#999999"> 
            <div align="center"><font color="#cc0011" size="2"><strong>[<a href="adnews.asp">修改公告</a>] 
              修改=-&gt; [<a href="syslist.asp?show=1">待审网站</a>] [<a href="syslist.asp?show=2">中级认证</a>] 
              [<a href="syslist.asp?show=3">中级推荐</a>] [<a href="syslist.asp?show=4">高级推荐</a>] 
              [<a href="syslist.asp?show=5">高级精品</a>] &nbsp;</strong></font></div></td>
        </tr>
        <tr> 
          <td class="4p" height="50"> <table width="98%" border="0" align="center" cellpadding="6" cellspacing="16" >
              <% for i=1 to 5 step 1 %>
              <tr> 
                <% for j=1 to 4 step 1 %>
                <td valign="bottom" bgcolor="f4f4f4" width="145" height="115"> 
                  <div align="center"> 
                    <%
if not rs.eof then   
				    gradestr=rs("pickgrade")
  select case gradestr
    case 1: gradestr="设社联盟待审网站"
    case 2: gradestr="中级认证网站"
    case 3: gradestr="中级推荐网站"
    case 4: gradestr="高级推荐网站"
    case 5: gradestr="高级精品网站"
    case else: gradestr="设社联盟待审网站"
  end select

  typestr=rs("picktype")  
  select case typestr
    case 1: typestr="个性突破"
    case 2: typestr="艺术设计"
    case 3: typestr="建站资源"
    case 4: typestr="商业咨讯"
    case 5: typestr="娱乐生活"
    case 6: typestr="另类其他"
    case else: typestr="另类其他"
  end select

  altstr="&#13&#10  :::媒体中国(设计联盟):::  "
  altstr=altstr&"&#13&#10"
  altstr=altstr&"&#13&#10  网站名称："&rs("picksite")&"  "
  altstr=altstr&"&#13&#10  网站总评："&rs("pickcount")
  altstr=altstr&"&#13&#10  网站得票："&rs("pickvote")
  altstr=altstr&"&#13&#10  浏览人数："&(rs("pickvisitor"))
  altstr=altstr&"&#13&#10  网站级别："&gradestr
  altstr=altstr&"&#13&#10  网站类型："&typestr
  altstr=altstr&"&#13&#10  网站简介："&rs("pickmemo")&"  "
  altstr=altstr&"&#13&#10"
response.write ("<a href='show.asp?id="&rs("pickid")&"'><img src='"&rs("pickimg")&"' width='120' height='90' border='0' alt='"&altstr&"'></a>")
Response.Write("<p>『<a href='"&rs("pickurl")&"'>"&rs("picksite")&"</a>』</p>『<a href='sysdele.asp?id="&rs("pickid")&"'><font color='#ff9900'>删除</font></a>』『<a href='adminshow.asp?id="&rs("pickid")&"'><font color='#ff9900'>品评</font></a>』")
  rs.movenext       
else       
  response.write "&nbsp;"       
end if       
%>
                  </div></td>
                <% next %>
              </tr>
              <% next %>
            </table>
            <p>&nbsp;</p></td>
        </tr>
        <tr bgcolor="#FFCC99" valign="bottom"> 
          <td height="18" bgcolor="f4f4f4"> <div align="center"><font size="2"> 
              <% displayPagelinks rs,intPage,intType,intshow %>
              &nbsp;</font></div></td>
        </tr>
      </table>
      <% end if %>
    </td>
  </tr>
</table>
</body> 
</html> 
<% 
Sub DisplayPagelinks(rs,intPage,intType,intshow)   '页面导航条 
'------------------------------- 
if not(request.querystring("show")<>"") and (IsNumeric(request.querystring("show")))  then 
response.write "共"&rs.RecordCount&"个未审核网站 " 

else
response.write "共"&rs.RecordCount&"个"& gradestr&"   "
end if

 
if  intPage>1 then 
  if intType<>0 then 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page=1""><font color='#666666'>首页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&intPage-1&"""><font color='#666666'>上一页</font></a> "     
  else 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page=1""><font color='#666666'>首页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&intPage-1&"""><font color='#666666'>上一页</font></a> " 
  end if 
else 
  response.write "首页 "   
  response.write "上一页 " 
end if 
 
if intPage < rs.PageCount then 
  if intType<>0 then 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&intPage+1&"""><font color='#666666'>下一页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&rs.PageCount&"""><font color='#666666'>尾页</font></a> " 
  else 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&intPage+1&"""><font color='#666666'>下一页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&rs.PageCount&"""><font color='#666666'>尾页</font></a> " 
  end if 
else 
  response.write "下一页 " 
  response.write "尾页 " 
end if 
 
'------------------------------- 
End Sub 
%> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>

⌨️ 快捷键说明

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