xuanjuAsp/xafch315/bdcp/Pstop.asp

<!--#include file="../bdcommx/connxyz.asp"-->
<%
call log_chk()
dim thex,act,myodr,Keyword
thex=request("thex")
act=request("act")
myodr=request("myodr")
Keyword=request("Keyword")
Bid=request("Bid")
Sid=request("Sid")
if request("act")="stop" then
		Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdcp where cxp_id="&thex&""
		rs.open sql,conn,1,3
		rs("cxp_stop")=0
		rs.update
		rs.close
		set rs=nothing
		response.Redirect("Pmag.asp?Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"")
end if
if request("act")="rstop" then
		Set rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdcp where cxp_id="&thex&""
		rs.open sql,conn,1,3
		rs("cxp_stop")=1
		rs.update
		rs.close
		set rs=nothing
		response.Redirect("Pmag.asp?Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"")
end if%>