📄 admin_link.asp
字号:
<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<style type="text/css">
body {font-size:13px}
td {font-size:13px}
input {font-size:13px}
</style>
</HEAD>
<BODY>
<br>
<%
delete=request("delete")
if delete<>"" and session("lastdeleted")<>delete then
conn.execute "delete from link where id="&delete
response.write "<big><big><font color='red'>已删除一条编号为"&delete&"的网站记录!</font></big></big><br><br>"
session("lastdeleted")=delete
end if
%>
<big><big>添加新网址</big></big>
<br>
<form action="adddata_link.asp" method="post" onsubmit="return wz_add()" name="form1">
网站标题：<input name="name"><br>
网站url：<input name="url" size="35"><br>
网站logo：<input name="t" size="35"><br>
其他信息：<select name="about" class="button">
<option value='' name=class selected>请选择分类</option>
<option value='1' name=class>首页链接</option>
<option value='2' name=class>综合链接</option>
<option value='3' name=class>证券公司</option>
<option value='4' name=class>银行链接</option>
<option value='5' name=class>期货公司</option>
<option value='6' name=class>报刊财经</option>
</select><br>
<input type="submit" value="添加新网站">
</form>
<br><br>
<big><big>网站列表</big></big>
<br>
<table width="100%" border="1" align="center">
<%
dim topsql,toprs
topsql="select top 400 * from link order by id desc; "
set toprs=server.createobject("adodb.recordset")
toprs.open topsql,conn,1,1
do while not toprs.EOF
Response.Write "<tr><td>"&toprs("id")&" </td><td><a href="""&toprs("url")&""" target=_blank>"&toprs("name")&"</a></td><td>"&toprs("url")&"</td><td>"&toprs("about")&"</td><td><a href=""edit_link.asp?id="&toprs("id")&""" target=_blank>编辑</a></td><td><a href='"&request.servervariables("script_name")&"?pn="&pn&"&delete="&toprs("id")&"'>删除</a></td></tr>"
toprs.MoveNext
loop
toprs.Close
set toprs=nothing
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -