无组件文件上传二

技术2022-05-11 25

<% @ Language=VBScript %>  <% 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)