📄 admin_link_show.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config/db.asp"-->
<html>
<head>
<title>后台友情链接管理</title></head>
<body>
<div align="center">后台友情链接管理
</div>
<p>功能：<a href="admin_link_add.asp" target="_blank">添加友情链接</a></p>
<p>友情链接列表：</p>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="200"><div align="center"><strong>id</strong></div></td>
<td width="200"><div align="center"><strong>网址名称</strong></div></td>
<td width="200"><div align="center"><strong>URL地址</strong></div></td>
<td width="200"><div align="center"><strong>图片</strong></div></td>
<td width="200"><div align="center">管理</div></td>
</tr>
<%
dim sql,rst
set rst=server.createobject("adodb.recordset")
sql="select * from tbl_link"
rst.open sql,conn,1,1
do while not rst.eof
%>
<tr>
<td width="200"><div align="center"><%=rst("lnk_id")%></div></td>
<td width="200"><div align="center"><%=rst("lnk_name")%></div></td>
<td width="200"><div align="center"><%=rst("lnk_url")%></div></td>
<td width="200"><div align="center">
<% if rst("lnk_image")<>"" then %>
<img src="../upfile/<%=rst("lnk_image")%>">
<% end if %>
</div></td>
<td width="200"><div align="center"><a href="admin_link_modify.asp?act=modify&id=<%=rst("lnk_id")%>" target="_blank">修改</a> <a href="admin_link_act.asp?act=del&id=<%=rst("lnk_id")%>&file=<%=rst("lnk_image")%>" target="_blank" onClick="javascript:return confirm('您确定要删除此链接吗？');">删除</a></div></td>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -