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