makefile.asp

Flash电子相册 v1.2 Build 1108完整版本下载

<% language="vbscript" %>
<!--#include file=const.asp-->
<%   session("infoldersize")=""  
   dim inname,datepath
   inname=session("inname")
   datepath =year(now())&"/"&Month(now())&"/"&Day(now())
if inname<>"" then
   if fileset < 1 then 
   Response.write "<script>alert('对不起!本上传功能已关闭!(The Funtion is close!)');window.close();</script>"
   else
     select case pathset
     case 3  
     dim objfso
       Session("webeditbase")="/upload/upfile/makefile/"&inname&"/"
       set fs=createobject("scripting.filesystemobject")
       myfolder=server.mappath(""&makefile&inname&"")
       if not fs.folderexists(myfolder) then
       fs.createfolder(myfolder)
       call selin()
       else
       call selin()
       end if
    case 4 
  dim yearpath,monthpath
   yearpath=year(now())
   monthpath=year(now())&"/"&Month(now())
   datepath =year(now())&"/"&Month(now())&"/"&Day(now())
       set fs=createobject("scripting.filesystemobject")
       pathfolder=server.mappath(""&datepath&"")
       yearfolder=server.mappath(""&yearpath&"")
       monthfolder=server.mappath(""&monthpath&"")
       
       if not fs.folderexists(yearfolder) then
       fs.createfolder(yearfolder)
       end if
       if not fs.folderexists(monthfolder) then
       fs.createfolder(monthfolder)
       end if
       if not fs.folderexists(pathfolder) then
       fs.createfolder(pathfolder)
       end if
	response.redirect "upload.asp"
    case else
	response.redirect "upload.asp"
    end select
   end if 
else
  response.redirect "login.asp"
end if 
 sub selin() 
 	 dim infoldersize
	 set myfilesize=server.createobject("scripting.filesystemobject")
     mypath=server.mappath(""&makefile&inname&"") 
     set myfolder=myfilesize.getfolder(mypath)
	    if ((setmyfoldersize-myfolder.size)\1024)>100 then
		infoldersize=(setmyfoldersize-myfolder.size)\1024
		session("pdsize")=1
                session("infoldersize")=setmyfoldersize-myfolder.size
		else
		session("pdsize")=0
		end if
 %>
<link rel="stylesheet" href="FORUM.CSS" type="text/css">

<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#0000FF">
  <tr>
    <td bgcolor="#99CCFF" height="25">
      <div align="center"><font color="#FF0000"><b><%=inname%>,欢迎你进入文件上传系统!</b></font></div>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" height="50"> 
      <div align="center"><font color="#FF0000"><b>请选择你要到的页面……<br>
        <br>
        </b></font> 【<a href="upweb/INDEX.ASP" title="在这里你可以对上传文件进行删除、更名和复制等管理工作。"><font color="#000000">管理我的上传空间</font></a>】&gt;&gt;<font color="#FF0000"><%=inname%></font>，
<% if session("pdsize")=1 then %>
        你的上传文件空间还有<font color="#FF0000"><%=infoldersize%>KB</font>，请珍惜资源哦！【<a href="upload.asp" title="上传新的文件。"><font color="#000000">上传新的文件</font></a>】
<% else %>你的上传文件空间不足，请清理你的上传文件！<% end if %>
        <br>
        <br>
        【<a href="LOGIN.ASP"><font color="#000000">退出系统</font></a>】 <br>
        <br>
        <br>
      </div>	  
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFCC00" height="25"> 
      <div align="center">版权所有&nbsp;&nbsp;&copy;2002-2004&nbsp;&nbsp;<a href="http://www.wlong3d.com/" target="_blank"><font color="#000000">www.wlong3d.com</font></a>&nbsp;&nbsp;版本：wlup3.4</div>
    </td>
  </tr>
</table>
<% end sub %>