📄 grade1.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="bof.asp" -->
<%
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"
%>
<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="center"><br>
<a href="type.asp?type=1"><img src="images/fen1.gif" width="137" height="48" border="0"></a>
<a href="type.asp?type=2"><img src="images/fen2.gif" width="137" height="48" border="0"></a><a href="type.asp?type=3"><img src="images/fen3.gif" width="137" height="48" border="0"></a><a href="type.asp?type=4"><img src="images/fen4.gif" width="137" height="48" border="0"></a><a href="type.asp?type=5"><img src="images/fen5.gif" width="137" height="48" border="0"></a><a href="type.asp?type=6"><img src="images/fen6.gif" width="137" height="48" border="0"></a></p>
</td>
<td width="1" valign="top" background="images/line1.gif"></td>
<td valign="top">
<div align="left">
<table width="100%" border="0" align="center" cellpadding="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
%>
<font> </font>
<div align="left">
<table width="100%" height="417" align="center" cellpadding="5">
<tr>
<td height="350" align="center" valign="top"><font>
<% displayPagelinks rs,intPage,intType %>
</font>
<table width="100%" border="0" align="center" cellpadding="6" cellspacing="10" background="images/bg.jpg" >
<% 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="
 :::『媒体中国(设计联盟)』::: "
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>
<tr>
<td height="20"> <div align="center"> 『媒体中国(设计联盟)』 </div></td>
</tr>
</table>
<% end if %>
</div></td>
</tr>
</table>
</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>
<%
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
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -