link_del.asp

来自「这是一个物流网站的源代码」· ASP 代码 · 共 50 行

ASP
50 行
字号 
<!--#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>

link_del.asp - 源码说明

本页面展示了「这是一个物流网站的源代码」中的 link_del.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与物流系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?