📄 best.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!--#include file="dbinc/dbpath.asp" -->
<%
const MaxPrePage=30  '每页显示记录数

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=5 "
if (request.querystring("type")<>"") and (IsNumeric(request.querystring("type"))) then  '检查是否分类
  intType=CLng(request.querystring("type"))
  strSql=strSql& " and picktype="&CLng(request.querystring("type"))
else
  intType=0
end if

strSql=strSql&" order by pickvote desc,pickid asc"
%>
<html>
<head>
<title>3鸟设社网站评测—推荐网站</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
<script language="JavaScript">
<!--
function winpop(id)
{
  window.open('showinfo.asp?id='+id,'','toolbar=no,location=no,status=no,menubar=no,scrollbars=auto,resizable=yes,width=520,height=200,top=100,left=100');
}
// --> 
</script>
</head>

<body topmargin="0" marginheight="2" leftmargin="0" marginwidth="2" bgcolor="#FFFFFF">
<!--#include file="top.htm" --> <table width="763" border="0" cellspacing="2" cellpadding="0" align="center" class="9p" BGCOLOR="#FFFFFF" style="border-left: 1 dotted #000000; border-right: 1 dotted #000000"> 
<tr> <td width="200" valign="top" bgcolor="#FFFFFF"> <P><IMG SRC="images/cool1.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map" BORDER="0"><BR><IMG SRC="images/cool3.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map2" BORDER="0"><BR><IMG SRC="images/cool4.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map3" BORDER="0"><BR><IMG SRC="images/cool6.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map4" BORDER="0"><BR><MAP NAME="Map"><AREA SHAPE="rect" COORDS="89,22,180,43" HREF="addnew.asp"></MAP><MAP NAME="Map2"><AREA SHAPE="rect" COORDS="91,20,180,43" HREF="best.asp"></MAP><MAP NAME="Map3"><AREA SHAPE="rect" COORDS="91,18,183,45" HREF="userbeginnew.asp"></MAP><MAP NAME="Map4"><AREA SHAPE="rect" COORDS="91,21,182,48" HREF="userbegin.asp"></MAP></P><P>&nbsp;</P><P>&nbsp;</P></td><td width="563" 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='#cc3366'>对不起，暂时还没有相关加盟网站，欢迎您的加入！</font></div>"  
else  
  
rs.pagesize=MaxPrePage  
if intPage>rs.pagecount then   
  intPage=rs.pagecount  
end if   
%> <table width="552" border="0" cellspacing="0" cellpadding="0" class="9p" bgcolor="#FFFFFF"> 
<tr bgcolor="#FFCC99" valign="bottom"> <td height="22" bgcolor="#EDB7D1"> <div align="right"><font color="#FFFFFF"> 
<% displayPagelinks rs,intPage,intType %> </font>&nbsp;</div></td></tr> <tr> <td class="4p">&nbsp;</td></tr> 
<tr> <td> <table width="543" border="0" cellspacing="1" cellpadding="2" bordercolorlight="#999999" bordercolordark="#FFFFFF" class="9p" bgcolor="#BDE2B4" align="center"> 
<tr bgcolor="#FFFFFF"> <td width="104"> <div align="center"><FONT COLOR="#666666">网站名称</FONT></div></td><td width="70"> 
<div align="center"><FONT COLOR="#666666">网站所有</FONT></div></td><td width="63"> 
<div align="center"><FONT COLOR="#666666">地域</FONT></div></td><td width="66"> 
<div align="center"><FONT COLOR="#666666">类型</FONT></div></td><td width="133"> 
<div align="center"><FONT COLOR="#666666">简介</FONT></div></td><td width="76"> 
<div align="center"><FONT COLOR="#666666">得票数</FONT></div></td></tr> <%  
rs.absolutepage=intPage  
for i=1 to rs.pagesize  
%> <tr> <td width="104" BGCOLOR="#FFFFFF">&nbsp; <% response.write ("<a href='showinfo.asp?id="&rs("pickid")&"'target='_blank'>"&rs("picksite")&"</a>")%>  
</td><td width="70" BGCOLOR="#FFFFFF"> <div align="center"><font color="#FFFFFF"><font color="#000000"> 
<%=rs("pickname")%></font></font>&nbsp;</div></td><td width="63" BGCOLOR="#FFFFFF"> 
<div align="center"><font color="#FFFFFF"><font color="#000000"> <% 
typestr=rs("pickdiyu")   
select case typestr 
  case 1: typestr="海口" 
  case 2: typestr="琼山" 
  case 3: typestr="澄迈" 
  case 4: typestr="临高" 
  case 5: typestr="儋州" 
  case 6: typestr="琼海" 
  case 7: typestr="定安" 
  case 8: typestr="万宁" 
  case 9: typestr="屯昌" 
  case 10: typestr="文昌" 
  case 11: typestr="昌江" 
  case 12: typestr="东方"
  case 13: typestr="三亚" 
  case 14: typestr="陵水"
  case 15: typestr="保亭" 
  case 16: typestr="琼中" 
  case 17: typestr="白沙" 
  case 18: typestr="乐东"
  case 19: typestr="五指山" 
  case 20: typestr="其它"    
  case else: typestr="海口" 
end select 
response.write typestr 
%> </font></font></div></td><td width="66" BGCOLOR="#FFFFFF"> <div align="center"><font color="#000000"> 
<%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 7: typestr="体育生活" 
  case 8: typestr="程序设计" 
  case 9: typestr="商贸金融" 
  case 10: typestr="科技咨讯" 
  case 11: typestr="社会公益" 
  case 12: typestr="综合网站" 
  case else: typestr="电脑网络" 
end select 
response.write typestr 
%> </font></div></td><td width="133" BGCOLOR="#FFFFFF"> <%=rs("pickmemo")%> </td><td width="76" BGCOLOR="#FFFFFF"> 
<div align="center"><%=rs("pickvote")%></div></td></tr> <%  
rs.movenext  
if rs.eof then exit for  
next %> </table></td></tr> <tr> <td class="4p">&nbsp;</td></tr> <tr bgcolor="#FFCC99" valign="bottom"> 
<td height="22" bgcolor="#EDB7D1"> <div align="right"><font color="#FFFFFF"> <% displayPagelinks rs,intPage,intType %> 
&nbsp;</font></div></td></tr> </table><% end if %> </td></tr> </table><!--#include file="bottom.htm" -->
</body> 
</html> 
<% 
Sub DisplayPagelinks(rs,intPage,intType)   '页面导航条 
'------------------------------- 
response.write "共"&rs.RecordCount&"个推荐网站 " 
 
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 
%>
💿 文件大小 15995 K
👤 上传用户 a1a1J0
📂 所属分类源码/资料
🏷️ 相关标签

#网站 #源码
⌨️ 快捷键说明

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