虚拟主机教程

set upload=Server.CreateObject("Lyfupload.UploadFile")
SaveFolder=Server.MapPath(".") & "\UploadImage\"
upload.ExtName="jpg,jpeg,gif"
upload.maxSize=204800
 
input = Array("filed1","filed2","filed3")
redim input_val(ubound(input))
 
for i=0 to ubound(input)
	FileName= Session.SessionID &"_"& right(Cstr(Round(Timer())),4)
	tmpfiled= input(i)
	ext=lyfileFix(upload.filetype(cstr(tmpfiled)))
	If ext<>"" then
		FileName=FileName & "_" & tmpfiled & "." & ext
		ret=upload.SaveFile( tmpfiled ,SaveFolder,true,FileName)
		select case ret
			case "0"	'文件太大
			case "1"	'格式不正确
			case else	'OK
				input_val(i) = FileName
		end select
	else
		'后缀有问题
	End if
next
set upload=nothing
 
function lyfileFix(byval filetype)
	filetype=trim(lcase(filetype))
	if right(filetype,3)="png" then
		lyfileFix="png"
	elseif right(filetype,4)="jpeg" then
		lyfileFix="jpg"
	elseif right(filetype,3)="gif" then
		lyfileFix="gif"
	end if
end function