productdele.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,"）","")
    hot=request("hot")
	'pclass=request("pclass")
	pid=request("pid")
	'response.Write(request("pclass"))
	'response.End()
	'-----------------------------------------
	if hot=1 then
	   sql="update  product set state=0  where (" & T_Member_id & ")"  
	else
	   sql="delete from product where (" & T_Member_id & ")"  
	end if

	set rs=Conn.Execute(sql)
    	
    if err=0 then
      response.Redirect("productlist.asp?idd="&request("pclass")&"&pid="&pid)
    else
	   showerr "操作失败！","productlist.asp?idd="&request("pclass")&"&pid="&pid
	end if
	rs.close
	set rs=nothing
	set conn=nothing
  response.end()			
%>