delboard.asp

单版面小型论坛 单版面小型论坛

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

logchk session("userid"),session("password")

if session("userid")<>"" and session("password")<>"" and session("manbid")=0 then
	bid=request.querystring("bid")
	if bid="" or isempty(bid) then
	    errmsg="删 除 版 面 错 误 ！"
	    errshow(errmsg)
	end if
	set delreco=server.createobject("adodb.recordset")
	sqlstr="delete from board where bid=" &bid
	delreco.open sqlstr,conn
	set delreco=nothing
	set conn=nothing
	response.redirect "boardman.asp"
else
	errmsg="您 无 权 删 除 版 面 ！"
	errshow(errmsg)
end if
%>