goods_del.asp

来自「一个较好的网上购物系统 是基于ASP的多用户网上商城」· ASP 代码 · 共 30 行

<%
if session("admin")<>"smallstick" then
response.redirect "login.asp"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql = "select * from goods_info where goods_id="&request("goods_id")&""
rs.open sql,conn,1,3
if not rs.eof or rs.bof then

if rs("goods_pic")<>"" then
tempfpath="../"&rs("goods_pic")
FiLePaTh = Server.MapPath(tempfpath)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
set fso=nothing
end if

conn.execute("delete * from goods_info where goods_id="&request("goods_id")&"")

end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("goods_list.asp")
%>