<!-- #include file="../conn.asp"-->
<!--#include file="../admin/check_master.asp" -->
<!-- #include file="../admin/check_admin_qs.asp" -->
<!-- #include file="../inc/publicfun.asp" -->
<%
   dim sql
   dim rs
   bloghtmfile=request("htm")
   htm=replace(bloghtmfile,"b","a")
   if request("op")="del" then
     str="delete from bbstitle where htmfilename='"&htm&"'" '删除论坛贴子与文件
	 conn.execute str
	 sql="update ftblog_type set totalnum=totalnum-1 where totalnum>0 and id="&request("blogtypeid")
	 conn.execute sql
	 call DelFile("../"&htm,fso)
     sql="delete from ftblog where id="&request("id")
	 conn.execute sql
	 call DelFile("../"&bloghtmfile,fso)
   elseif request("op")="top" then
	 sql="update ftblog set blogtop="&request("v")&" where id="&request("id")
	 conn.execute sql
   elseif request("op")="tj" then
	 sql="update ftblog set blogtj="&request("t")&" where id="&request("id")
	 conn.execute sql
   end if
   conn.close
   set conn=nothing
   response.redirect request.serverVariables("HTTP_REFERER")
%>
