www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/UpFile2.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("fileMedia") ''''限制文件格式 fileExt=getExt(file.filename) Forum_upload="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 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*mediaSize Then '限制上传的文件大小 response.write "<font size=2>文件大小超过了限制[<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.title.value='"& Replace(file.filename,"."&fileExt,"") &"'</script>" Response.Write "<script>parent.add."& inputName &".value='UpFile/"& upFolder &"/"&FileName&"'</script>" set file=nothing set upload=nothing %>