📄 upfile0.asp

📁 Flash电子相册 v1.2 Build 1108完整版本下载
💻 ASP
字号:
<%Server.ScriptTimeout = 6000%>


<!--#include file=const.asp-->

<% 





dim inname,datepath,infoldersize
   inname=session("inname")
   infoldersize=session("infoldersize")
    datepath =year(now())&"/"&Month(now())&"/"&Day(now())&"/"
''将当前的日期和时间转为文件名
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function 
   if inname="" then
   response.write "<script>alert('对不起!只有正式用户才能上传作品!');window.close();</script>"
   response.end
   end if
%>
<!--#include FILE="uploadjs.inc"-->
<html>
<head>
<title>WLONG3D文件上传系统wlup3.5 | http://www.wlong3d.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="FORUM.CSS" type="text/css">
</head>
<body>
<div align="center"><img src="upfile/map/JJCBAR.GIF" width="468" height="60"> 
  <br>
  <br>
</div>
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#6699FF">
  <tr>
    <td bgcolor="#99CCFF" height="25"> 
      <div align="center"> <b>WLONG3D文件上传系统wlup3.5</b></div>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"> 
      <div align="center"><br>
<%
dim upload,file,formName,iCount,flpath
set upload=new upload_5xSoft ''建立上传对象
response.write upload.Version&"<br><br>"  ''显示上传类的版本





 ''在目录后加(/)
 if right(filepath,1)<>"/" then filepath=filepath&"/" 
select case pathset   ''得到上传目录
case 0
 UpFilePath = filepath
case 1
 UpFilePath = FilePath & upload.objform("filepath")
case 2
 session("UpFilePath") = FilePath
case 3
 UpFilePath = makefile&inname&"/"
case 4
 UpFilePath = makefile&datepath
end select
 
iCount=0

for each formName in upload.objfile ''列出所有上传了的文件
 set file=upload.objfile(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据 
 if  infoldersize<>"" then       ''检查用户文件夹是否有足够的空间
 if file.FileSize>infoldersize then
 Response.write "<script>alert('你的文件夹剩下的空间不足放置上传的文件!');history.back();</script>"
 set upload=nothing
 response.end
 end if
 end if
 
 if file.FileSize<FileMaxSize then ''如果未超过文件大小限制

 if FileType<>"" then	'如果限制了上传文件类型
 if Instr(FileType,GetExtendName(file.FileName)) then
	TypeFlag = 1        '文件为允许的类型
 else
	TypeFlag = 0		'文件为不允许的类型
 	Response.write "不支持您所上传的文件类型："
	Response.write GetExtendName(file.FileName)
	Response.write "<br>"
end if
 else
 TypeFlag = 1			'没有限制上传文件类型
 
 end if

if TypeFlag = 1 then 
  vfname = makefilename(now())
         if nameset = 1 then
  fname = vfname & iCount & "." & GetExtendName(file.FileName)
         elseif nameset =2 then
	   fname = file.FileName
	     elseif nameset = 3 then
		 fname = vfname & iCount & file.FileName
		 end if
		 
  if pathset=2 then
     if instr(flmap,GetExtendName(file.FileName))>0 then
	 UpFilePath=session("UpFilePath")&"map/"
	 elseif instr(flsoft,GetExtendName(file.FileName))>0 then
	 UpFilePath=session("UpFilePath")&"soft/"
	 elseif instr(fltxt,GetExtendName(file.FileName))>0 then
	 UpFilePath=session("UpFilePath")&"txt/"
	 elseif instr(flvedio,GetExtendName(file.FileName))>0 then
	 UpFilePath=session("UpFilePath")&"vedio/"	 
	 elseif instr(flmidi,GetExtendName(file.FileName))>0 then
	 UpFilePath=session("UpFilePath")&"midi/"
	 end if	 
	 file.SaveAs Server.mappath(UpFilePath&fname)
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => 上传文件成功! <br>"
  response.write "你的文件路径是（"&UpFilePath&fname&"）<br>"
  response.write "请将文件路径拷贝到相应的栏目中！<br>"

  iCount=iCount+1
 FileNameStr = UpFilePath&fname	 
  else		 
  file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => 上传文件成功! <br>"
  response.write "你的文件路径是（"&UpFilePath&fname&"）<br>"
  response.write "请将文件路径拷贝到相应的栏目中！<br>"

  iCount=iCount+1
 FileNameStr = UpFilePath&fname
  end if
end if

 else
 response.write "文件大小超出限制，您最多可以上传 "& FileMaxSize\1024 &"KB的文件数据"
 exit for
 end if
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象 
if pathset=2 then
session("UpFilePath")=""
end if
if iCount>0 then
	response.write "<br>成功地上传了"&iCount&" 个文件!"
 response.write "<br>"&Msg&"<br><br><br><center> [<a href=""MAKEFILE.ASP"">继续上传</a>]  [<a href=""login.asp"">退出系统</a>]</center>"
' response.end
else
	response.write "<br>上传文件失败，请向管理员反应!"
 response.write "<br>"&Msg&"<br><br><br><center> [<a href=""javascript:history.back();""><<返回</a>]  [<a href=""login.asp"">退出系统</a>]</center>"
' response.end
end if

sub HtmEnd(Msg)
 set upload=nothing
end sub


function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = mid(ExtName,instr(ExtName,".")+1)
if instr(ExtName,".")>0 then
 dim i,sFor
 sFor=split(ExtName,".")
 for i=0 to uBound(sFor)
  if i=uBound(sFor) then 
    GetExtendName=sFor(i)
  end if
 next
else
GetExtendName = ExtName
end if
end function
%>
      </div>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFCC00" height="25"> 
      <div align="center">版权所有&nbsp;&copy;&nbsp;2001-2004 <a href="http://www.wlong3d.com">wlong3d.com</a></div>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -