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

📄 syslist.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
🔍 
<%
response.expires=0

if session("zkpicksysuser")="" then
  response.redirect "index.asp"
  response.end
end if
%>
<!--#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 "
if (request.querystring("show")<>"") and (IsNumeric(request.querystring("show"))) then  '检查网站等级
  intshow=CLng(request.querystring("show"))
else
  intshow=1
end if
strSql=strSql& " where pickgrade="&intshow

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



if (request.querystring("diyu")<>"") and (IsNumeric(request.querystring("diyu"))) then  '检查是否地域分类
  intType=CLng(request.querystring("diyu"))
  strSql=strSql& " and pickdiyu="&CLng(request.querystring("diyu"))
else
  intType=0
end if

strSql=strSql&" order by pickid desc"
%>
<html>
<head>
<title>海南个人网站联盟 — 管理中心</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('sysshow.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 bgcolor="#FFFFFF" topmargin="2" marginheight="2" leftmargin="2" marginwidth="2">
<table width="761" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#FF6633" bordercolordark="#FFFFFF" class="9p" align="center"> 
<tr valign="bottom" bgcolor="#FFCC00"> <td height="2" bgcolor="#cccccc"> <div align="center"><font color="#cc3366">〓〓</font> 
<font color="#000000">管理中心</font><font color="#cc3366">〓〓</font> <font color="#cc3366">&nbsp;□→</font> 
<a href="syslist.asp?show=1">加盟网站</a> <font color="#cc3366">&nbsp;□→ </font><a href="syslist.asp?show=2">认证网站</a> 
<font color="#cc3366">&nbsp;□→ </font><a href="syslist.asp?show=3">特色网站</a> <font color="#cc3366">&nbsp;□→ 
</font><a href="syslist.asp?show=4">推荐网站</a> <font color="#cc3366">&nbsp;□→ </font><a href="syslist.asp?show=5">精品网站</a> 
<font color="#cc3366">□→<a href="newssyslist.asp">新闻管理</a> □→ <a href="index.asp">退出管理</a>〓〓</font></div></td></tr> 
</table><table width="757" border="0" cellspacing="0" cellpadding="0" align="center" class="9p" BGCOLOR="#FFFFFF"> 
<tr> <td width="125" valign="top"> <table width="125" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FF6633" bordercolordark="#FFFFFF" height="200"> 
<tr valign="top"> <td height="215"> <table width="120" border="0" cellspacing="2" cellpadding="2" class="9p"> 
<tr bgcolor="#f9f9f9"> <td height="20" colspan="2"> <div align="center"><b><font color="#009966">地域分类</font></b></div></td></tr> 
<tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=1">海口</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=2">琼山</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=3">澄迈</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=4">临高</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=5">儋州</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=6">琼海</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=7">定安</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"><a href="syslist.asp?diyu=8"> 
万宁</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=9">屯昌</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=10">文昌</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=11">昌江</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=12">东方</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=13">三亚</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=14">陵水</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=15">保亭</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=16">琼中</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=17">白沙</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=18">乐东</a></td></tr> <tr> <td width="53"> <div align="left"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=19">五指山</a></div></td><td width="53"><img src="image/j1.gif" width="9" height="10"> 
<a href="syslist.asp?diyu=20">其它</a></td></tr> </table></td></tr> </table><table width="120" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FF6633" bordercolordark="#FFFFFF"> 
<tr valign="top"> <td> <table width="120" border="0" cellspacing="2" cellpadding="2" class="9p"> 
<tr bgcolor="#f9f9f9"> <td height="20"> <div align="center"><b><font color="#009966">类型分类</font></b></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=1">电脑网络</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=2">免费资源</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=3">休闲娱乐</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=4">文学艺术</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=5">游戏世界</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=6">音乐天堂</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=7">体育生活</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=8">程序设计</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=9">商贸金融</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=10">科技咨讯</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=11">社会公益</a></div></td></tr> 
<tr> <td> <div align="left"><img src="image/j1.gif" width="9" height="10"> <a href="syslist.asp?type=12">另类其它</a></div></td></tr> 
<tr> <td> <div align="center"></div></td></tr> </table></td></tr> </table></td><td width="5">&nbsp;</td><td width="627" 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="620" border="0" cellspacing="0" cellpadding="0" class="9p"> <tr bgcolor="#FFCC99" valign="bottom"> 
<td height="18" bgcolor="#cccccc"> <div align="right"><font color="#FFFFFF"> <% displayPagelinks rs,intPage,intType,intshow %> 
&nbsp;</font></div></td></tr> <tr> <td class="4p">&nbsp;</td></tr> <tr> <td> <table width="628" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#999999" bordercolordark="#FFFFFF" class="9p"> 
<tr bgcolor="#CCCCCC"> <td width="201"> <div align="center">网站名称 → 网站鉴定</div></td><td width="36"> 
<div align="center">地域</div></td><td width="36"> <div align="center">内容</div></td><td width="42"> 
<div align="center">排版</div></td><td width="34"> <div align="center">美工</div></td><td width="41"> 
<div align="center">速度</div></td><td width="39"> <div align="center">创意</div></td><td width="43"> 
<div align="center">综合</div></td><td width="45"> <div align="center">得票数</div></td><td width="47"> 
<div align="center">浏览数</div></td><td width="40"> <div align="center">操作</div></td></tr> 
<% 
rs.absolutepage=intPage 
for i=1 to rs.pagesize 
%> <tr> <td width="201">&nbsp; <% response.write ("<a href='javascript:winpop("&rs("pickid")&")'>"&rs("picksite")&"</a>")%> 
</td><td width="36"> <div align="center"><font color="#003366"> <% 
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></div></td><td width="36"> <div align="center"><%=rs("pickcontext")%></div></td><td width="42"> 
<div align="center"><%=rs("pickprint")%></div></td><td width="34"> <div align="center"><%=rs("pickart")%></div></td><td width="41"> 
<div align="center"><%=rs("pickfast")%></div></td><td width="39"> <div align="center"><%=rs("pickidea")%></div></td><td width="43"> 
<div align="center"><%=rs("pickcount")%></div></td><td width="45"> <div align="center"><%=rs("pickvote")%></div></td><td width="47"> 
<div align="center"><%=rs("pickvisitor")%></div></td><td width="40"> <div align="center"> 
<%response.write "<a href='sysdele.asp?id="&rs("pickid")&"'><font color='#cc3366'>删除</font></a>"%> 
</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="18" bgcolor="#cccccc"> <div align="right"><font color="#FFFFFF"> <% displayPagelinks rs,intPage,intType,intshow %> 
&nbsp;</font></div></td></tr> </table><% end if %> </td></tr> </table><!--#include file="bottom.htm" -->
</body> 
</html> 
<% 
Sub DisplayPagelinks(rs,intPage,intType,intshow)   '页面导航条 
'------------------------------- 
response.write "共"&rs.RecordCount&"个相关网站 " 
 
if  intPage>1 then 
  if intType<>0 then 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page=1""><font color='#666666'>首页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&intPage-1&"""><font color='#666666'>上一页</font></a> "     
  else 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page=1""><font color='#666666'>首页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&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&"&show="&intshow&"&page="&intPage+1&"""><font color='#666666'>下一页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&rs.PageCount&"""><font color='#666666'>尾页</font></a> " 
  else 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&intPage+1&"""><font color='#666666'>下一页</font></a> " 
    response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&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 + -