<%
Function fileupload(filepath,filename,maxTotalBytes)
'''fileup組件上傳函數(shù)
'''參數(shù)說(shuō)明:filepath:文件保存的物理路徑;filename:保存的文件名;maxTotalBytes:大小限制
'''函數(shù)返回說(shuō)明:1成功，0失敗，-1不支持組件
'''本函數(shù)為walkman編寫,使用請(qǐng)保留版權(quán)信息
'''網(wǎng)站支持:http//www.winsteps.net

	on error resume next
	err.clear
	set FileUp=server.createobject("FileUp.upload")
	if not isobject(FileUp) Then
		fileupload=-1
		err.clear
		Exit Function
	End If
	NewFileName = Mid(fileup.UserFilename,InstrRev(ReplaceNotNull(Fileup.UserFilename,"/","\"), "\") + 1)
	If inStr(NewFileName,".") = 0 Then
		TempStr = TempStr & "沒有正確地選擇要上傳的文件, 注意上傳的文件格式!"
		Exit Function
	End If
	pic_name1=getfilenameloop(NewFileName)
	UploadPhotoUrl2 = UploadPhotoUrl & pic_name2
	UploadPhotoUrl = UploadPhotoUrl & pic_name1
	if fileup.FileFound(server.mappath(NewFileName)) = False then
		if fileup.CheckFileType(newfilename,"ra;ram;rm;asf;wma;jpg;gif;jpeg;jpe;png;zip;rar;bmp;mp3;swf;wav;txt;doc;rtf;psd;tif;mid;sgi;tga;iff;pcx;dcx;pbm;pgm;ppm;pnm;miff;xbm;xpm;ico;icl;emf;hru;jif;prc;wrl;wbmp") = true then
				pic_name = pic_name1
				
				'If inStr(pic_name,"\") or inStr(pic_name,"/") or inStr(pic_name,":") or inStr(pic_name,"*") or inStr(pic_name,"?") or inStr(pic_name,"""") or inStr(pic_name,"<") or inStr(pic_name,">") or inStr(pic_name,"|") or pic_name="" or Left(pic_name,1)="." Then
				'	Set FileUp = Nothing
				'	TempStr = TempStr & "上傳的文件名錯(cuò)誤,請(qǐng)重新選擇！<br>" & VbCrLf
				'	Exit Function
				'End If
				
				fileup.SaveAs PhotoDir & pic_name
				
				if err Then
					Set FileUp = Nothing
					'TempStr = TempStr & "上傳出現(xiàn)嚴(yán)重錯(cuò)誤！<br>" & VbCrLf
					TempStr = TempStr & "上傳錯(cuò)誤,請(qǐng)正確選擇上傳文件.<br>" & VbCrLf
					err.clear
					Exit Function
				End If
				
				if fileup.TotalBytes <> 0 then
				else
						TempStr =  TempStr &  "提示：文件內(nèi)容為空，可能是此文件不存在! 上傳失敗！請(qǐng)重新上傳。<br>" & VbCrLf
						exit function
				end if
				
				if fileup.TotalBytes > DEF_FileMaxBytes then	
					TempStr =  TempStr & "上傳文件太大，超過(guò)了" & CLng(DEF_FileMaxBytes/1024) & "K!<br>" & VbCrLf
					exit function
				end if
		else
			TempStr =  TempStr &  "提示：文件類型錯(cuò)誤，請(qǐng)選擇正確類型的文件重新上傳！<br>" & VbCrLf
End Function

%>