fileup_fun.asp

同学录的设计

<%
Function fileupload(filepath,filename,maxTotalBytes)
'''fileup组件上传函数
'''参数说明:filepath:文件保存的物理路径;filename:保存的文件名;maxTotalBytes:大小限制
'''函数返回说明:1成功，0失败，-1不支持组件
'''本函数为walkman编写,使用请保留版权信息
'''网站支持: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 & "上传的文件名错误,请重新选择！<br>" & VbCrLf
				'	Exit Function
				'End If
				
				fileup.SaveAs PhotoDir & pic_name
				
				if err Then
					Set FileUp = Nothing
					'TempStr = TempStr & "上传出现严重错误！<br>" & VbCrLf
					TempStr = TempStr & "上传错误,请正确选择上传文件.<br>" & VbCrLf
					err.clear
					Exit Function
				End If
				
				if fileup.TotalBytes <> 0 then
				else
						TempStr =  TempStr &  "提示：文件内容为空，可能是此文件不存在! 上传失败！请重新上传。<br>" & VbCrLf
						exit function
				end if
				
				if fileup.TotalBytes > DEF_FileMaxBytes then	
					TempStr =  TempStr & "上传文件太大，超过了" & CLng(DEF_FileMaxBytes/1024) & "K!<br>" & VbCrLf
					exit function
				end if
		else
			TempStr =  TempStr &  "提示：文件类型错误，请选择正确类型的文件重新上传！<br>" & VbCrLf
End Function

%>