Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Upload souboru v ASP |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 16.2.2003
| Publikováno: 16.2.2003
| Čtenářů: 3870
| Unikátních: 3766
|
Příklady jak odeslat soubor na webový server pomocí komponenty aspSmartUpload
Potřebujete uploadovat soubory na server za použití ASP? Již jsem viděl několik
skriptu a objektů, se kterými to šlo nějak zprovoznit. Výsledek mě však skoro
nikdy neuspokojil.
Tedy až do té doby, než jsem narazil na komponentu
aspSmartUpload.
Tato komponenta umožňuje velice jednoduše UPLOAD na Vaše stránky zprovoznit. Je
ke stažení zdarma na adrese
http://www.aspsmart.com/aspSmartUpload/. Pokud spravujete vlastní IIS, nebudete mít žádné potíže.
V případě, že máte někde zřízený hosting, musíte přesvědčit správce serveru,
aby Vám komponentu do systému nainstaloval.
Z českých poskytovatelů tuto komponentu používá například
PES.cz
Komponentu aspSmartUpload stáhnete ve formátu ZIP, rozbalíte archiv do předem
zvoleného adresáře. Po rozbalení dostanete dvě knihovny DLL, adresář s
nápovědou a ze všemi možnými typy použití v příkladech.
Ještě je nutné zaregistrovat obě DLL knihovny do systému. Použijte program
REGSVR32 a jako parametr uveďte celou cestu ke knihovně.
Příklad:
REGSVR32 c:iisdllaspSmartUpload.dll
REGSVR32 c:iisdllaspSmartUploadUtil.dll
Knihovny máte v systému zaregistrované a zbývá již jen otestovat, zda
fungují. Ukažme si tedy na jednoduchém příkladu jejich použití. Příklad je
složen ze dvou souborů. Soubor HTML obsahuje kód pro formulář, kde vyberete
soubory pro stažení a po odeslání tlačítkem odeslat se spustí druhý ASP
soubor, který akci provede. Soubory jsou celkem čitelné, proto jsem nepoužíval
žádný komentář. Takže tady jsou zmiňované zdroje obou souborů.
FILEUPLOAD.HTML
<HTML>
<BODY>
<FORM METHOD="POST" ACTION="upload.asp"
ENCTYPE="multipart/form-data">
Soubor 1:<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
Soubor 2:<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Odeslat">
</FORM>
</BODY>
</HTML>
|
UPLOAD.ASP
<HTML>
<BODY>
<%
Dim oSmartUpload
Dim file
Dim intCount
intCount=0
Set oSmartUpload = _
Server.CreateObject("aspSmartUpload.SmartUpload")
oSmartUpload.Upload
For each file In oSmartUpload.Files
If not file.IsMissing Then
file.SaveAs("c:temp" & file.FileName)
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
intCount = intCount + 1
End If
Next
Response.Write(intCount & " souborů bylo odesláno.<BR>")
%>
</BODY>
</HTML>
|
Komponentu a přiložené kódy jsem otestoval na W2000 Professional. Pro
podrobné
příklady jak s komponentou pracovat použijte nápovědu staženou s komponentou,
nebo se podívejte přímo na web výrobce (ENG) sem.
| 
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu