无组件文件上传二

    技术2022-05-11  24

    <% @ Language=VBScript  %> <!-- #include FILE="upload_5xsoft.inc" --> <%     dim upload,file,upfile     FileSaveRootDir = "BudgetFileIn"                    set upload=new upload_5xsoft                    set file=upload.file("file112")                    dim filename,sql,filepath                    filepath = Server.mappath("BudgetFileIn")&""&file.filename                    'Debugprint filepath                    filename=file.FileName                    upfile=ucase(filename)                  'check the condition                  'Debugprint Cint(right(left(filename,9),2))                    dim leftfile,iyear                     iyear=year(now())    'get the year                     leftfile = "tidus"                   'Debugprint leftfile              if  leftfile<>""then                    On Error Resume Next                    if Err<>0 then                        Response.Write "ERRPR"                                           end if                    if file.fileSize>=0 then                        'file.saveAs Server.mappath("BudgetFileIn")&""&file.filename                         dim fname ,savePath                         fname = replace(now(),"-","")                         fname = replace(fname,":","")                         fname = replace(fname," ","")                         dim arr,fext                         arr = split(file.filename,".")                         fext = arr(ubound(arr))                         savePath = Server.mappath(FileSaveRootDir)&""&fname&"."&fext                         file.saveAs savePath                        'savePath = replace(savePath,Server.mappath(""),"")                         savePath = replace(savePath,"","/")                        'Response.Write "<script>alert('"&fname&"');</script>"                        'response.write "<br>Upload file:"&file.FileName&" is  OK!<br>"                        'response.write "<br>File Size:"&file.FileSize                                  %>                          < script >                                  function enableAllSelects(docObj){                                var slts = docObj.getElementsByTagName('select');                                for(var i =0; i<slts.length; i++){                                    slts[i].style.backgroundColor="";                                    slts[i].disabled = false;                                }                            }                                                         parent.document.all.uploadtitle.innerHTML = "Upload successfull!";                                                          var table = parent.window.document.all.referencesTable;                             var tr1 = table.insertRow();                             var tr1_td1 = tr1.insertCell();                             var tr1_td2 = tr1.insertCell();                             var tr1_td3 = tr1.insertCell();                             var tr1_td4 = tr1.insertCell();                             var tr1_td5 = tr1.insertCell();                                                         tr1.style.backgroundColor = "#f5f5f5";                            //alert('<%=savePath%>');                            var filepath = parent.window.document.myform.file112.value;                                                    var filename = filepath.substr(filepath.lastIndexOf("/")+1,filepath.length);                                                    //for(var i=1; i<table.rows.length; i++){                            //    var cell = table.rows(i).getElementsByTagName('td')(1);                            //    if(cell.innerHTML==filename                            //}                                                    var filedesc = parent.window.document.myform.filedesc.value;                                tr1_td1.innerHTML = "";                            tr1_td2.innerHTML = "<a target='block' href='<%=replace(FileSaveRootDir,"","/")&"/"&fname&"."&fext%>'>"+filename+"</a>";                            tr1_td3.innerHTML = "<input id=txtFileDesc name=FileDesc style='width:300px;' value='"+filedesc+"'><input type=hidden id=txtFileName name=FileName style='width:200px;' value='"+filename+"' title='Local path is: "+filepath+"'><input type=hidden id=txtFilePATH name=FilePath value='<%=replace(FileSaveRootDir,"","/")&"/"&fname&"."&fext%>'>";                            tr1_td4.innerHTML = "<%=date%><input id=txtFileDate name=FileDate type=hidden value='<%=date%>'>";                            tr1_td5.style.textAlign = "right";                            tr1_td5.innerHTML = "<img id=delete οnclick='removeTableRow(document.all.referencesTable,this);' src='../BR/images/delete.gif'>";                                                         for(var i=1; i<table.rows.length; i++){                                var cell = table.rows(i).getElementsByTagName('td')(0);                                cell.innerHTML = i;                            }                                                    //parent.window.document.all.dUploadFile.reset();                            enableAllSelects(parent.document);                            parent.window.document.all.myform.reset();                            parent.window.document.all.filedesc.style.color="#cccccc";                            parent.window.document.all.filedesc.style.textAlign="center";                            parent.window.document.all.filedesc.value="----  Pleas input description  ----";                            parent.window.dUploadFile.style.display="none";                            parent.window.errDIV.style.display="none";                                                 </ script >                           <%                         end if             else                  ' Response.Write "<script language='JavaScript'>"                  ' response.write "alert('Please check you file name'); "                 ' Response.Write "window.location.href ='PA_budgetholder_uploader.asp';"                 ' Response.Write "</script>"                              end if                     set file=nothing                    set upload=nothing                 %>  

    最新回复(0)