order_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="已经成功删除您所选!"
	sql="select * from basket where id in (" & delid & ")"
	set rsdel=createobject("adodb.recordset")
	rsdel.open sql,conn,1,3
	while not rsdel.eof
 
		rsdel.delete
		rsdel.update
		
		'删除图片
		
		set delImg=nothing
		rsdel.movenext
	wend
	rsdel.close
	set rsdel=nothing
	check_alert errorstr,"Order_Admin.asp"
%>