📄 upfile.asp
字号:
<!--#include file="../session.asp"-->
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<style type="text/css">
<!--
body {
background-color: #EAEFFC;
}
-->
</style>
</head>
<body>
<%
''将当前的日期和时间转为文件名
Function MakeFileName()
Dim fname
fname = Now()
fname = Trim(fname)
fname = Replace(fname, "-", "")
fname = Replace(fname, "/", "")
fname = Replace(fname, " ", "")
fname = Replace(fname, ":", "")
fname = Replace(fname, "PM", "")
fname = Replace(fname, "AM", "")
fname = Replace(fname, "上午", "")
fname = Replace(fname, "下午", "")
MakeFileName = fname
End Function
Dim upload,file,formName,formPath
Dim i,l,fileType,NewFileName,filenamelist,prdM,GG
GG="GG_"
'创建新文件名称
NewFileName = MakeFileName()
'创建产品编号
prdM=GG & NewFileName
'建立上传对象
Set upload = New upload_5xsoft
'上传文件目录
formPath = Server.MapPath("../fw")&"/"
'列出所有上传了的文件
For Each formName in upload.objFile
'生成一个文件对象
Set file = upload.file(formName)
'如果 FileSize > 0 说明有文件数据
If file.FileSize>0 Then
'取得文件扩展名
fileType = file.FileName '文件名以及扩展名
i = instr(fileType,".") '是否存在“.”
l = Len(fileType)
If i>0 Then
fileType = Right(fileType,l-i+1) '得到扩展名
End If
NewFileName = "sn.txt"
filenamelist = formPath & NewFileName '新文件绝对地址和名称
file.SaveAs filenamelist ''保存文件
End If
Set file = Nothing
next
'将文件信息传入内容字段
Response.Write "<script>parent.form1.filename.value+='"&NewFileName&"'</script>"
'选中“附图”标记//自动添加型号名称
' Response.Write "<script>parent.form1.prdModule.value+='"&prdM&"'</script>"
'显示提示信息
set upload=nothing ''删除此对象
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -