ZPdel.asp 474 B

1234567891011121314151617
  1. <!--#include file="../bdcommx/connxyz.asp"-->
  2. <%call log_chk()
  3. call passChk()
  4. thex=request("thex")
  5. Set rs=Server.Createobject("Adodb.Recordset")
  6. sql="select * from adzp where zp_id="&thex&""
  7. rs.open sql,conn,1,3
  8. rs.delete
  9. rs.close
  10. set rs=nothing
  11. sql="delete from adyp where zp_id="&theX&""
  12. conn.Execute sql
  13. ''''''''''''''''''''''''''''保留关联空位
  14. response.write"<SCRIPT language=JavaScript>alert('删除成功!');"
  15. response.write"this.location.href='ZPmag.asp';</SCRIPT>"
  16. %>