uploadfilemanage.asp

一个综合类整站

<!--#include file="conn.asp"-->
<!--#include file="admin_function.asp"-->
<%if session("china_admin")="" then
response.redirect "login.asp"
end if
%>
<%
    UploadDir="../adpic/"
    Const MaxPerPage=20
    dim strFileName
    dim totalPut,CurrentPage,TotalPages
    dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
    strFileName="UploadFileManage.asp"
    if request("page")<>"" then
    currentPage=cint(request("page"))
    else
    currentPage=1
    end if
    TruePath=Server.MapPath(UploadDir)
    If not IsObjInstalled("Scripting.FileSystemObject") Then
    Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
    Else
	set fso=CreateObject("Scripting.FileSystemObject")
	if request("Action")="Del" then
		whichfile=server.mappath(Request("FileName")) 
		Set thisfile = fso.GetFile(whichfile) 
		thisfile.Delete True
		fname=mid(filename,9)
		set rs=server.createobject("adodb.recordset")
        set rs1=server.createobject("adodb.recordset")
		rs.open "select * from upfile where filename='"&fname&"'",conn,1,3
		if not rs.eof then
		if rs("username")<>"" then
          rs1.open "select delpic from china_user where uid='"&rs("username")&"'",conn,1,3
		    if not rs1.eof then
	           rs1("delpic")=rs1("delpic")+1
                rs1.update
             end if
         rs1.close	
		 end if
		 rs.delete
		 rs.update
	    end if
	  rs.close
	  set rs=nothing
	  set rs1=nothing	
	end if
%>
<script language="JavaScript">
    function ConfirmDel()
    {
    if (confirm("你真的要删除此文件吗!"))
    return true;
    else
    return false;
    }
</script>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"><strong><span style="font-size: 10.5pt">上 传 文 件 管 理</span><br>
    </strong>
<%set rs=server.createobject("adodb.recordset")
    if fso.FolderExists(TruePath)then
	FileCount=0
	TotleSize=0
	Set theFolder=fso.GetFolder(TruePath)
	For Each theFile In theFolder.Files
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
	next
    totalPut=FileCount
	if currentpage<1 then
   		currentpage=1
   	end if
   	if (currentpage-1)*MaxPerPage>totalput then
		if (totalPut mod MaxPerPage)=0 then
	  		currentpage= totalPut \ MaxPerPage
	  	else
	      	currentpage= totalPut \ MaxPerPage + 1
		end if

    end if
	if currentPage=1 then
		showpage2 strFileName,totalput,MaxPerPage
		showContent     	
		showpage2 strFileName,totalput,MaxPerPage
		response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
   	else
   	   	if (currentPage-1)*MaxPerPage<totalPut then
			showpage2 strFileName,totalput,MaxPerPage
			showContent     	
			showpage2 strFileName,totalput,MaxPerPage
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
       	else
        	currentPage=1
			showpage2 strFileName,totalput,MaxPerPage
			showContent     	
			showpage2 strFileName,totalput,MaxPerPage
			response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>"
    	end if
	end if
    else
	response.write "找不到文件夹！可能是配置有误！"
    end if
    end if

    sub showContent()
   	dim c
	FileCount=0
	TotleSize=0
%> 
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1" class="border">
        <tr bgcolor="#799AE1"> 
          <td width="172" height="25" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">文件名</font></td>
          <td width="60" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">略图片</font></td>
          <td width="101" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">文件大小</font></td>
          <td width="105" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">文件类型</font></td>
          <td width="120" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">最后修改时间</font></td>
          <td width="40" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">调用</font></td>
          <td width="46" height="20" align="center">
			<font color="#FFFFFF" style="font-size: 10.5pt">操作</font></td>
        </tr>
        <%
    For Each theFile In theFolder.Files
    c=c+1
    if FileCount>=MaxPerPage then
    exit for
    elseif c>MaxPerPage*(CurrentPage-1) then
%>
        <tr bgcolor="#FFFFFF" class="tdbg"> 
          <td height="22" align="center">&nbsp;<a href="<%=(UploadDir & theFile.Name)%>" target="_blank"><strong><%=theFile.Name%></strong></a></td>
          <td width="60" align="center"> 
            <p align="center"><strong><img border="0" src="<%=(UploadDir & theFile.Name)%>" width="30" height="30"></strong>
          </td>
          <td width="101" align="center"><%=theFile.size%>字节</td>
          <td width="105" align="center"><%=theFile.type%></td>
          <td width="120" align="center"><%=theFile.DateLastModified%></td>
		  <%sql="select * from china_data where pic='"&theFile.Name&"'"
		  rs.open sql,conn,1,1
		  if rs.eof then
		  rs.close		  
		  sql="select * from china_ad where picname='"&theFile.Name&"'"
		  rs.open sql,conn,1,1
		  if rs.eof then
		  rs.close
		  sql="select * from news_data where pic='"&theFile.Name&"'"
		  rs.open sql,conn,1,1
		  if rs.eof then
		  rs.close
		  sql="select * from link_img where web='"&theFile.Name&"'"
		  rs.open sql,conn,1,1
		  end if
		  end if		  
		  end if
		  %>
		  <td width="40" align="center"><%if rs.eof then%>否<%else%>是<%end if%></td>
		  <%rs.close%>
          <td width="46" align="center"><a href="UploadFileManage.asp?Action=Del&FileName=<%=UploadDir&theFile.Name%>" onclick="return ConfirmDel()">删除</a></td>
        </tr>
        <%FileCount=FileCount+1
    TotleSize=TotleSize+theFile.Size
    end if
    Next
%>
      </table>
<% end sub %> </td>
  </tr>
</table>
<%
    sub showpage2(sfilename,totalnumber,maxperpage)
	dim n, i,strTemp
	if totalnumber mod maxperpage=0 then
    	n= totalnumber \ maxperpage
  	else
    	n= totalnumber \ maxperpage+1
  	end if
  	strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
	strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K&nbsp;&nbsp;&nbsp;"
	sfilename=JoinChar(sfilename)
  	if CurrentPage<2 then
    		strTemp=strTemp & "首页 上一页&nbsp;"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		strTemp=strTemp & "下一页 尾页"
  	else
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾页</a>"
  	end if
   	strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
    strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & "个文件/页"
	strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange='javascript:submit()'>"   
    for i = 1 to n   
   		strTemp=strTemp & "<option value='" & i & "'"
		if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
		strTemp=strTemp & ">第" & i & "页</option>"   
	next
	strTemp=strTemp & "</select>"
	strTemp=strTemp & "</td></tr></form></table>"
	response.write strTemp
    end sub
%>