📄 demo1.asp
字号:
<%@Language=VBScript %>
<HTML>
<BODY>
<%
filename="file1"
path="c:\temp"
Set obj = Server.CreateObject("LyfUpload.UploadFile")
txt = obj.request("text1") '得到form元素的值
Response.Write( "文本框1的输入值是： " & txt)
Response.Write "<br>"
'上载后文件重命名，使用变量方式
varfname="sss.txt"
ss=obj.SaveFile(filename, path, false,varfname) '保存文件到服务器
aa=obj.filetype("file1")
if ss="3" then
Response.Write "此文件在服务器上已经存在！不能覆盖！"
elseif ss<> "" then
Response.Write "file size:" & obj.FileSize
Response.Write "选择的文件已经上载到服务器！<br>"
Response.Write("文件名：" & ss)
Response.Write("<br>Content-Type：" & aa) '得到Content-Type
Response.Write("文件大小：" & obj.FileSize)
end if
obj.about '关于LyfUploa1.2
%>
</BODY >
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -