6380 octets
& NomFichier &
Position Début: 103 183
image/gif
Position Début: 199 Position Fin: 209
C:\Documents and Settings\iasoft\My Documents\travaux\cityflightbox\fichiers\bart_simpson-0.gif
et la je veux recuperer le lien de mon image afin de l integrer dans ma page de saisie de mail afin de joindre le nom de mon fichier en piece jointe
voici le code
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Contenu, TailleContenu, ContenuAscii, I, J, K, Pos
Contenu = Request.BinaryRead(Request.TotalBytes)
TailleContenu = Request.TotalBytes
PosDNomFile=0 'Pos de début du Nom fichier transmis
PosFNomFile=0 'Pos de fin du Nom du fichier transmis
PosDContent=0 'Pos de début du Content-Type du fichier
PosFContent=0 'Pos de fin du Content-Type du fichier
PosDFile=0 'Pos de début du Contenu du fichier
PosFFile=0 'Pos de fin du Contenu du fichier
DownLoadOK = 0 'Si tout est OK
response.write "
"
response.write "
" & TailleContenu & " octets"
' On commence par afficher le contenu du post, on split sur le délimiteur chr(13) qui sépare les
' différents éléments
response.write ""
response.write "
"
' Le controle Filename du formulaire d'envoi et le enctype à multipart génèrent les 2 infos
' necessaires pour traiter notre entrée
''
'' On recherche la position du terme filename=
'' Cela nous donnera la position de début du nom du fichier (PosDNomFile)
''
DelimAscii = "filename=" & chr(34)
DelimBin=""
for K = 1 to Len(DelimAscii)
DelimBin = DelimBin & chrB(ASC(Mid(DelimAscii, K, 1)))
next
''
'' On lui ajoutera ensuite la longueur du terme filename="
''
PosDNomFile = InstrB(1, Contenu, DelimBin)
if PosDNomFile <> 0 then
PosDNomFile = PosDNomFile + LenB(DelimBin)
end if
''
'' On recherche la position du terme Content-Type
'' Cela nous donnera la position de début du Content-Type
''
DelimAscii = "Content-Type:"
DelimBin=""
for K = 1 to Len(DelimAscii)
DelimBin = DelimBin & chrB(ASC(Mid(DelimAscii, K, 1)))
next
PosDContent = InstrB(1, Contenu, DelimBin)
if PosDContent <> 0 then
PosFNomFile = PosDContent - 3 ' sauter le chr(13) et le " qui ferme le nom
PosDContent = PosDContent + LenB(DelimBin)
end if
''
'' On en déduit aisément le nombre de caractères composant le nom du fichier
''
NomFichier = MidB(Contenu, PosDNomFile , (PosFNomFile - PosDNomFile))
ContenuAscii = ""
for K = 1 to LenB(NomFichier)
ContenuAscii = ContenuAscii & chr(ASCB(MidB(NomFichier, K, 1)))
next
NomFichier = ContenuAscii
PosFContent = InstrB(PosDContent, Contenu, chrB(13))
if PosFContent <> 0 then
PosDFile = PosFContent + 4 ' sauter le chr(13) et les blancs
end if
Contenttype = MidB(Contenu, PosDContent , (PosFContent - PosDContent))
ContenuAscii = ""
for K = 1 to LenB(Contenttype)
ContenuAscii = ContenuAscii & chr(ASCB(MidB(Contenttype, K, 1)))
next
Contenttype = ContenuAscii
DelimAscii = "----"
DelimBin=""
for K = 1 to Len(DelimAscii)
DelimBin = DelimBin & chrB(ASC(Mid(DelimAscii, K, 1)))
next
PosFFile = InstrB(PosDFile, Contenu, DelimBin)
if PosFFile <> 0 then
DownLoadOK = 1 ' tout semble ok
end if
''
'' On affiche les valeurs récoltées pour controle pendant le test
''
response.write "
"
response.Write " & NomFichier & "
response.write "
Position Début: " & PosDNomFile & " " & PosFNomFile & "
"
response.write "
"
response.Write "
" & Contenttype & ""
response.write "
Position Début: " & PosDContent & " Position Fin: " & PosFContent & "
"
response.write "
"
''
'' On conserve le contenu binaire du fichier transmis dans une variable
''
response.write ""
''
'' Décommentez ci-dessous pour voir le contenu complet du post au format binaire
''
'response.write "
Données Binaires Brutes ci-dessous"
'Response.BinaryWrite(Contenu)
Response.write "
"
''
'' Si tout est ok, on écrit dans un fichier à la racine du serveur pour le test
''
response.write "
"
If DownLoadOK = 1 then
Pos = InstrRev(NomFichier, "\")
NomFichierCourt = right(NomFichier, (Len(NomFichier) - Pos))
NewFile = Server.MapPath("\cityflightbox\fichiers") & "\" & NomFichierCourt
response.write "
" & NewFile & ""
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(NewFile, True)
For I = 1 to LenB(DataFichier)
Out.Write chr(AscB(MidB(DataFichier,I,1)))
Next
Out.close
Set Out=nothing
Request.Form
end if
%>
City Flight Box : )
<%= Request.Form("FileTO") %>
et la je veux recuperer le lien de mon image afin de l integrer dans ma page de saisie de mail afin de joindre le nom de mon fichier en piece jointe