📄 gtop1.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<%
strSql="select * from zkpick "
if (request.querystring("gd")<>"") and (IsNumeric(request.querystring("gd"))) then '检查是否分类
intType=CLng(request.querystring("gd"))
strSql=strSql& " where pickgrade="&CLng(request.querystring("gd"))
else
intType=0
end if
strSql=strSql&" order by pickvisitor desc,pickvote desc,pickid asc"
%>
<HTML>
<HEAD>
<title>媒体中国(设计联盟)</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="link.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY background="images/bg.gif" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include file="bof.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg.jpg">
<tr>
<td width="161" valign="top" bgcolor="f4f4f4"><p align="left"> </p>
<p align="center"><font size="2"><a href="gtop.asp"><strong>等级热站排行</strong></a><br>
</font></p>
<p align="center"><font size="2"> <a href="gtop.asp?gd=1">| 待审网站 |</a></font></p>
<p align="center"><font size="2"> <a href="gtop.asp?gd=2">| 中级认证 |</a></font></p>
<p align="center"><font size="2"> <a href="gtop.asp?gd=3">| 中级推荐 |</a></font></p>
<p align="center"><font size="2"> <a href="gtop.asp?gd=4">| 高级推荐 |</a></font></p>
<p align="center"><font size="2"><a href="gtop.asp?gd=5">| 高级精品 |</a></font></p>
<p align="left"> </p>
<p align="center"><a href="ttop.asp"><strong> 分类热站排行</strong></a><br>
</p>
<p align="center"><a href="ttop.asp?type=1">| 个性突破 |</a></p>
<p align="center"><a href="ttop.asp?type=2">| 艺术设计 |</a></p>
<p align="center"><a href="ttop.asp?type=3">| 建站资源 |</a></p>
<p align="center"><a href="ttop.asp?type=4">| 商业咨讯 |</a></p>
<p align="center"><a href="ttop.asp?type=5">| 休闲娱乐 |</a></p>
<p align="center"><a href="ttop.asp?type=6">| 另类其他 |</a></p>
<p align="left"> </p>
</td>
<td width="1" valign="top" background="images/line1.gif"></td>
<td valign="top"> <% 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='#ff6600'>此类暂时还没有相关的认证网站，欢迎您的加入！</font></div>"
else
%> <div align="left">
<table width="100%" cellpadding="5">
<tr>
<td valign="top"><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"><font size="2"> </font>
<%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 0: 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="
 :::媒体中国(设计联盟)::: "
altstr=altstr&"
"
altstr=altstr&"
 网站名称："&rs("picksite")&" "
altstr=altstr&"
 网站总评："&rs("pickcount")
altstr=altstr&"
 网站得票："&rs("pickvote")
altstr=altstr&"
 浏览人数："&(rs("pickvisitor"))
altstr=altstr&"
 网站级别："&gradestr
altstr=altstr&"
 网站类型："&typestr
altstr=altstr&"
 网站简介："&rs("pickmemo")&" "
altstr=altstr&"
"
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 " "
end if
%>
</div></td>
<% next %>
</tr>
<% next %>
</table></td>
</tr>
</table>
<div align="center"><font color="#FF9900">媒体中国(设计联盟)分类排行--[
<%
if not(request.querystring("gd")<>"") and (IsNumeric(request.querystring("gd"))) then
Response.Write("全部网站")
else
Response.Write(""& gradestr&"")
end if%>
]TOP12 </font><font color="#FF0000">
<% end if %>
</font></div>
</div></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bj-foot.gif">
<tr>
<td><div align="center"><img src="images/copyright.gif" width="283" height="68"></div></td>
</tr>
</table>
</BODY>
</HTML>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -