【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>