📄 link.asp
字号:
<!--#include file="conn.asp"-->
<%
dim SiteName
dim SiteURL
dim MasterName
dim Email
dim PageWidth
dim Unit
sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
SiteName=rs("SiteName")
SiteURL=rs("SiteURL")
MasterName=rs("MasterName")
Email=rs("Email")
PageWidth=rs("PageWidth")
Unit=rs("Unit")
rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write SiteName&"-自助友情链接系统 - Power By TODO.NET.CN"%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
<script>
function CloseOpen(Num){
var CurrObj=eval("Tab"+Num);
if (CurrObj.style.display!="none"){
CurrObj.style.display="none";
window.event.srcElement.src="img/collapsed_yes.gif"
} else {
CurrObj.style.display="";
window.event.srcElement.src="img/collapsed_no.gif"
}
}
function addgoout(ID){
linkforward.linkforward.elements(0).value="goout";
linkforward.linkforward.elements(1).value=ID;
linkforward.linkforward.submit();
setTimeout("window.location.reload()",1000);
}
</script>
</head>
<body>
<IFRAME ID="linkforward" SRC="linkforward.asp" FRAMEBORDER="0" SCROLLING="no" WIDTH="0" HEIGHT="0"></IFRAME>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="<%=PageWidth&Unit%>">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td><%response.write " <a class=""atitle"" href="""&SiteURL&""" target=_blank>"&SiteName&"</a>-自助友情链接系统"%>
</td>
<td align="right"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--显示与隐藏的表格-->
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab2">
<tr bgcolor="#FFFFFF">
<td height="20">申请步骤:注册账号->获得我站链接代码并在贵站添加我站链接代码->填写贵站信息->确认提交</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="20" align="left"><%
dim PR
dim Alexa
dim IsConfirm
dim IsVerify
dim IsActivation
dim SpecialNote
dim OrderBy
dim MaxPerPage
dim LogoWidth
dim LogoHeight
sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
PR=rs("PR")
Alexa=rs("Alexa")
IsConfirm=rs("IsConfirm")
IsVerify=rs("IsVerify")
IsActivation=rs("IsActivation")
SpecialNote=rs("SpecialNote")
OrderBy=rs("OrderBy")
MaxPerPage=rs("MaxPerPage")
LogoWidth=rs("LogoWidth")
LogoHeight=rs("LogoHeight")
rs.close
end if
if PR>0 then
response.write "※ 本页面交换友情链接,要求贵站<font color=cc0000>PR值≧"&PR&"</font>,否则不能通过自动检查.<br>"
end if
if Alexa>0 then
response.write "※ 本页面交换友情链接,要求贵站<font color=cc0000>Alexa排名"&Alexa&"</font>以上,否则不能通过自动检查.<br>"
end if
response.write "※ 如果您打算使用LOGO图片,请注意图片格式为 "&LogoWidth&"×"&LogoHeight&" 像素.<br>"
if IsVerify=true then
response.write "※ 所有申请的友情链接都要通过站长的审核才能显示.<br>"
else
response.write "※ 所有申请的友情链接即时生效,申请成功后,请刷新页面.<br>"
end if
if IsActivation=true then
response.write "※ 注意,申请成功后,需要从中贵站的链接入我站一次,进行激活才能显示.<br>"
else
response.write "※ 无需激活,申请成功后即时显示.<br>"
end if
if SpecialNote<>"" then
response.write replace(SpecialNote,chr(13),"<br>")&"<br>"
end if
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> <a class=menu href="signup.asp" title="新用户申请">申请链接</a> <a class=menu href="login.asp?s=1" title="更正网站登录信息">修改信息</a> <a class=menu href="login.asp?s=1" title="获得我站友情链接代码">获得代码</a> <a class=menu href="login.asp?s=1" title="自行撤消贵站在我站的友情链接">撤消链接</a> <a class=menu href="login.asp?s=1" title="相互点入的次数统计">贡献统计</a> <a class=menu href="login.asp?s=2" title="管理员登录，查询,审核申请的友情链接">管理入口</a> 有任何问题,请联系:<a class=menu href="mailto:<%=Email%>"><%=MasterName%></a> </td>
</tr>
</table>
<!--显示与隐藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<a class="atitle" href="http://www.todo.net.cn" target="_blank">.</a><a class="atitle" href="http://todo.net.cn" target="_blank">.</a>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td> 全部友情链接-(系统默认按<%
if OrderBy=1 then
response.write "申请时间"
elseif OrderBy=2 then
response.write "点入数"
end if
%>排序)</td>
<td align="right"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--显示与隐藏的表格-->
<table width="99%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab3">
<tr align="center" bgcolor="d6e0ef">
<td><FONT color=#000000><B>网站logo</b></FONT></td>
<td><FONT color=#000000><B>网站序号</B></FONT></td>
<td><FONT color=#000000><B>网站简介</B></FONT></td>
<td><FONT color=#000000><B>网站积分</B></FONT></td>
<td><FONT color=#000000><B>点击次数</B></FONT></td>
</tr>
<%
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if IsActivation=true then
SqlActivation=" and goin>0"
else
SqlActivation=""
end if
if OrderBy=2 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,Isfixed from link where Status<>1"&SqlActivation&" order by Isfixed, goin desc"
elseif OrderBy=1 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,jointime,Isfixed from link where Status<>1"&SqlActivation&" order by Isfixed, jointime desc"
end if
rs.open sql,conn,1,3
if Rs.eof and Rs.bof then
response.Write("<br><h4 style='color:red'>还没有友情链接。</h4>")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if MaxPerPage=0 then
MaxPerPage=rs.recordcount
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
showContent
showpage totalput,MaxPerPage,"link.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"link.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"link.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
ID = rs("ID")
Y_SiteName = rs("Y_SiteName")
Y_SiteURL = rs("Y_SiteURL")
Y_Logo = rs("Y_Logo")
Y_Alt = rs("Y_Alt")
goin = rs("goin")
goout = rs("goout")
Response.Write("<tr bgcolor=f3f6fa>")
Response.Write(" <td valign=top rowspan=2 align=center bgcolor=f3f6fa width=""20%"">")
if Y_Logo<>"" then
Response.write ("<a onclick=""addgoout("&ID&")"" target=_blank href="""&Y_SiteURL&""" title="""&Y_Alt&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&Y_SiteName&""" src="""&Y_Logo&"""/></a>")
else
Response.write ("<a onclick=""addgoout("&ID&")"" target=_blank href="""&Y_SiteURL&""" title="""&Y_Alt&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&Y_SiteName&""" src=""img/nologo.gif""/></a>")
end if
Response.Write("</td>")
Response.Write(" <td align=center width=""15%"">"&ID&"</td>")
Response.Write(" <td> 站点名称:<a onclick=""addgoout("&ID&")"" href="""&Y_SiteURL&""" target=_blank >"&Y_SiteName&"</a></td>")
Response.Write(" <td align=center width=""15%"">"&goin&"</td>")
Response.Write(" <td align=center width=""15%"">"&goout&"</td>")
Response.Write("</tr>")
Response.Write("<tr bgcolor=#FFFFFF>")
Response.Write(" <td>")
Response.Write("<a class=""atitle"" href=""http://www.todo.net.cn"" target=""_blank"">.</a>")
Response.Write("<a class=""atitle"" href=""http://todo.net.cn"" target=""_blank"">.</a>")
Response.Write(" ")
Response.Write("<img src=""img/dj.gif""></td>")
Response.Write(" <td height=40 colspan=3 valign=top bgcolor=#FFFFFF>"&Y_Alt&"</td>")
Response.Write("</tr>")
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<tr><td colspan=5><table cellspacing=1 width='100%' border=0 colspan='4'><form method=Post action="""&filename&"?channel="&channel&"""><tr><td align=right> "
if CurrentPage<2 then
response.write "共<font color=red>"&totalnumber&"</font>条记录 首页 上一页 "
else
response.write "共<font color=red>"&totalnumber&"</font>条记录 <a href="&filename&"?channel="&channel&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&channel="&channel&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&channel="&channel&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&channel="&channel&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条记录/页 "
%>
转到：
<input type=hidden name="channel" value=<%=channel%>>
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
response.write "</td></tr></FORM></table></td></tr>"
end function
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="2" colspan=5></td>
</tr>
</table>
<!--显示与隐藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -