if request.cookies("admin_OK")="" then
response.redirect("admin_login.html")
end if
%>
dim db
db=0
%>
on error resume next
dim rst,sql,myErrors,rid
set rst=server.createobject("adodb.recordset")
rid=request.querystring("id")
%>
后台友情链接修改
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
%>
后台友情链接管理
修改友情链接列表：
修改友情链接图片： if rst("link_image")"" then
%>
else
response.write("没有图片")
end if
%>
如果需要修改图片请上传，否则请留空！
修改友情链接名称：
修改友情链接地址：
end if
rst.close
end if
end if
%>
set rst=nothing
conn.close
set conn=nothing
%>
