ch9 设计实例.pptVIP

Set rs_chk_column=conn_db(sql_chk_column,1) If Not rs_chk_column.Eof Then errmsg=该栏目名称已经被使用，请更换其他名称！ return_url=JavaScript:History.Back() Else sql_add_column=insert into column_info (column_name, resume) values (column_name, column_resume) Set rs_add_column=conn_db(sql_add_column,3) errmsg=论坛栏目添加成功！ return_url=admin.asp End If close_conn(rs_chk_column) End If “编辑栏目”操作。先判断栏目名称（column_name）和栏目简介（column_resume）是否为空。如果任一项为空，则返回上一页；如果都不为空，则继续判断该栏目名称是否已经被使用。如果已经被使用，则返回上一页，如果没有被使用，则更新该栏目信息 Elseif oper_type=edit_column Then column_id=Trim(Request.Form(column_id)) column_name=Trim(Request.Form(column_name)) column_resume=Trim(Request.Form(resume)) If column_name= Or column_resume= Then errmsg=栏目名称或栏目简介不能为空！ return_url=JavaScript:History.Back() Else sql_chk_column=Select * From column_info Where column_name= column_name Set rs_chk_column=conn_db(sql_chk_column,1) If Not rs_chk_column.Eof Then errmsg=该栏目名称已经被使用，请更换其他名称！ return_url=JavaScript:History.Back() Else sql_edit_column=Update column_info Set column_name=column_name , resume=column_resume Where column_id=column_id Set rs_edit_column=conn_db(sql_edit_column,3) errmsg=论坛栏目修改成功！ return_url=admin.asp End If close_conn(rs_chk_column) End If “删除栏目”操作。先删除该栏目所有的回复信息，再删除该栏目所有的主题信息，最后删除该栏目信息 Elseif oper_type=del_column Then column_id=Trim(Request(column_id)) sql_get_art=Select art_id From art_info Where column_id=column_id Set rs_get_art=conn_db(sql_get_art,1) While Not rs_get_art.Eof sql_del_re=Delete From re_info Where art_id=art_id Set rs_del_re=conn_db(sql_del_re,3) rs_get_art.Movenext Wend close_conn(rs_get_art) sql_del_art=Delete From art_info Where column_id=column_id Set rs_del_art=conn_db(sql_del_art,3) sql_del_column=Delete From column_info Where column_id=column_id Set rs_del_column=conn_db(sql_del_column,3) errmsg=该栏目以及该栏目的主题和回复删除成功！ return_url=admin.asp “添加管