www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/UpFile.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> <% '上传图片 On Error Resume Next dim arr(3) dim upload,file,formName,formPath,iCount,filename,fileExt,i,isjpeg,issmallpic Set rs=conn.Execute("Select Top 1 * From WebBasicInfo") If Not rs.eof Then isjpeg=rs("W_ArtCataShowClose") photoSize=Rs("W_HomeArtRecoNum") End If Set rs=Nothing Set Jpeg = Server.CreateObject("Persits.Jpeg") If -2147221005 = Err Then jpegok=False Else jpegok=True End If 'jpegok=ObjTest("Persits.Jpeg") '--注意下面是写法稍有不同的地方--- set upload=new upload_5xsoft upload.ProgressID=Request.QueryString("progressID") '一定是这行在先。 upload.GetUpFile '--结束---其他与以前的写法完全相同------------- inputName = Upload.Form("inputName") upFolder = Upload.Form("upFolder") formPath="../UpFile/"&upFolder&"/" 'Response.write upFolder 'Response.end ''列出所有上传了的文件 for each formName in upload.objFile set file=upload.file(formName) ''''限制文件格式 fileExt=lcase(right(file.filename,4)) Forum_upload="gif,jpg,jpeg,png" 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>1000*photoSize Then '限制图片上传大小 response.write "<font size=2>图片大小超过了限制("&photoSize&"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) ''保存文件 path=Server.mappath(formpath&filename) fileExt=Split(path,".")(UBound(Split(path,"."))) path1=Replace(path,"."&fileExt,"")&"_1."&fileExt filenameS=Replace(filename,"."&fileExt,"")&"_1."&fileExt If upFolder<>"link" then If jpegok=True Then If isjpeg=True then Call makePicSmall(path,path1) issmallpic=true End If End If End if response.write "<font size=2>上传成功 <a href=# onclick=history.go(-1)>请返回</a>" end if next Response.Write "<script>parent.add.title.value='"& Replace(file.filename,"."&fileExt,"") &"'</script>" If issmallpic=True then Response.Write "<script>parent.add.pathsmall.value='UpFile/"& upFolder &"/"&filenameS&"'</script>" Else Response.Write "<script>parent.add.pathsmall.value='UpFile/"& upFolder &"/"&filename&"'</script>" End If Response.Write "<script>parent.add."& inputName &".value='UpFile/"& upFolder &"/"&FileName&"'</script>" set upload=nothing %>