📄 link_del.asp
字号:
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
delid=Request("delid")
if delid="" then
response.Redirect(request.servervariables("HTTP_REFERER"))
response.End
end if
%>
<!--#include file="../inc/conn.asp"-->
<%
errorstr="<center>已经成功删除您所选<a href='Link_Admin.asp'>返回</a></center>"
sql="select * from Link where L_id in (" & delid & ")"
set rsdel=createobject("adodb.recordset")
rsdel.open sql,conn,1,3
while not rsdel.eof
conn.execute("update Link set L_Order=L_Order-1 where L_sortid="&rsdel("L_sortid")&" and L_Language='"&rsdel("L_Language")&"' and L_Order>"&rsdel("L_Order"))
set delImg=createobject("scripting.filesystemobject")
if left(rsdel("L_Pic"),4)=cstr(year(now())) then
delsImg=trim(rsdel("L_Pic"))
delsImg=server.mappath("../../uploadfile/Link_title/"&delsImg)
if delimg.fileexists(delsImg) then
delImg.deletefile(delsImg)
end if
end if
rsdel.delete
rsdel.update
'删除图片
set delImg=nothing
rsdel.movenext
wend
rsdel.close
set rsdel=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css_admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<% response.write errorstr %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -