delete2.asp

来自「心里在线咨询系统 怎么还有字数限制」· ASP 代码 · 共 29 行

<!--#include file="../config/sys.asp" -->
<%'这里定义你的管理员名和密码！
s =cint( request.querystring("s"))
p = request.querystring("p")
id =cint( request.querystring("id"))
parent =cint( request.querystring("parent"))
if (p="all") then 
sql = "delete from news where id = " & id & " or connected = " & id
conn.Execute(sql)
CONN.Close
set CONN=Nothing%>
<script>
opener.location.href="news.asp?s=<%=s%>";
self.close();
</script>
<%end if
if (p="one") then 
sql = "delete from news where id = " & id
conn.Execute(sql)
sql = "update news set replies = replies -1 where id = " & parent
conn.Execute(sql)
CONN.Close
set CONN=Nothing%>
<script>
opener.location.reload();
self.close();
</script>
<%end if%>