📄 admin_link_modify.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config/db.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body>
<div align="center">后台友情链接管理</div>
<p>修改友情链接列表：</p>
<%if request.QueryString("act")="modify" then
set rst=server.createobject("adodb.recordset")
'这里缺少参数合法性判断，大家自己补齐
sql="select * from tbl_link where lnk_id="&request.querystring("id")
rst.open sql,conn,1,1
%>
<form action="admin_link_act.asp?act=update&id=<%=request.querystring("id")%>" method="post" enctype="multipart/form-data" name="form1" target="_blank" id="form1">
<p>修改友情链接图片：
<% if rst("lnk_image")<>"" then %>
<img src="../upfile/<%=rst("lnk_image")%>">
<%
else
response.Write("没有图片")
end if
%>
</p>
<p>
<input name="image1" type="file" id="image1">
<span class="STYLE1">如果需要修改图片请上传，否则请留空 </span></p>
<p>修改友情链接名称：
<input name="name1" type="text" id="name1" value="<%=rst("lnk_name")%>">
</p>
<p>修改友情链接地址：
<input name="url1" type="text" id="url1" value="<%=rst("lnk_url")%>">
</p>
<p>
<input type="submit" name="Submit" value="提交" />
</p>
</form>
<%
rst.close
set rst=nothing
end if
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -