delete.asp

中国电视购物网电子商务系统

<%@ Language=VBScript %>
<!--#include file="../../include/memconn.asp"-->
<%
memid=Request.Form("mem_id")
action=Request.Form("action")
if isempty(memid) then
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("请先选定纪录。")
history.go(-1)
//-->
</SCRIPT>

<%
else
if action="buy" then
sql="delete from mem_buy where mem_id in ("&memid&") "
else if action="sell" then
sql="delete from mem_sell where mem_id in ("&memid&") "
else if action="user" then
sql="delete from mem_usr where usr_id in ("&memid&") "
end if
end if
end if
call del(sql)
call conn_end

function del(sql)
conn.execute(sql)
if conn.errors.count=0 then
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("用户已删除,请刷新浏览。")
history.go(-1)
//-->
</SCRIPT>

<%
else
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("发生系统错误，请联系管理员。")
history.go(-1)
//-->
</SCRIPT>

<%
end if
end function
end if
%>