📄 7-1.asp

📁 使用asp+sql编写的的各种程序案例

💻 ASP

字号:

<%@Language=VBScript  CODEPAGE="936"%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<%
'获取上传文件的文件名


'设定服务器上保存文件的目录路径
path="c:\temp"  '读者可以自己随便设置

'创建该组件
Set obj = Server.CreateObject("LyfUpload.UploadFile")


'获取上传文件的文件名
varfname=obj.request("File_Name") 


'保存文件到服务器
RetVal=obj.SaveFile("File_Upload", path, false,varfname) 

'获取上传文件的扩展名
extName=obj.filetype("File_Upload")

if RetVal="3" then
   Response.Write "此文件在服务器上已经存在！不能覆盖！" 
elseif RetVal<> "" then
   Response.Write "你的文件已经被上传到服务器的" & path & varfname & "！<br>" 
   Response.Write("上传的文件名称为：" & RetVal)  
   Response.Write("<br>文件类型Content-Type：" & extName) 
   Response.Write("<br>你上传的文件大小为：" & obj.FileSize)  
end if

set obj=nothing
%>

<body>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -