upload file 2
来源:互联网 发布:美丽档案淘宝官网 编辑:程序博客网 时间:2024/04/29 22:41
<%...@ 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 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
%>
<!--#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 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
%>
- upload file 2
- upload file
- Upload file
- upload file
- File Upload
- File upload by JSP
- simple file upload
- more file upload
- Upload File by SmartUpload
- Upload File Cgi Sample
- upload file into database
- AJAX File upload Progress
- FILE UPLOAD SITES
- upload file 1
- ajax upload file
- fcgi file upload(抛砖引玉)
- PHP UPLOAD FILE
- PHP File Upload
- 转:input
- Media player控件常用属性
- C++ 对象模型
- upload file 1
- winform(c#)中实现打印机相关功能
- upload file 2
- java线程实例详析
- 别人想拒绝都难 我的QQ想加谁就加谁!
- Do all in one exe file Under Win32
- 为迅驰4量身定做!NVIDIA新一代显卡曝光
- 几个分页存储过程
- 一个多线程的经典例子(转载)
- 单点登录资料收集(百度篇)
- 通用单据打印控件问题集