demo1.asp

来自「文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。」· ASP 代码 · 共 32 行

ASP
32 行
字号 
<%@Language=VBScript %>

<HTML>   
<BODY>   
<%
filename="file1"
path="c:\temp"
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'得到form元素的值
txt = trim(obj.request("text1"))
Response.Write( "另存文件名为： " & txt)    
Response.Write "<br>"
'上载后文件重命名，使用变量方式
varfname=txt

ss=obj.SaveFile(filename, path, false,varfname) '保存文件到服务器
aa=obj.filetype("file1")

if ss="3" then
   Response.Write "此文件在服务器上已经存在！不能覆盖！" 
elseif ss<> "" then
   Response.Write "选择的文件已经上载到服务器！<br>" 
   Response.Write("文件名：" & ss)  
   Response.Write("<br>Content-Type：" & aa) '得到Content-Type
   Response.Write("文件大小：" & obj.FileSize)  
end if
 
obj.about   '关于LyfUploa1.2
response.end
%>
 </BODY >
 </html>

demo1.asp - 源码说明

本页面展示了「文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。」中的 demo1.asp 源码文件，采用 ASP 编程语言编写，共 32 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与文件上传相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?