📄 link.asp
字号:
<!--#include file="admin_include.asp"-->
<%
if request.QueryString.Count>0 then
action = request.QueryString("action")
id = request.QueryString("id")
sql="select * from [Link] where friend_id="&id
rs.open sql,conn,1,3
if not rs.eof then
if action="up" then
rs("friend_show")=rs("friend_show")+1
elseif action="down" then
rs("friend_show")=rs("friend_show")-1
elseif action="Show" then
if rs("friend_allow")=true then
rs("friend_allow")=false
else
rs("friend_allow")=true
end if
end if
rs.update
end if
rs.close
call pagend()
response.Redirect("Link.asp")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="css/main.css" type="text/css" rel="stylesheet" />
<title>友情链接</title>
</head>
<body>
<table width="98%" border="1" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
<tr>
<td colspan="7" class="table_caption">友情链接列表</td>
</tr>
<tr>
<td colspan="7" class="intro">
<a href="Link_Add.asp">添加链接</a>
</td>
</tr>
<tr class="header">
<td width="5%">ID</td>
<td>标题</td>
<td>链接</td>
<td width="10%">Logo</td>
<td width="12%">排序/状态</td>
<td width="15%">添加时间</td>
<td width="10%">操作</td>
</tr>
<%
sqlstr="select * from [link] order by friend_show desc,friend_id desc"
rs.open sqlstr,conn,1,1
if not rs.eof then
page_size=Page_Size_All
rs.pagesize=page_size
page_now=1
if trim(request.QueryString("page"))<>"" then
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
page_count=rs.pagecount
rs.absolutepage=page_now
i=1
while(not rs.eof) and i<page_size+1
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td><%=rs("friend_id")%></td>
<td><%=rs("friend_title")%></td>
<td><a href="<%=rs("friend_url")%>" target="_blank"><%=rs("friend_url")%></a></td>
<td>
<%if rs("friend_pic")="" then%>×<%else%><span class="tip_green bold"><img src="../images/upload/<%=rs("friend_pic")%>" /></span><%end if%>
</td>
<td>
<a href="link.asp?action=up&id=<%=rs("friend_id")%>">提升</a> |
<a href="link.asp?action=down&id=<%=rs("friend_id")%>">下降</a> |
<a href="link.asp?action=Show&id=<%=rs("friend_id")%>">
<%if rs("friend_allow") then%>显示<%else%>隐藏<%end if%>
</a>
</td>
<td><%=rs("friend_addtime")%></td>
<td>
<a href='Link_Edit.asp?link_id=<%=rs("friend_id")%>' onclick="">编辑</a>
<a href='#' onclick="javascript:if (confirm('确定删除 <%=rs("friend_title")%>'))location.href='del.asp?del_id=<%=rs("friend_id")%>&n=7';">删除</a>
</td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td colspan="7" class="tdbg">
<%=jk_pagecute(page_size,page_count,page_now,"link.asp?",10,"#233D51")%>
</td>
</tr>
<%
else
response.Write("<tr class='tdbg'><td colspan='7'>")
response.Write("暂无链接!")
response.Write("</td></tr>")
end if
rs.close
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -