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

📄 grade.asp

📁 媒体中国-设计联盟
💻 ASP
字号:
🔍 
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/fanfuc.inc" -->
<!--#include file="bof.asp" -->
<html>
<head>
<link href="link.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>叁鸟设社(中国)打造中国的设计学社</title>
<style type="text/css">
<!--
td {
	font-size: 12px;
}
body {
	font-size: 12px;
}
-->
</style>
</head>
<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0">
<%
const MaxPrePage=12  '每页显示记录数
if (request.querystring("page")<>"") and (IsNumeric(request.querystring("page"))) then  '检查页号
  intPage=CLng(request.querystring("page"))
else
  intPage=1
end if

strSql="select * from zkpick where pickgrade="&CLng(request.querystring("gd"))
if (request.querystring("gd")<>"") and (IsNumeric(request.querystring("gd"))) then  '检查是否等级分类
  intgd=CLng(request.querystring("gd"))
  strSql=strSql& " and pickgrade="&CLng(request.querystring("gd"))
else
strSql="select * from zkpick"
end if
strSql=strSql&" order by pickvisitor desc,pickvote desc,pickid asc"

%>
<%
Sub DisplayPagelinks(rs,intPage,intType)   '页面导航条
if not(request.querystring("type")<>"") and (IsNumeric(request.querystring("type")))  then 
Response.Write("全部网站")
else
response.write "共"&rs.RecordCount&"个"&typestr&"网站 "
end if

if  intPage>1 then
  if intType<>0 then
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page=1"">首页</a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&intPage-1&""">上一页</a> "    
  else
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page=1"">首页</a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage-1&""">上一页</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&"&page="&intPage+1&""">下一页</a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&rs.PageCount&""">尾页</a> "
  else
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage+1&"""><font size=0>下一页</font></a> "
   response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&rs.PageCount&"""><font size=0>尾页</font></a> "
  end if
else
  response.write "<font size=0>下一页</font> "
  response.write "<font size=0>尾页 </font>"
end if

'-------------------------------
End Sub
%> 
<table width="100%" height="519" border="0" cellspacing="0">
  <tr> 
    <td width="181" height="519" valign="top"> 
      <table width="100%" border="0" cellspacing="0">
        <tr> 
          <td><img src="images/pi8.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td height="30"><div align="center"><a href="type.asp?type=1">个性站点</a><br>
              <br>
              <a href="type.asp?type=3">艺术设计</a><br>
              <br>
              <a href="type.asp?type=4">建站资源</a><br>
              <br>
              <a href="type.asp?type=4">商业咨询</a><br>
              <br>
              <a href="type.asp?type=5">娱乐生活</a><br>
              <br>
              <a href="type.asp?type=6">其它分类 </a></div></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><img src="images/pi15.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><img src="images/pi10.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td><textarea style="FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: transparent" onMouseOver=this.focus() onFocus=this.select() name="yy-s Codes" rows=4 cols=30>&lt;!-- 媒体中国(设计联盟) --&gt;
&lt;script src="http://www.3niao.com/pick/list.asp?id=联盟认证ID号"&gt;&lt;/script&gt;
&lt;!-- 媒体中国(设计联盟) --&gt;</textarea></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><img src="images/pi9.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td><br>
            旧版图标</td>
        </tr>
        <tr> 
          <td><img src="image/logo.gif" width="88" height="31"></td>
        </tr>
        <tr> 
          <td><br>
            新版图标 </td>
        </tr>
        <tr> 
          <td><img src="image/3.gif" width="88" height="31"></td>
        </tr>
      </table> </td>
    <td width="1" valign="top" bgcolor="#000000">&nbsp;</td>
    <td width="630" valign="top"><div align="center"> 
        <table width="100%" border="0" cellspacing="0">
          <tr>
            <td>
              <%
set rs=createobject("adodb.recordset")
rs.open strSql,conn,1,3
if request("page")<>"" then
	xxxxyyyzzz=cint(request("page"))
else
	xxxxyyyzzz=1
end if
rs.absolutepage=xxxxyyyzzz
if rs.eof and rs.bof then
  response.write "<div align='center'><font color='#ff6600'>此类暂时还没有相关的认证网站，欢迎您的加入！</font></div>"
else

rs.pagesize=MaxPrePage
if intPage>rs.pagecount then 
  intPage=rs.pagecount
end if 
%>
            </td>
          </tr>
          <tr>
            <td height="48" valign="top"><font>
              <% displayPagelinks rs,intPage,intType %>
              </font> <table width="100%" border="0" align="center" cellpadding="6" cellspacing="10" >
                <% for i=1 to 3 step 1 %>
                <tr> 
                  <% for j=1 to 4 step 1 %>
                  <td> <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 ("<table width=122 border=1 cellpadding=0 cellspacing=0  bordercolor=f0f0f0 bgcolor=f4f4f4>")
response.write ("<tr>")
response.write ("<td>")
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>"&rs("picksite")&"</a><font size='2' color='ff6600'> "&rs("pickvisitor")&"℃</font></p>")
  response.write ("<a href='"&rs("pickurl")&"' target='_blank'><img src='images/www.gif' border='0' alt='"&rs("picksite")&"的网站地址'></a> <a href='mailto:"&rs("pickemail")&"' target='_blank'><img src='images/mail.gif' border='0' alt='"&rs("picksite")&"的EMAIL地址'></a> <a href='show.asp?id="&rs("pickid")&"'><img src='images/data.gif' border='0' alt='"&rs("picksite")&"的详细资料'></a>") 
  response.write ("</td>")
  response.write ("</tr>")
  response.write ("</table>")
  rs.movenext       
else       
  response.write "&nbsp;"       
end if       
%>
                    </div></td>
                  <% next %>
                </tr>
                <% next %>
              </table></td>
          </tr>
          <tr>
            <td>
              <% end if %>
            </td>
          </tr>
          <tr><%
Sub DisplayPagelinks(rs,intPage,intType)   '页面导航条
if not(request.querystring("gd")<>"") and (IsNumeric(request.querystring("gd")))  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&"&page=1""><font color='#666666'>首页</font></a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&intPage-1&"""><font color='#666666'>上一页</font></a> "    
  else
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page=1""><font color='#666666'>首页</font></a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?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&"&page="&intPage+1&"""><font color='#666666'>下一页</font></a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&rs.PageCount&"""><font color='#666666'>尾页</font></a> "
  else
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage+1&"""><font color='#666666'>下一页</font></a> "
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&rs.PageCount&"""><font color='#666666'>尾页</font></a> "
  end if
else
  response.write "下一页 "
  response.write "尾页 "
end if

'-------------------------------
End Sub
%>
            <td>&nbsp;</td>
          </tr>
        </table>
      </div></td>
    <td width="1" valign="top" bgcolor="#000000">&nbsp;</td>
    <td width="174" valign="top"><table width="100%" border="0" cellspacing="0">
        <tr> 
          <td><img src="images/pi11.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td><div align="right"> 
              <table width="90%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td><p align="left"> 
                      <% 
set rs=createobject("adodb.recordset")
'rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn       
 rs.open "select pickid,picksite,pickvisitor from zkpick order by pickid desc",conn       
for i=1 to 5 step 1 
    
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a>  <font color=#000000>"&rs("pickvisitor")&"℃</font>")       
%>
                    </p>
                    <p align="left"> 
                      <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%>
                    </p></td>
                </tr>
              </table>
            </div></td>
        </tr>
        <tr> 
          <td><div align="right"><a href="grade.asp">[更多站点...]<br>
              <br>
              </a> </div></td>
        </tr>
        <tr> 
          <td><img src="images/pi12.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td><table width="90%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><p align="left"> 
                    <% 
strSql="select pickid,picksite,pickvisitor from zkpick "
strSql=strSql&" order by pickvisitor desc,pickvote desc,pickid asc"
set rs=createobject("adodb.recordset") 
rs.open strSql,conn
for i=1 to 5 step 1 
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a> <font color=#000000>"&rs("pickvisitor")&"℃</font>")       
%>
                  </p>
                  <p align="left"> 
                    <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%>
                  </p></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td><div align="right"><a href="gtop.asp">[更多站点...]<br>
              <br>
              </a></div></td>
        </tr>
        <tr> 
          <td><img src="images/pi14.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td><table width="90%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><p align="left"> 
                    <% 
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn       
for i=1 to 5 step 1 
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a>  <font color=#000000>"&rs("pickvisitor")&"℃</font>")       
%>
                  </p>
                  <p align="left"> 
                    <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%>
                  </p></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td><div align="right"><a href="grade.asp?gd=1">[更多站点...]<br>
              <br>
              </a></div></td>
        </tr>
        <tr> 
          <td><img src="images/pi16.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td align="center" valign="middle"> <div align="center"><a href="login.asp"><font color="#FF9900"> <font color="#000000"><a href="join.asp"> 
              <font color="#993300">申请加盟</font></a> 用户登录</font></font></a> <font color="#000000"><a href="news.asp">发布新闻</a> 
              </font> </div></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><img src="images/pi13.gif" width="174" height="20"></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><a href="mailto:webmaster@3niao.com">联系我们成为合作伙伴</a></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<!--#include file=eof.asp-->

⌨️ 快捷键说明

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