📄 admin_link_modify.asp

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

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%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" -->
<%
on error resume next
dim rst,sql,myErrors,rid
set rst=server.createobject("adodb.recordset")
rid=request.querystring("id")
%>
<!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=gb2312" />
<title>后台友情链接修改 </title>
</head>

<body>
<%
if not isnumeric(rid) or isempty(rid) then
	msgboxU "非法参数"
else
	if request.querystring("act")="modify" then
		sql="select * from shop_link where link_id="&rid
		rst.open sql,conn,1,1
		if rst.eof and rst.bof then
			response.write("没有符合的记录")
		else
%>
	<div align="center">后台友情链接管理
	</div>
	<p>修改友情链接列表：</p>

			<form action="admin_link_act.asp?act=update&id=<%=rid%>" method="post" enctype="multipart/form-data" name="form1" id="form1">
				<p>修改友情链接图片：<%
				if rst("link_image")<>"" then
				%>
				<IMG SRC="../upfile/<%=rst("link_image")%>">
				<%
				else
					response.write("没有图片")
				end if
				%></p>
				<p>
					<input name="image1" type="file" id="image" />
				如果需要修改图片请上传，否则请留空！</p>
				<p>修改友情链接名称：
					<input name="name1" type="text" id="name" value="<%=rst("link_name")%>" />
				</p>
				<p>修改友情链接地址：
					<input name="url1" type="text" id="url" value="<%=rst("link_url")%>" />
				</p>
				<p>
					<input type="submit" name="Submit" value="提交" />
				</p>
			</form>
	<%
		end if
		rst.close
	end if
end if
%>
<%
set rst=nothing
conn.close
set conn=nothing
%>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -