无组件文件上传二

来源：互联网发布：r常用的算法编辑：程序博客网时间：2024/04/28 03:27

<%@ 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

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 onclick='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