newdele.asp

来自「基于IIS+ASP的」· ASP 代码 · 共 37 行

<% 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")
	pid=request("pid")
	idd=request("idd")
	'-----------------------------------------
	if hot=1 then
	   sql="update  news set state=0  where (" & T_Member_id & ")"  
	else
	   sql="delete from news where (" & T_Member_id & ")"  
	end if
	set rs=Conn.Execute(sql)
					if err=0 then
					    response.Redirect("newlist.asp?idd="&idd&"&pid="&pid)
                    else
					    showerr "操作失败！","newlist.asp?idd="&idd&"&pid="&pid
					end if
    rs.close
	set rs=nothing
	set conn=nothing								
%>