admin_boardsave.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
CheckAdmin
dim founderr,errmsg
founderr=false
set rs=server.CreateObject("ADODB.RecordSet")
action=request("action")
if action="del" then
sql="select * from bbs where boardid="&request.QueryString("boardid")
rs.open sql,conn,1,3
do while not rs.eof
	conn.execute "delete * from reply where bbsid="&rs("bbsid")
	rs.delete
rs.movenext
loop
rs.close
conn.execute "delete * from board where boardid="&request.QueryString("boardid")
response.redirect "admin_board.asp"
response.end
end if
if trim(request.form("boardid"))=""then
	errmsg="<li>请先添加论坛分类！"
	call error()
	response.end
else
	boardid=trim(request.form("boardid"))
end if
if trim(request.form("classid"))=""then
	errmsg="<li>请首先添加分类！"
	call error()
	response.end
else
	classid=trim(request.form("classid"))
end if
if trim(request.form("boardintro"))="" then
	errmsg="<li>论坛简介不能为空！"
	call error()
	response.end
else
	boardintro=trim(request.form("boardintro"))
end if
if trim(request.form("boardtitle"))="" then
	errmsg="<li>论坛名称不能为空！"
	call error()
	response.end
else
	boardtitle=trim(request.form("boardtitle"))
end if
if action="add" then
	call add()
elseif action="edit" then
	call edit()
else
	errmsg="<li>参数错误"
	founderr=true
	response.end
end if
if founderr=true then
	call error()
	response.end
end if
response.redirect "admin_board.asp"
sub add()
sql="select * from board where boardid="&boardid
rs.open sql,conn,1,3
if not rs.eof then
	errmsg="<li>该序号已有论坛使用，请重新选择！"
	founderr=true
else
	rs.addnew
	rs("classid")=classid
	rs("boardid")=boardid
	rs("boardtitle")=boardtitle
	rs("boardintro")=boardintro
	rs("logo")=trim(request("logo"))
	rs("bgcolor")=trim(request("bgcolor"))
	rs("bgimage")=trim(request("bgimage"))
	rs("images")=trim(request("images"))
	rs("ads")=trim(request("ads"))
	rs("boardtype")=trim(request("boardtype"))
	rs("boardmaster")=trim(request("boardmaster"))
	rs("tablebackcolor")=trim(request("tablebackcolor"))
	rs("tabletitlecolor")=trim(request("tabletitlecolor"))
	rs("tablebodycolor")=trim(request("tablebodycolor"))
	rs("tablebodyacolor")=trim(request("tablebodyacolor"))
	rs.update
end if
rs.close
end sub
sub edit()
if boardid<>request.QueryString("boardid") then
	sql="select boardid from board where boardid="&boardid
		rs.open sql,conn,1,3
	if not rs.eof then
		errmsg="<li>该序号已有论坛使用，请重新选择！"
		call error()
		response.end
	end if
	rs.close
end if
sql="select * from board where boardid="&request.QueryString("boardid")
rs.open sql,conn,1,3
if rs.eof then
	rs.close
	errmsg="<li>没有找到该论坛,数据库更新失败！"
	founderr=true
else
	rs("classid")=classid
	rs("boardid")=boardid
	rs("boardtitle")=boardtitle
	rs("boardintro")=boardintro
	rs("logo")=trim(request("logo"))
	rs("bgcolor")=trim(request("bgcolor"))
	rs("bgimage")=trim(request("bgimage"))
	rs("images")=trim(request("images"))
	rs("ads")=trim(request("ads"))
	rs("boardtype")=trim(request("boardtype"))
	rs("boardmaster")=trim(request("boardmaster"))
	rs("tablebackcolor")=trim(request("tablebackcolor"))
	rs("tabletitlecolor")=trim(request("tabletitlecolor"))
	rs("tablebodycolor")=trim(request("tablebodycolor"))
	rs("tablebodyacolor")=trim(request("tablebodyacolor"))
	rs.update
	conn.execute "update bbs set boardid="&boardid&" where boardid="&request.QueryString("boardid")
end if
rs.close
end sub
%>