📄 web_upfile.asp

📁 一个漂亮的网络工作室源码后台地址:/admin 用户名:admin 密码:admin888
💻 ASP
字号:
<!--#include FILE="conn.asp"-->
<!--#include FILE="upload.inc"-->
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
td{
font-size:12px;
}
a:link {  
	color: #000000; 
	text-decoration: none;
}

a:hover {  
	color: #000000; 
	text-decoration: none;
}

a:active { 
	color: #000000; 
	text-decoration: none;
}

a:visited {  
	color: #000000; 
	text-decoration: none;
}
</style>
<script>
parent.document.forms[0].Submit.disabled=false;
parent.document.forms[0].Submit2.disabled=false;
</script>
<body leftmargin="0" topmargin="0" bgcolor="FFFFFF">
<table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr>
    <td class=tablebody valign=top height=40> 
      <%
Server.ScriptTimeOut=999999'要是你的论坛支持上传的文件比较大，就必须设置。
'上传方式upload_type值: 0＝无组件，1＝lyfupload，2＝Aspupload3.0，3＝chinaaspupload

'创建生成预览图片,需要CreatePreviewImage组件支持,upload_view值: 0=不支持,1=支持(根目录下要有PreviewImage文件夹存放文件)
dim upload_view
upload_view=0

'定义变量
dim Forumupload,ranNum
dim formName,formPath,filename,file_name,fileExt,Filesize,F_Type,rename,imgpath
dim upNum,dateupnum


upNum=request.cookies("upNum")
if upnum ="" then upnum=0
upNum=int(upNum)

dateupnum=request.cookies("dateupnum")
if dateupnum ="" then dateupnum=0
dateupnum=int(dateupnum)


'On Error Resume Next 

dim upload,file
set upload=new UpFile_Class ''建立上传对象
upload.GetDate (3000*1024)   '取得上传数据,不限大小
imgpath=upload.Form("imgpath")
if upload.err > 0 then
    select case upload.err
	case 1
	Response.Write "请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	case 2
	Response.Write "文件大小超过了限制 3000k　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	end select
	else
	formPath=upload.form("filepath")
	'在目录后加(/)
	if right(formPath,1)<>"/" then formPath=formPath&"/"

for each formName in upload.file ''列出所有上传了的文件
	set file=upload.file(formName)  ''生成一个文件对象
	if upNum >1 or dateupnum >3 then
	'response.write "已达到上传数的上限。"
	end if

	fileExt=lcase(file.FileExt)
	
	'判断文件类型
	if lcase(fileEXT)="asp" and lcase(fileEXT)="asa" and lcase(fileEXT)="aspx" then
		CheckFileExt(fileEXT)=false
	end if
	if CheckFileExt(fileEXT)=false then
 	response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	response.end
	end if
	
	'付值变量
	randomize
	ranNum=int(90000*rnd)+10000
	F_Type=CheckFiletype(fileEXT)
	file_name=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
	filename=file_name&"."&fileExt
	rename=filename&"|"
	filename=formPath&filename
	Filesize=file.FileSize

	'记录文件
	if Filesize>0 then         '如果 FileSize > 0 说明有文件数据
	file.SaveToFile Server.mappath("../"&FileName)   ''执行上传文件

	'创建生成预览图片
	call checksave()			'记录文件
	end if
	set file=nothing
next
response.write("文件上传成功&nbsp;&nbsp;[<a href='javascript:history.back()'>返回</a>]")
'记录上传个数，文件名写入表单
end if
set upload=nothing
Private sub checksave()
if cint(imgpath)=1 then
	response.write("<script>parent.frmAnnounce.imgurl.value='"&filename&"'</script>")
	else
   response.write("<script>parent.frmAnnounce.Content.value+='[img]"&filename&"[/img]'</script>")
end if
end sub

'判断文件类型是否合格
Private Function CheckFileExt (fileEXT)
dim Forumupload,i
Forumupload=split("gif|jpg","|")
	for i=0 to ubound(Forumupload)
		if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
			CheckFileExt=true
			exit Function
		else
			CheckFileExt=false
		end if
	next
End Function

'判断文件类型:0=其它,1=图片,2=FLASH,3=音乐,4=电影
Private Function CheckFiletype(fileEXT)
dim upFiletype
dim FilePic,FileVedio,FileSoft,FileFlash,FileMusic,i
fileEXT=lcase(replace(fileExt,".",""))
FilePic=".gif.jpg.jpeg.png.bmp.tif.iff"
upFiletype=split(FilePic,".")
	for i=0 to ubound(upFiletype)
		if fileEXT=lcase(trim(upFiletype(i))) then
			CheckFiletype=1
			exit Function
		end if
	next
FileFlash=".swf.swi"
upFiletype=split(FileFlash,".")
	for i=0 to ubound(upFiletype)
		if fileEXT=lcase(trim(upFiletype(i))) then
			CheckFiletype=2
			exit Function
		end if
	next
FileMusic=".mid.wav.mp3.rmi.cda"
upFiletype=split(FileMusic,".")
	for i=0 to ubound(upFiletype)
		if fileEXT=lcase(trim(upFiletype(i))) then
			CheckFiletype=3
			exit Function
		end if
	next
FileVedio=".avi.mpg.mpeg.ra.ram.wov.asf"
upFiletype=split(FileVedio,".")
	for i=0 to ubound(upFiletype)
		if fileEXT=lcase(trim(upFiletype(i))) then
			CheckFiletype=4
			exit Function
		end if
	next
FileSoft=".rar.zip.exe.php.php3.asp.aspx.htm.html.shtml.js.jsp.pdf.inc.doc.txt.chm.hlp"
CheckFiletype=0
end function
%>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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