sample8.asp

来自「不错的asp上传组件」· ASP 代码 · 共 33 行

ASP
33
字号
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
</HEAD>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 8</H1>
<HR>

<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.CodePage = "utf-8"
   mySmartUpload.Upload

   Response.Write "Text : "
   Response.Write mySmartUpload.Form("TEXT1").values & "<br>"

   Response.Write "File : "
   Response.Write mySmartUpload.Files("FILE1").Filename & "<br>"
   intCount = mySmartUpload.Save("/aspSmartUpload/Upload")

%>
</BODY>
</HTML>

⌨️ 快捷键说明

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