Stimson (œuvre originale)
propose actuellement de nombreuses classes de téléchargement sans composants. J'ai jeté un coup d'œil et j'ai découvert que la plupart d'entre elles sont assez complexes. Certaines ne peuvent transmettre que du texte. Le plus important est qu'il n'y en a pas avec moins de 10 lignes. code :) J'ai passé une nuit entière à étudier ADODB.Stream et à utiliser 6 lignes de code pour implémenter le téléchargement sans composant :
strFileName = Request.QueryString("file1")
Définir objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Serveur."123_onweb.gif",2
Comment utiliser :
Écrivez le code ci-dessus sous la forme upload.asp
Saisissez dans le navigateur :
GetFileName = mid(strFile,InStrRev(strFile, "")+1)
Autre
GetFileName = ""
Fin si
Fin de la fonction
strFileName = Request.Form("file1")
Définir objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Fermer
%>
télécharger le fichier.htm
<form name="FORM" action="upload.asp" method="post">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>