⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 upfile.asp

📁 非常好的源码 非常好的源码 非常好的源码
💻 ASP
字号:
🔍 
<!--#include file=conn.asp-->
<%
set rsmap = Server.CreateObject("ADODB.Recordset")
   mapsql = "SELECT * FROM setmap"
rsmap.Open mapsql,conn

FileMaxSize=rsmap("size")
FileType=rsmap("leixin")
nameset =rsmap("nameset")
smallw =rsmap("width")
%>
<% 
''将当前的日期和时间转为文件名
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 
%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../inc/admin.css">
</head>
<body>
<table align="center" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
  <tr>
    <td class=lanyuss> 
      文件上传
    </td>
  </tr>
  <tr class=lanyuds>
    <td>
      <%
dim upload,file,formName,iCount
set upload=new upload_5xSoft ''建立上传对象
 UpFilePath = "../up/"


for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
 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
iCount=0
  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 GetExtendName(file.FileName)="jpg" or GetExtendName(file.FileName)="gif" then
  file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => 上传文件成功! <br>"
  response.write "你的文件路径是"&fname&"<br>"
  response.write "请将文件路径拷贝到相应的栏目中！<br>"

else
  file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
  response.write file.FilePath&file.FileName&" ("&file.FileSize&") => 上传文件成功! <br>"
  response.write "你的文件路径是admin/up/upfile/"&fname&"<br>"
  response.write "请将文件路径拷贝到相应的栏目中！<br>"
end if

end if

 else
 response.write "文件大小超出限制，您最多可以上传 "& FileMaxSize &"个字节的文件数据"
 exit for
 end if
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象


sub HtmEnd(Msg)
 set upload=nothing
end sub


function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
    </td>
  </tr>
 
</table>
</body>
</html>

<%
rsmap.Close
set rsmap=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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