www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/UpFile3.asp

    <!--#include file="check.asp"-->
<!-- #include file="../inc/conn.asp" -->
<!--#include file="../inc/wang_upload_5xsoft.asp" -->
<!-- #include file="../inc/function.asp" -->
<link href="css/01.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #FFFFFF;
}
-->
</style>
<%
'上传网络硬盘文件
Server.ScriptTimeOut=86400
dim arr(3)
dim upload,file,formName,formPath,iCount,filename,fileExt,i

'--注意下面是写法稍有不同的地方---
set upload=new upload_5xsoft
upload.ProgressID=Request.QueryString("progressID") '一定是这行在先。
upload.GetUpFile
'--结束---其他与以前的写法完全相同-------------

inputName = Upload.Form("inputName")
upFolder = Upload.Form("upFolder")
formPath="../UpFile/"&upFolder&"/"
set file=upload.file("file")
	''''限制文件格式
	fileExt=getExt(file.filename)
	Forum_upload="jpg,gif,png,jpeg,doc,xls,exe,mdb,rar,zip,txt,mp3,wma,wmv,rm,mid,midi,ra,avi,mpg,mpeg,asf,asx,mov,swf"
	Forumupload=split(Forum_upload,",")
	for i=0 to ubound(Forumupload)
		if fileEXT=trim(Forumupload(i)) then
			uploadsuc=true
			exit for
		else
			uploadsuc=false
		end if
	Next
	uploadsuc=true
	if uploadsuc=false then
		 response.write "<font size=2>文件格式受限制[<a href=# onclick=history.go(-1)>请重新上传</a>]</font>"
		 response.end
	end If
	'''''''''''''''
	if file.filesize>0 then
		if file.filesize>1024*diskSize Then '限制上传的文件大小
			response.write "<font size=2>文件大小超过了限制("&diskSize&"KB)[<a href=# onclick=history.go(-1)>重新上传</a>]</font>"
			response.end
		end If
		uploadsuc=false
	end if
	filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
    if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
		file.SaveAs Server.mappath(formpath&filename)   ''保存文件
		response.write "<font size=2>上传成功 <a href=# onclick=history.go(-1)>请返回</a>" 
	end if
Response.Write "<script>parent.add.filename.value='"& Replace(file.filename,"."&fileExt,"") &"'</script>"
Response.Write "<script>parent.add."& inputName &".value='UpFile/"& upFolder &"/"&FileName&"'</script>"
set file=nothing
set upload=nothing
%>