📄 product_del.asp

📁 这是一个物流网站的源代码

💻 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='Product_Admin.asp'>返回</a></center>"
	sql="select * from Product where P_id in (" & delid & ")"
	set rsdel=createobject("adodb.recordset")
	rsdel.open sql,conn,1,3
	while not rsdel.eof
	conn.execute("update Product set P_Order=P_Order-1 where P_sortid="&rsdel("P_sortid")&" and P_Language='"&rsdel("P_Language")&"' and P_Order>"&rsdel("P_Order"))
		set delImg=createobject("scripting.filesystemobject")
		if left(rsdel("P_Pic"),4)=cstr(year(now())) then
		delsImg=trim(rsdel("P_Pic"))
		delsImg=server.mappath("../../uploadfile/product_small/"&delsImg)
		   if delimg.fileexists(delsImg) then
		      delImg.deletefile(delsImg)
		   end if
		end if   
		
		if left(rsdel("P_Pic2"),4)=cstr(year(now())) then
		delsImage=trim(rsdel("P_Pic2"))
		delsImage=server.mappath("../../uploadfile/product_big/"&delsImage)
		  if delimg.fileexists(delsImage) then
			 delImg.deletefile(delsImage)
		  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 + -