December 19, 2018, Wednesday, 352

【Windows進階主機】aspupload、aspsmartupload 上傳程式範例

出自智邦小幫手

跳轉到: 導覽, 搜尋

Windows進階虛擬主機支援ASP上傳程式:aspupload、aspsmartupload。

aspupload

支援網站 Live Demo - http://www.aspupload.com/livedemo.html

程式語法範例:

<!-- AspUpload Code samples: UploadScript1.asp -->
<!-- Invoked by Form1.asp -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->

<HTML>
<BODY>

<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.SaveVirtual("./uploads/")
Response.Write Count & " file(s) uploaded to ./uploads/"

%>

</BODY>
</HTML>

註:使用相對路徑 Upload.SaveVirtual(" ")

aspsmartupload

支援網站 - http://www.aspsmart.com/ -目前僅提供下載-

程式語法範例:

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

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

'  Upload
'  ******
   mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
   intCount = mySmartUpload.Save("/aspsmartupload/upload")
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")

'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " file(s) uploaded.")
%>
</font>
</BODY>
</HTML>