<%
HtmlTop
if CookieUserName=empty then error("您还未登录论坛")
if Request("menu")="DelPostAttachment" then
if Request.Form("UpFileID")="" then error("您没有选择要删除的文件！")
for each ho in Request.Form("UpFileID")
ho=int(ho)
sql="select * from [BBSXP_PostAttachments] where UpFileID="&ho&" and UserName='"&CookieUserName&"'"
Rs.Open sql,Conn,1
if Not Rs.Eof then
if DelFile(""&RS("FilePath")&"")=True then Conn.execute("Delete from [BBSXP_PostAttachments] where UpFileID="&Rs("UpFileID")&"")
End if
Rs.close
next
succeed "删除成功",""
end if
sql="[BBSXP_PostAttachments] where UserName='"&CookieUserName&"'"
rs.Open ""&sql&" order by UpFileID Desc",Conn,1
TotalCount=conn.Execute("Select count(UpFileID) From "&sql&"")(0) '获取数据数量
PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = RequestInt("PageIndex") '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
TotalUserPostAttachments=conn.execute("Select sum(ContentSize) from "&sql&"")(0)
if ""&TotalUserPostAttachments&""="" then TotalUserPostAttachments=0
BytesUsed=int(TotalUserPostAttachments/(SiteConfig("MaxPostAttachmentsSize")*1024)*100)
%>