buydele.asp

基于IIS+ASP的

<% response.buffer=true %>
<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<% 
'johnson code
user=session("user")
pwd=session("pwd")
chkuser user,pwd
%>

<%
	'--------------------------------查询记录---------
	T_Member_id=request("MemberIdUni")
	H_Member_id=request("MemberIdUni")
	T_Member_id=replace(T_Member_id,"（","Id=")
	T_Member_id=replace(T_Member_id,","," or Id=")
	T_Member_id=replace(T_Member_id,"）","")
	'-----------------------------------------
	 sql="delete from PayProduct where (" & T_Member_id & ")"  
	set rs=Conn.Execute(sql)
					if err=0 then
					    response.Redirect("buylist.asp?idd=3")
                    else
					    showerr "操作失败！","buylist.asp?idd=1"
					end if
    rs.close
	set rs=nothing
	set conn=nothing								
%>