selfp2cdelete_do.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  P2CID = Request("P2CID")
  rs.Open "Delete From selfp2c Where ID = " & P2CID & "",Conn
  rs.Open "Delete From memberselfp2c Where P2CID = " & P2CID & "",Conn
  Conn.close
  Set Conn = nothing
  Session ("Message") = "自助点击广告删除成功。"
  Response.Redirect "success.asp"
  Response.End
%>