📄 uploadfile.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="../global.CSS">
</HEAD>
<BODY>
<TABLE>
<TR><TD>
<script language="JavaScript">
function Uploadfile()
{
if(frmUpload.FileName1.value=="")
{
alert("请选择文件");
return;
}
var myString = frmUpload.FileName1.value;
var i;
i=myString.indexOf(".xls");
j=myString.indexOf(".XLS");
if(i==-1&&j==-1)
{
alert("请选择EXCEL文件");
return;
}
frmUpload.submit()
}
</script>
<%
dim dirname
dim filetype
if Request.QueryString("action")="up" then
dim fa
dim FileName,SubFolderName
dim fso
set upload = server.CreateObject("buscom.uploadfile")
filesize=upload.FileSize("FileName1")
FileName=upload.FileName("FileName1")
'判断是否已存在该文件名
dim CheckFileExist
dim CheckResult
Set CheckFileExist=Server.CreateObject("Scripting.FileSystemObject")
CheckResult=CheckFileExist.FileExists(Request.ServerVariables("APPL_PHYSICAL_PATH")&"\exceltodb\" & FileName)
'if CheckResult then
' a=CheckFileExist
' Response.Write "<br><div align=center><table><tr><td>有同名的文件已经存在，请先改名再上传。</td></tr></table></div>"
' Response.End
'end if
fFullNameFiles=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\exceltodb"
'往硬盘写文件
upload.SaveTo(fFullNameFiles)
set upload = nothing
response.Redirect("exceltopo.asp?filename="&FileName)
end if
%>
<br>
<br>
只支持欧姆龙DOL导出的EXCEL格式，请选择正确的文件
<FORM action="uploadfile.asp?action=up" encType=multipart/form-data method=post name=frmUpload>
选择EXCEL文件
<INPUT name=FileName1 type=file>
<input name=Close type=button value="取消" language=javascript onclick="window.location='po.asp';">
<input name=Upload type=button language=javascript onClick="Uploadfile();" value="下一步">
</FORM>
</P>
</TD></TR></TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -