myupfiles.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<%
HtmlTop
if CookieUserName=empty then error("您还未<a href=Login.asp?ReturnUrl="&ReturnUrl&">登录</a>")

if Request("menu")="DelPostAttachment" then
	if Request.Form("UpFileID")="" then error("您没有选择要删除的文件！")
	for each ho in Request.Form("UpFileID")
		ho=int(ho)
		sql="select * from [Wo_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 [Wo_PostAttachments] where UpFileID="&Rs("UpFileID")&"")
		End if
		Rs.close
	next
	succeed "删除成功",""
end if

sql="[Wo_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)
%>

<table width="900" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><div id="CommonBreadCrumbArea"><%ClubTree%> → 上传管理</div></td>
  </tr>
</table>


<table cellspacing=1 cellpadding=0 width=900 id=CommonListArea align="center">
	<TR id=CommonListTitle3>
		<TD align="center"><a href="EditProfile.asp">资料修改</a></td>
		<TD align="center"><a href="EditProfile.asp?menu=pass">密码修改</a></td>
		<TD align="center"><a href="MyUpFiles.asp">上传管理</a></td>
		<TD align="center"><a href="MyFavorites.asp">收 藏 夹</a></td>
		<TD align="center"><a href="MyMessage.asp">短信服务</a></td>
	</TR>
</TABLE>
<br>
<table cellspacing=1 cellpadding=0 border=0 width=900 align="center">
	<tr>
		<td align="center">您的上传空间使用信息：已使用 <%=CheckSize(""&TotalUserPostAttachments&"")%>，剩余 <%=CheckSize((SiteConfig("MaxPostAttachmentsSize")*1024-TotalUserPostAttachments))%></td>
	</tr>
	<tr>
		<td>
		<table cellSpacing="0" cellPadding="0" width="100%" border="0">
			<tr>
				<td width="30"><font color="#ff0000"><%=BytesUsed%>%</font></td>
				<td>
				<table cellSpacing="0" cellPadding="0" width="100%" border="0">
					<tr>
						<td>
							<div class="percent"><div style="width:<%=BytesUsed%>%"></div></div>
						</td>
					</tr>
				</table>
				</td>
				<td align="center" width="30"><font color="#ff0000">100%</font></td>
			</tr>
		</table>
		</td>
	</tr>
</table>

<form method=Post name=form action="?menu=DelPostAttachment">
<table cellspacing=1 cellpadding=0 width=900 id=CommonListArea align="center">
	<tr id=CommonListTitle3>
		<td align="center" width=30><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
		<td align=center width="20%">文件名称</td>
		<td align=center width="60">文件大小</td>
		<td align="center">文件类型</td>
		<td align="center">上传时间</td>
		<td align="center" width="25%">描述</td>
	</tr>
<%
i=0
Do While Not Rs.EOF and i<PageSetup
	i=i+1
%>
	<tr id=CommonListCell><td align="center"><input type=checkbox name=UpFileID value="<%=RS("UpFileID")%>"></td>
		<td align="center"><a target="wh" href="<%=RS("FilePath")%>"><%=RS("FileName")%></a></td>
		<td align=center><%=CheckSize(RS("ContentSize"))%></td>
		<td align=center><%=RS("ContentType")%></td>
		<td align=center><%=RS("Created")%></td>
		<td align=center><%if Rs("ThreadID")>0 then response.Write("<a href=ShowPost.asp?ThreadID="&Rs("ThreadID")&" target=wh>"&RS("Description")&"</a>") else response.Write(RS("Description")) end if%></td>
	</tr>
<%
	Rs.MoveNext
loop
Rs.Close
%>
</table>
<table cellspacing=0 cellpadding=0 border=0 width=900 align="center">
	<tr>
		<td height="30"><input type="submit" value="删 除"></form></td>
		<td align="right" valign="top"><%ShowPage()%></td>
	</tr>
</table>

<%
HtmlBottom
%>