del.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 48 行

<% option explicit %>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：库存管理--删除物品
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim sql,rs
Dim id ,imgurl
Dim msg 

msg=""

call DB_Connect(strconn)

'---验证身份----
Call AdminCheck

id=getForm("id")
if id="" or (not isnumeric(id)) then
   id=0
   msg="发生错误!"
end if
Set rs=oConn.execute("Select Ste_imgurl from t_GoodsCon where ste_id=" & id)

if not rs.eof and not rs.bof then
  imgurl=sPath_Info &rs(0)
end if
rs.close
set rs=nothing

sql="delete from t_GoodsCon where ste_id=" & id
oConn.execute(sql)
Call DeleteFileFun(server.mappath(imgurl))

call DB_DisConnect
 if msg<>"" then 
	response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
	response.write "<!--" & vbcrlf
	response.write "	alert('" & msg & "');" & vbcrlf
	response.write "	history.go(-1);" & vbcrlf
	response.write "//-->" & vbcrlf
	response.write "</SCRIPT>"
	response.end 
 end if
response.redirect "index.asp"
%>