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>