admin_link_show.asp

商业网站/图片管理系统/投票系统/新闻管理系统/

<%option explicit%>
<%
if request.cookies("admin_OK")="" then
	response.redirect("admin_login.html")
end if
%>
<!--后台友情链接管理-->
<%dim db
db=0
%>
<!--#include file="../config/db.asp"-->
<!--#include file="../config/function.inc.asp"-->
<%
dim rst,sql,myErrors
set rst=server.createobject("adodb.recordset")
%>
<title>后台友情链接管理</title>
<div align="center">后台友情链接管理</div>
<p>功能：<a href="admin_link_add.asp">添加友情链接</a></p>
<p>友情链接列表</p>
<div align="center">
	<table width="754" height="58" border="1" cellpadding="0" cellspacing="0">
		<tr>
			<td width="55" align="center">ID</td>
			<td width="193" align="center">网站名称</td>
			<td width="257" align="center">URL地址</td>
			<td width="130" align="center">图片</td>
			<td width="107" align="center">管理</td>
		</tr>
<%
sql="select * from shop_link"
rst.open sql,conn,1,1
if rst.eof and rst.bof then	
%>
		<tr>
		<td colspan="5">还没有友情链接记录！
		</td>
		</tr>
<%
else
	while not rst.eof
%>
		<tr>
			<td align="center"><%=rst("link_id")%></td>
			<td align="center"><%=rst("link_name")%></td>
			<td align="center"><%=rst("link_url")%></td>
			<td align="center">
			<% if rst("link_image")<>"" then%>
			<IMG SRC="../upfile/<%=rst("link_image")%>">
			<%end if%>
			</td>
			<td align="center"><a href="admin_link_modify.asp?act=modify&amp;id=<%=rst("link_id")%>">修改</a>&nbsp;<a href="admin_link_act.asp?act=del&amp;id=<%=rst("link_id")%>&file=<%=rst("link_image")%>" onclick="javascript:return confirm('您确定要删除此条记录吗？');">删除</a></td>
		</tr>
<%
		rst.movenext
	wend
	rst.close
end if
%>
	</table>
</div>
<%
set rst=nothing
conn.close
set conn=nothing
%>
<p>&nbsp;</p>