紧急求助:梁无惧上传组件的保存文件名如何不用年月日,而是用原来的文件名???
randomize      
    ranNum=int(900*rnd)+100      
    strFileName=year(dtNow)       &       right( "0 "       &       month(dtNow),2)       &       right( "0 "       &       day(dtNow),2)       &       right( "0 "       &       hour(dtNow),2)       &       right( "0 "       &       minute(dtNow),2)       &       right( "0 "       &       second(dtNow),2)       &       ranNum       &       ". "       &       FileExt      
       
    ofile.SaveToFile       Server.mappath(SavePath       &       strFileName)       '保存文件      
       
    ______________________________________________________________________________      
    完整源文件      
       
       
    <%@language=vbscript       codepage=936       %>      
    <%      
    option       explicit      
    response.buffer=true      
    Server.ScriptTimeOut=9999999      
    %>      
    <!--#include       file= "../conn.asp "-->      
    <!--#include       file= "../inc/function.asp "-->      
    <!--#include       file= "../inc/upfile_class.asp "-->      
    <%      
    const       upload_type=0       '上传方法：0=无惧无组件上传类，1=FSO上传       2=lyfupload，3=aspupload，4=chinaaspupload      
       
    dim       ChannelID          
    dim       AdminName      
    dim       EnableUploadFile,MaxFileSize,UpFileType,SavePath,SavePath2      
    dim       objUpload,oFile,FormName,strFileName,FileExt      
    dim       ImgWidth,ImgHeight,AlignType      
    dim       EnableUpload      
    dim       arrUpFileType      
    dim       ranNum,i,strJS,msg,dtNow       '这些定义上传变量      
    AdminName=trim(session( "AdminName "))       '判断seesion值是否正确      
    UserName=trim(request.Cookies( "asp163 ")( "UserName "))       '判断cookie      
&nb