PDF est vide après Upload à partir de ASP Classic

Question

Je crée un uploader pour une page où je dois utiliser ASP Classic et j'ai trouvé l'uploader de Jacob "Beezle" Gilley et ça marche, tant que c'est un fichier txt. Mais le problème se produit quand c'est un fichier pdf ou une image, et j'ai besoin de les télécharger.

Le problème est que l'exemple de fichier pdf est téléchargé à sa place mais il est vide. J'ai édité dans une partie du code original puisque j'ai besoin de l'encoder en UTF-8. Sinon, il est identique et je téléchargerai le code édité.

Public Sub SaveToDisk(sPath) 
    Dim oFS, oFile 
    Dim oStream 

    If sPath = "" Or FileName = "" Then Exit Sub 
    If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" 

    Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
    If Not oFS.FolderExists(sPath) Then Exit Sub 

    Set oStream = CreateObject("ADODB.Stream") 
    With oStream 
    .Type = 2 
    .Charset = "UTF-8" 
    .Mode = 3 
    .Open 
    .WriteText RSBinaryToString(FileData) 
    .SaveToFile sPath & FileName 
    .Close 
    End With 
    Set oStream = Nothing 
End Sub 

Comment puis-je résoudre ce problème, ou puis-je réparer même il? La méthode RSBinaryToString est crédité à Antonin Foller, http://www.motobit.com que j'ai trouvé pour aider à convertir en UTF-8. Whitout cela je ne peux même pas ouvrir les fichiers.

Answer 1

J'ai trouvé une réponse à ma question.

Public Sub SaveToDisk(sPath) 
    Dim oFS, oFile 
    Dim oStream 
    Dim strText 

    If sPath = "" Or FileName = "" Then Exit Sub 
    If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" 

    Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
    If Not oFS.FolderExists(sPath) Then Exit Sub 

    Set oStream = CreateObject("ADODB.Stream") 
    With oStream 
    .Type = 2 
    .Charset = "Windows-1252" 
    .Mode = 3 
    .Open 
    .Position = 0 
    .SetEOS 
    .WriteText RSBinaryToString(FileData), 0 
    .SaveToFile sPath & FileName, 2 
    .Close 
    End With 
    Set oStream = Nothing 
End Sub 

Au lieu d'utiliser Charset = UTF-8, utilisez Windows-1252. Fonctionne comme un charme.