📄 admin_linkmanage.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=4
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="admin_Function.asp"-->
<%
dim rsLink,page,i,filepath,errmsg,SuccessMsg
set rsLink=Server.CreateObject("ADODB.Recordset")
rsLink.open"select * from FriendLink order by id desc",conn,1,1
if rsLink.bof or rsLink.eof then
rsLink.close
set rsLink=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>暂时没有友情链接！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_LinkAdd.asp'>申请友情链接</a>］</li>"
errmsg=errmsg + "<br><br>"
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rsLink.pagesize=15
if not isempty(page) then
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page>rsLink.pagecount then
rsLink.absolutepage=rsLink.pagecount
elseif page<=0 then
rsLink.absolutepage=1
else
rsLink.absolutepage=page
end if
else
rsLink.absolutepage=1
end if
page=rsLink.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function dellink()
{
if(confirm("你确定要删除这个网站吗？一旦删除，将不能恢复！"))
return true;
else
return false;
}
function unselectall()
{
if(document.form1.chkAll.checked){
document.form1.chkAll.checked = document.form1.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="txt1">欢迎来到友情链接管理面板</td>
</tr>
<tr>
<td align="center" class="tbbgtitle">单击［修改］可设定链接属性 ［<a href="admin_LinkAdd.asp">申请链接</a>］</td>
</tr>
<tr>
<td align="center" class="txt05"><span class="txt03">
</span>
<form name="form1" method="post" action="admin_LinkDel.asp" onsubmit="return dellink();">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><span class="txt05">
<%call pagination(rsLink.pagecount,rsLink.pagesize,page,rsLink.recordcount)%>
</span></td>
</tr>
<tr>
<td><%if rsLink.eof or rsLink.bof then%>
<%response.write"目前还没有网站链接，请申请！"%>
<%else%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F5F8F5">
<tr align="center" class="txt1">
<td width="5%" class="tbbgtitle">选定</td>
<td width="17%" class="tbbgtitle">网站名称</td>
<td width="13%" class="tbbgtitle">网站LOGO</td>
<td width="9%" class="tbbgtitle">站长名称</td>
<td width="10%" class="tbbgtitle">网站类型</td>
<td width="8%" class="tbbgtitle">推荐</td>
<td width="6%" class="tbbgtitle">审核</td>
<td width="11%" class="tbbgtitle">链接类型</td>
<td width="7%" class="tbbgtitle">修改</td>
<%if session("adminpurview")<=3 then%>
<td width="14%" class="tbbgtitle">删除</td>
<%end if%>
</tr>
<% for i=1 to rsLink.pagesize
if rsLink.eof then
exit for
end if %>
<tr align="center" class="txt05">
<td class="tbbgtitle"><input name="cheid" type="checkbox" class="but" id="cheid" value="<%=rsLink("ID")%>"></td>
<td><a href="<%=rsLink("SiteUrl")%>" target="_blank"><%=rsLink("SiteName")%></a></td>
<td><a href="<%=rsLink("SiteUrl")%>" target="_blank"> <img src="../<%=rsLink("LogoUrl")%>" alt="<%=rsLink("SiteName")%>" name="LOGOURL" width="80" height="40" border="0" align="middle" id="LOGOURL" ></a></td>
<td><a href="mailto:<%=rsLink("SiteEmail")%>"><%=rsLink("SiteMaster")%></a></td>
<td><%if rsLink("SiteType")=1 then%>
合作网站
<%else if rsLink("SiteType")=2 then%>
友情网站
<%else%>
普通网站
<%end if
end if%></td>
<td><%if rsLink("IsGood")=true then%>
已推荐
<%else%>
<font color="#FF9900">未推荐</font>
<%end if%>
</td>
<td><%if rsLink("Ispass")=true then%>
是
<%else%>
<font color="#FF9900">否</font>
<%end if%>
</td>
<td><%if rsLink("linktype")=1 then%>
文字链接
<%else if rsLink("linktype")=2 then %>
LOGO链接
<%end if end if%>
</td>
<td> <a href="admin_LinkMod.asp?id=<%=rsLink("ID")%>">修 改</a></td>
<%if session("adminpurview")<=3 then%>
<td><a href="admin_LinkDel.asp?id=<%=rsLink("ID")%>" onclick="return dellink();">删 除</a></td>
<%end if%>
</tr>
<% rsLink.movenext
next
end if
%>
</table></td>
</tr>
<tr>
<td align="center"><span class="txt03">
<%call pagination(rsLink.pagecount,rsLink.pagesize,page,rsLink.recordcount)%>
</span></td>
</tr>
<tr>
<td align="center" class="tbbgtitle"><input name="chkAll" type="checkbox" class="but" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
单击选中本页所有网站
<input name="Submit" type="submit" class="but" value="删除本页选中的网站"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%
end if
rsLink.close
set rsLink=nothing
call closeconn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -