zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113
							<%Session.CodePage=65001%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>网站后台管理登陆</title>
<meta name="Keywords" content="网站后台管理系统，网站内容管理系统，asp网站后台管理系统，西安网站建设，西安网络公司"  />
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<body> 
<!--#include file="../bdcommx/connxyz.asp"-->
<!--#include file="../bdcommx/jsall.asp"-->
<%call log_chk()%>
<%'---------------------------------删除文件
If Request("act")="del" Then
dname=request("dname")
Fpath=request("Fpath")
dname=Server.MapPath("../../"&Fpath&"/"&dname)
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
fs.deleteFile(dname) 
response.write"<SCRIPT language=JavaScript>alert('你已经删除了此文件');"
response.write"this.location.href='Fmag.asp?page="&request("page")&"&Fpath="&Fpath&"';</SCRIPT>" 
response.end
Set fs = Nothing
End if%>
<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 上传文件管理</td>
      </tr>
</table><%
 Function ShowFileInfo(filespec)   
        Dim fso,f   
        Set fso = CreateObject("Scripting.FileSystemObject")   
        Set f = fso.GetFile(filespec)   
        ShowFileInfo = "Created："& f.DateCreated   
  End Function
%>  
<% 
Function ShowFileInfo(filespec)
Dim fso,f
Set fso= CreateObject("Scripting.FileSystemObject")
Set f= fso.GetFile(filespec)   
ShowFileInfo= "创建于："&f.DateCreated   
End   Function
%>
      <table width="750" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
        <form id="form1" name="theForm" method="post" action="databack.asp?act=back">
          <tr>
            <td colspan="7" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>已上传文件( <a href="Fmag.asp?Fpath=uploadfiles/title"><font color="#FF0000">缩略图管理</font></a> || <a href="Fcontent.asp?Fpath=fcheditor/attached/image"><font color="#FF0000">内容图片管理</font></a>)</strong></td>
          </tr>
          <tr>
            <td width="25%" height="26" align="center" class="NcB_bg">文件名</td>
            <td width="25%" align="center" class="NcB_bg">创建日期</td>
            <td width="25%" align="center" class="NcB_bg">大小</td>
            <td width="25%" align="center" class="NcB_bg">操作</td>
          </tr>
		  <%
dim count
dim Fpath
count = 0
Fpath=request("Fpath")
if Fpath="" then Fpath="uploadfiles"
set objfilesys=server.CreateObject("Scripting.filesystemobject")
set myfolder=objfilesys.getfolder(Server.MapPath("../../"&Fpath&""))
set myfiles=myfolder.files

dim page,sPageSize,ecount,scount
page = (Request.QueryString("page"))
if page = "" or not IsNumeric(page) Then page = 1
dim objfilesys
dim myfolders
dim myfile
dim filecount, pagecount'准备分页
sPageSize = 12'每页显示数

filecount = clng(myfiles.count)
pagecount = clng(filecount / sPageSize)
if pagecount=0 then pagecount=1
page = clng(page)

scount = (page-1) * sPageSize + 1
ecount = page * sPageSize
%>
<%
for each myfile in myfiles
fp = cstr(myfile.path)
count = count +1 
if scount <= count and ecount >= count Then
%>
		  <tr>
            <td width="25%" height="26" align="center" class="NcB_bg"><%=myfile.name%></td>
            <td width="25%" align="center" class="NcB_bg"><%=myfile.DateCreated%></td>
            <td width="25%" align="center" class="NcB_bg"><%=clng(myfile.Size/1024)%> K</td>
            <td width="25%" align="center" class="NcB_bg"><a href="Fsee.asp?dname=<%=myfile.name%>&page=<%=page%>&Fpath=<%=Fpath%>">查看</a> || <a href="Fmag.asp?dname=<%=myfile.name%>&act=del&page=<%=page%>&Fpath=<%=Fpath%>">删</a><a href="Fmag.asp?dname=<%=myfile.name%>&act=del&page=<%=page%>&Fpath=<%=Fpath%>">除</a></td>
          </tr>
		  <%
end if
next
%>
<tr>
<td height="26" colspan="4" align="center" class="NcB_bg">
共 <%=pagecount%> 页 <%=filecount%> 个文件 || 当前第：<%=page%> 页 || 
<%
for i=1 to pagecount
%>
<a href=?page=<%=i%>&Fpath=<%=Fpath%>><%if page=i then%><font color="#FF0000"><%=i%></font><%else%><%=i%><%end if%></a>
<%next%></td>
</tr> </form>
</table>
</body>
</html>