📄 admin_link_act.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config/db.asp"-->
<!--#include file="../config/function.inc.asp"-->
<%
on error resume next
set rst=server.createobject("adodb.recordset")
set fs=Server.CreateObject("scripting.FileSystemObject")
if request.QueryString("act")="add" or request.QueryString("act")="update" then
%>
<!--#include file="../config/formdata.inc.asp"-->
<%
end if
%>
<html>
<head>
<title>后台友情链接管理</title></head>
<body>
<%
'填加图片，网站名，链接地址到数据库
dim sql,rst,myErrors
if request.QueryString("act")="add" then
sql="tbl_link"
rst.open sql,conn,1,3
rst.addnew
rst("lnk_image")=formdata.item("image")
rst("lnk_name")=formdata.item("name")
rst("lnk_url")=formdata.item("url")
rst.update
rst.close
set myErrors=conn.errors
if myErrors.count=0 then
msgboxu "添加友情链接<" & formdata.item("name") & ">成功！"
else
rmsgboxU "添加友情链接失败！原因：" & myErrors.item(0).description
'删除已经上传的文件
fs.DeleteFile server.MapPath("../upfile") & "\" & formdata.item("image")
end if
end if
%>
<%
'删除友情链接管理
if request.QueryString("act")="del" then
'缺少合法性判断
conn.execute "delete from tbl_link where lnk_id="&request.QueryString("id")
set myErrors=conn.errors
if myErrors.count=0 then
msgboxU "删除成功！"
if request.QueryString("file")<>"" then fs.DeleteFile server.MapPath("../upfile") & "\" & request.QueryString("file")
else
msgboxU "删除失败！原因："&myErrors.item(0).description
end if
end if
%>
<%'修改友情链接管理
if request.QueryString("act")="update" then
rst.open "select * from tbl_link where lnk_id=" & request.QueryString("id"),conn,1,3
if formdata.item("image1")= "" then '如果原来没有图片,则只修改链接名和地址
rst("lnk_name")=formdata.item("name1")
rst("lnk_url")=formdata.item("url1")
else
if rst("lnk_image") <> "" then '如果原来有图片，则删除图片
fs.DeleteFile server.MapPath("../upfile") & "\" & rst("lnk_image")
end if
rst("lnk_image")=formdata.item("image1")
rst("lnk_name")=formdata.item("name1")
rst("lnk_url")=formdata.item("url1")
end if
rst.update
rst.close
set myErrors=conn.errors
if myErrors.count=0 then
msgboxU "修改成功！"
else
msgboxU "修改失败！原因："&myErrors.item(0).description
end if
end if
%>
<%
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -