📄 index.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="dbpath.asp"-->
<%sqladm="select * from admin"
Set rsadm= Server.CreateObject("ADODB.Recordset")
rsadm.open sqladm,conn,1,1
if jypx=jypx then
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=rsamd("pagesize")
if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then
MaxPerPage=20
end if%>
<%sqlu="select * from link order by incount desc"
Set rsu= Server.CreateObject("ADODB.Recordset")
rsu.open sqlu,conn,1,1
totalPut=rsu.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage
showContent
showpage totalput,MaxPerPage
else
if (currentPage-1)*MaxPerPage<totalPut then
rsu.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsu.bookmark
showpage totalput,MaxPerPage
showContent
showpage totalput,MaxPerPage
else
currentPage=1
showpage totalput,MaxPerPage
showContent
showpage totalput,MaxPerPage
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rsadm("webname")%></title>
<style type="text/css">
td { font-size: 9pt; line-height: 12pt}
a:link {color: #000080; text-decoration: none }
a:visited {color: #000080; text-decoration: none }
a:hover {color: #FF0000; text-decoration: underline }</style>
<%if session("jypxadmin")="ok" then%>
<script language="javascript">
function Del(id)
{window.open("save.asp?type=del&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
</script>
<%end if%>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFCC30">
<div align="center">
<center>
<table border="0" width="776" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="776" cellspacing="0" cellpadding="0" height="7">
<tr>
<td width="127"><img border="0" src="img/top.gif"></td>
<td width="649">
<p align="left">凡申请“全真链”并且有6万次以上点击贡献的用户可以免费获得本站送出的“金梅排行榜HTM版一套”<a target="_blank" href="http://www.jmpic.com/book/jmtop">演示</a>，全真链申请地址
<a target="_blank" href="http://www.jmlook.com/">http://www.jmlook.com</a></td>
</tr>
<tr>
<td width="776" colspan="2"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="776" cellspacing="0" cellpadding="0" height="25">
<tr>
<td width="10" valign="top" height="25"></td>
<td width="270" valign="top" height="25">
<table border="0" width="100%" cellspacing="0" height="20" style="border-collapse: collapse" cellpadding="0">
<tr>
<td width="100%" bgcolor="#B58800" height="20">
<p align="center"><font color="#FFFFFF"> </font><a href="user.asp?type=code"><font color="#FFFFFF">取得代码</font></a>
<a href="user.asp?type=login"><font color="#FFFFFF">修改资料</font></a>
<a href="user.asp?type=reg"><font color="#FFFFFF">新站加入</font></a><font color="#FFFFFF"> </font></td>
</tr>
<center>
<tr>
<td width="628" height="10">
<table border="0" width="628" bgcolor="#CDCDCD" cellspacing="1" style="border-collapse: collapse" cellpadding="2">
<tr>
<td width="697" bgcolor="#FFFFFF" colspan="5">
<%
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
%><b>分页:</b><%
pageno=request("page")
rsu.pagesize=MaxPerPage '得到每页数
mpage=rsu.pagecount '得到总页数
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
for pno=1 to mpage
if pno=cint(pageno) then%><img border="0" align="absMiddle" src="img/<%=pno%>.gif"><%else%><a href="index.asp?page=<%=pno%>"><img border="0" align="absMiddle" src="img/<%=pno%>.gif"></a><%end if%><%next%></td>
</tr>
<tr>
<td width="28" bgcolor="#ffffff" align="center" nowrap>
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="621" id="AutoNumber1" height="59">
<tr>
<td width="28" bgcolor="#DFDFDF" align="center" nowrap height="16">
名次</td>
<td width="93" bgcolor="#DFDFDF" align="center" height="16">
图标</td>
<td width="396" bgcolor="#DFDFDF" align="center" height="16">
网站及简介</td>
<td width="65" bgcolor="#DFDFDF" align="center" height="16">
评级</td>
<td width="28" bgcolor="#DFDFDF" align="center" nowrap height="16">
点进</td>
<td width="32" bgcolor="#DFDFDF" align="center" nowrap height="16">
点出</td>
</tr>
<%if rsu.eof and rsu.bof then%> <%for n=1 to 5%>
<tr>
<td width="692" bgcolor="#FFFFFF" align="center" colspan="6" height="16">
<a href="user.asp?type=reg"><--加入你的网站--></a></td>
</tr>
<%next%> <%else%>
<%
k=MaxPerPage*(currentPage)-MaxPerPage
do while not rsu.eof
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -