📄 addnew.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="top.htm" -->
<%
const MaxPrePage=27 '每页显示记录数
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("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">
<table width="760" height="528" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="27" height="486" background="images/bg.gif"></td>
<td width="709" height="486" valign="top"> <div align="center">
<table width="708" border="0" align="center" cellspacing="0">
<tr bgcolor="#FFFFFF" class="9p">
<td width="706" 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='#336699'>对不起，暂时还没有相关加盟网站，欢迎您的加入！</font></div>"
else
rs.pagesize=MaxPrePage
if intPage>rs.pagecount then
intPage=rs.pagecount
end if
%>
<table width="706" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="9p">
<tr bgcolor="#FFCC99" valign="bottom">
<td width="706" height="22" bgcolor="#EDB7D1">
<div align="right"><font color="#000000">
<% displayPagelinks rs,intPage,intType %>
</font></div></td>
</tr>
<tr>
<td class="4p"> </td>
</tr>
<tr>
<td> <table width="702" border="0" cellspacing="1" cellpadding="2" bordercolorlight="#999999" bordercolordark="#FFFFFF" class="9p" bgcolor="#F291D6" align="center">
<tr bgcolor="#EDB7D1">
<td width="121">
<div align="center"><font color="#ff3399">网站名称</font></div></td>
<td width="75">
<div align="center"><font color="#ff3399">网站所有</font></div></td>
<td width="55">
<div align="center"><font color="#ff3399">地域</font></div></td>
<td width="102">
<div align="center"><font color="#ff3399">类型</font></div></td>
<td width="243">
<div align="center"><font color="#ff3399">简介</font></div></td>
<td width="75">
<div align="center"><font color="#ff3399">得票数</font></div></td>
</tr>
<%
rs.absolutepage=intPage
for i=1 to rs.pagesize
%>
<tr>
<td width="121" BGCOLOR="#FFFFFF">
<% response.write ("<a href='showinfo.asp?id="&rs("pickid")&"'target='_blank'>"&rs("picksite")&"</a>")%>
</td>
<td width="75" BGCOLOR="#FFFFFF"> <div align="center"><font color="#FFFFFF"><font color="#000000">
<%=rs("pickname")%></font></font> </div></td>
<td width="55" 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="102" 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="243" BGCOLOR="#FFFFFF"> <%=rs("pickmemo")%>
</td>
<td width="75" 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"> </td>
</tr>
<tr bgcolor="#FFffff" valign="bottom">
<td height="22" BGCOLOR="#EDB7D1">
<div align="right"><font color="#000000">
<% displayPagelinks rs,intPage,intType %>
</font></div></td>
</tr>
</table>
<% end if %>
</td>
</tr>
<tr>
<td valign="top"><div align="center"></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div></td>
<td width="24" height="486" background="images/bg.gif"></td>
</tr>
</table>
</body>
</html>
<!--#include file="bottom.htm" -->
<%
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='#FFFFFF'>首页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&intPage-1&"""><font color='#FFFFFF'>上一页</font></a> "
else
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page=1""><font color='#FFFFFF'>首页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage-1&"""><font color='#FFFFFF'>上一页</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='#FFFFFF'>下一页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&page="&rs.PageCount&"""><font color='#FFFFFF'>尾页</font></a> "
else
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&intPage+1&"""><font color='#FFFFFF'>下一页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?page="&rs.PageCount&"""><font color='#FFFFFF'>尾页</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 + -