📄 del.asp

📁 单版面小型论坛单版面小型论坛
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
logchk session("userid"),session("password")

if session("userid")="" or session("password")="" or session("manbid")="" then
	errmsg="您无权管理论坛！如果您是版主请重新登录！" 
    session.abandon
    errshow(errmsg)
else
    delid=request.querystring("id")
    if delid="" then
        errmsg="删 除 ID 错 误 ！"
        errshow(errmsg)
    else
    	set delreco=server.createobject("adodb.recordset")
    	delstr="select * from book where id=" &delid
    	delreco.open delstr,conn,1,1
		if delreco.eof then
			errmsg="删 除 ID 错 误 ！"
        	errshow(errmsg)
        else
    		retype=delreco("type")
    		fid=delreco("fid")
    		bid=delreco("bid")
    		if session("manbid")<>0 and cint(bid)<>cint(session("manbid")) then
    		    set delreco=nothing
    		    set conn=nothing
    		    errmsg="您无权此版的帖子！"
    		    errshow(errmsg)
    		end if
    		if retype=0 then
    			delstr="delete from book where id=" &delid& " or fid=" &delid
    			delinfo="成 功 删 除 此 帖 子 与 其 下 的 回 复 ！"
    		else
    	    	delstr="delete from book where id=" &delid
    	    	delinfo="成 功 删 除 此 帖 子 ！"
    	    	updelre(fid)
			end if
		delreco.close
		delreco.open delstr,conn
%>
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF">
<p align='center'><%=delinfo%></p>
<p align='center'>刷 新 便 可 以 了 ！</p>
<p align='center'>[ <a href='#' onclick="javascript:self.close()" title="关闭此窗口">关闭窗口</a> ]</p>
</body>
</html>
<%
		set delreco=nothing
		end if
		set conn=nothing
	end if
end if
	
sub updelre(upid)
	set updelreco=server.createobject("adodb.recordset")
	sqlstr="select * from book where id=" &upid
	updelreco.open sqlstr,conn,1,1
	reply=updelreco("reply")-1
	ldate=updelreco("wdate")
	updelreco.close
	if reply=0 then
		sqlstr="update book set reply=" &reply& ",ldate='" &ldate& "' where id=" &upid
	else
		sqlstr="update book set reply=" &reply& " where id=" &upid
	end if
	updelreco.open sqlstr,conn
	set updelreco=nothing
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -