📄 link_admin.asp
字号:
<!--#include file="../inc/CheckAdmin.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/Navtree.asp"-->
<!--#include file="../inc/Conn.asp"-->
<%
Dim Language,table,Sortid,sql
Language=formatStr(Request("Language"))
table_behind="LinkSort_"
table=Get_Table(table_behind,Language)
Sortid=request("Sortid")
KeyWord=formatStr(request("KeyWord"))
if Sortid="" or not isnumeric(Sortid) then
SortSql=""
else
SortSql=" and L_Sortid="&Sortid
end if
sql="select * from Link where L_Language like '%"&Language&"%'"&SortSql&" and L_Name like '%"&KeyWord&"%' order by L_Order DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=20
%>
<!--#include file="../../inc/Page_function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站管理系统</title>
<link href="../Css_Main.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
<!--
function CheckAll(formall)
{
for (var i=0;i<formall.elements.length;i++)
{
var e = formall.elements[i];
if (e.name == 'delid')
e.checked = formall.chkall.checked;
}
}
-->
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td class="title_dh"><div align="center">友情链接管理</div></td>
</tr>
<form action="" method="get" name="form">
<tr>
<td class="tdbg"><div align="left"><strong>搜索：</strong>
<!--#include file="../inc/Language.asp"-->
<select name="Sortid" id="Sortid">
<% If table<>"None" Then %>
<option value="">全部链接</option>
<%showtreefornav table,"LS_",0,"rs","",SortId,isadd %>
<% Else %>
<option value="" selected>全部链接</option>
<% End If %>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" value="<%= Keyword %>">
<input name="Submit" type="submit" id="Submit" value="查询">
</div></td>
</tr></form>
</table>
<form name="form1" method="post" action="link_Del.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title_top">
<td width="5%"><div align="center">选择 </div></td>
<td width="8%"><div align="center"> ID</div></td>
<td width="30%"><div align="left">名称</div></td>
<td width="10%"><div align="center"> 版本</div></td>
<td width="10%"><div align="center">所属分类</div></td>
<td width="10%"><div align="center"> 推荐</div> <div align="center"></div></td>
<td width="9%"><div align="center"></div></td>
<td width="18%"><div align="center">操作</div></td>
</tr>
<% if rs.eof and rs.bof then %>
<tr class="tdbg">
<td colspan="8">
<div align="center"> 暂时没有链接</div></td>
</tr>
<% else %>
<% for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<tr class="tdbg">
<td>
<div align="center">
<input type="checkbox" name="delid" value="<%= rs("L_id") %>">
</div></td>
<td>
<div align="center"><%= rs("L_id") %></div></td>
<td><a href="link_Edit.asp?id=<%= rs("L_id") %>&language=<%= rs("L_language") %>&sortid=<%= rs("L_Sortid") %>"><%= rs("L_Name") %></a></td>
<td>
<div align="center"><%= Check_Language(rs("L_Language")) %></div></td>
<td><div align="center"><%= Get_Sort_all("LS","LinkSort_"&rs("L_Language"),rs("L_Sortid")) %></div></td>
<td> <div align="center"><% if rs("L_Special")=1 then Response.Write("√") %></div></td>
<td>
<div align="center"><%= rs("L_Click") %></div></td>
<td><div align="center"><a href="link_Edit.asp?id=<%= rs("L_id") %>&language=<%= rs("L_language") %>&sortid=<%= rs("L_Sortid") %>">修改</a> | <a href="link_Move.asp?id=<%= rs("L_id") %>&action=down&language=<%= rs("L_language") %>"><img src="../image/system/arrow_up.gif" alt="上移" width="15" height="13" border="0"></a><a href="link_Move.asp?id=<%= rs("L_id") %>&action=up&language=<%= rs("L_language") %>"><img src="../image/system/arrow_down.gif" alt="下移" width="15" height="13" border="0"></a> | <a href="link_Del.asp?delid=<%= rs("L_id") %>" onClick="return confirm('此操作不可恢复,确定执行吗？');">删除</a></div></td>
</tr>
<% rs.movenext
next
%>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<div align="center">
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" title='全选/不选' >
全选/不选
<input type="submit" name="Submit2" value="删除所选" onClick="return confirm('此操作不可恢复,确定执行吗？');">
</div></td>
</tr>
</table>
<div align="center">
</div>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td>
<div align="center"><!-- #include file="../../inc/showpage.asp" --></div></td>
</tr>
</table> </form>
<% end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -