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