mpost_delete.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!-- #include file="Session.asp" -->
<!--#include file="upload_5xsoft.inc"-->
<%
id=request("id")
sql="select * from kheu_nPost where id="&id
set rs=conn.execute (sql)
Title=rs("Title")
content=rs("content")
nUser=rs("nUser")
rs.close
set rs=nothing
sql="select * from kheu_nUser where user_id="&nUser
set rs1=conn.execute (sql)
nPower=rs1("user_power")
user_email=rs1("user_email")
if Session("nPower") < nPower then
  response.write("<script>alert(""您的权限小于原作者"&user_email&",您的积分不够！！！ "");location.href=""../index.htm"";</script>")
  response.end
else
   sql="select * from kheu_nPost where id="&id
   set rsr=server.createobject("adodb.recordset")
   rsr.open sql,conn,1,3
      rsr("nType")=2
      rsr("date")=now()
      rsr("show_flag")=false
      rsr("first_flag")=false
      rsr("clicked")=rsr("clicked")+1
      rsr("build_flag")=false     
      rsr.update
      rsr.close
      conn.close
      response.write "<SCRIPT language=JavaScript>alert('删除成功，等待审核！');location.href=""../index.htm"";"
      response.write "</script>" 
  end if
%>