demo3.asp

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

ASP
29
字号
<%@Language=VBScript %>
<HTML>   
<BODY>   
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
obj.maxsize=2048  '设置文件上传的最大为2048个字节(2K)
obj.extname="gif,jpg"
txt = obj.request("text1") '得到form元素的值
Response.Write( "另存为: " & txt)    
Response.Write "<br>"
ss=obj.SaveFile("file1", "C:\temp", true) '保存文件到服务器
aa=obj.filetype("file1") '得到文件的Content-Type
if ss= "" then
 Response.Write ("文件上传失败!")
elseif ss= "0"  then
   Response.Write ("文件尺寸过大!")
elseif ss= "1" then
 Response.Write ("文件不是gif/jpg文件!")
else
Response.Write "选择的文件已经上载到服务器!<br>" 
Response.Write("文件名:" & ss)  
Response.Write("<br>Content-Type:" & aa) '得到Content-Type
Response.Write("文件大小:" & obj.FileSize)  
end if

%>

 </BODY >
 </html>

⌨️ 快捷键说明

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