demo1.asp

来自「一个不错的全站程序」· ASP 代码 · 共 29 行

ASP
29 行
字号 
<%@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>

demo1.asp - 源码说明

本页面展示了「一个不错的全站程序」中的 demo1.asp 源码文件，采用 ASP 编程语言编写，共 29 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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