del_pinglun.asp

来自「日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。」· ASP 代码 · 共 31 行

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

<%
   id=replace(request("id")," ","")
   if isnumeric(id)=false or isnull(id)=true then
   response.write "请指定正确的参数，或者通过日记本首页进行访问!"
   response.end
   end if

   set rs=server.createobject("ADODB.recordset") 
       rs.Open "SELECT * FROM say Where sayid="&id,conn,1,3 

   set rs2=server.createobject("ADODB.recordset") 
       rs2.Open "SELECT * FROM diary Where id="&rs("diaryid"),conn,1,3 

   if  not (rs("postuser")=session("username") or rs2("userid")=session("userid")) then 
%>
<script language=vbscript>
  MsgBox "呵呵~~~！想干吗呢？登陆超时请重新登陆，或者此则评论不是你写的吧！"
  location.href = "javascript:history.back()"
</script>
<%
   else
   
   str="delete from say where sayid="&id
   conn.execute(str)
   str="update diary set saynum=saynum-1 where id="&diaryid
   conn.execute(str)
   response.redirect "show_diary.asp?id="&request("diaryid")
   end if
%>