function ExtraFileName(byval AFullName) ‘取文件的扩展名
dim tmpName
tmpName = CStr(AFullName)
do while (instr(tmpName, "\") > 0)
tmpName = mid(tmpName, instr(tmpName, "\")+1, len(tmpName))
loop
ExtraFileName = tmpName
end function
if NOT (upload.Files("upfile1") Is Nothing) then
Upfile1=upload.Files("upfile1").FileName
if len(upfile1)>0 then
Upfile1=Upload.Form("file1").Values
Upfile1=ExtraFileName(Upfile1)
Upload.Files("upfile1").Saveas "/File_send/upfile/"&File_ID&"A."& upload.Files("upfile1").FileExt
Filecount=filecount+1
end if
end if
