利用SA FileUp组件进行多文件上传(5)

                                          Case "image/gif", "image/jpeg", "image/pjpeg"
                                          Case Else
                                                 flagOK=0
                                                 oFileUp.Form(strFormElement).Delete
                                                 Response.Write("<B>错误：</B> MIME类型为 <I>" & strContentType & "</I> 的文件不能被上传。<BR>")
                                   End Select
                            End If '--end if 验证方式
                     End If 'end if 文件大小判断

                     If flagOK=1 Then  '如果文件通过检查，保存文件，并插入数据库纪录
                                          randomize
                                          ranNum=int(900*rnd)+100
                                          filename=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&ranNum&LCase(strExtension)
                                          oFileUp.Form(strFormElement).SaveInVirtual formPath&filename  '让文件名不重复，保存文件，这里用的是SaveInVirtual方法

                            
                                          '--输出服务器上的文件路径