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
%>