admin_classsave.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")
set rs1=server.CreateObject("ADODB.RecordSet")
action=request("action")
if action="del" then
sql="select * from board where classid="&request.QueryString("classid")
rs1.open sql,conn,1,3
do while not rs1.eof
	sql="select * from bbs where boardid="&rs1("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
rs1.delete
rs1.movenext
loop
rs1.close
	conn.execute "delete * from class where classid="&request.QueryString("classid")
	response.redirect "admin_class.asp"
	response.end
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("classname"))="" then
	errmsg="<li>分类名称不能为空！"
	call error()
	response.end
else
	classname=trim(request.form("classname"))
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_class.asp"
sub add()
sql="select classid,classname from class where classid="&classid
rs.open sql,conn,1,3
if not rs.eof then
	errmsg="<li>该序号已有分类使用，请重新选择！"
	founderr=true
else
	rs.addnew 
	rs("classid")=classid
	rs("classname")=classname
	rs.update
end if
rs.close
end sub
sub edit()
if classid<>request.QueryString("classid") then
	sql="select * from board where classid="&classid
		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 class where classid="&request.QueryString("classid")
rs.open sql,conn,1,3
if rs.eof then
	rs.close
	errmsg="<li>没有找到该分类,数据库更新失败！"
	founderr=true
else
	rs("classid")=classid
	rs("classname")=classname
	rs.update
	conn.execute "update board set classid="&classid&" where classid="&request.QueryString("classid")
end if
rs.close
end sub
%>