objet_Stream.LoadFromFile Select_Fichier
13 objet_Stream.Type = adTypeText
14 Objet_Stream.Charset = "ISO-8859-1"
15
16 Taille_Fichier = objet_Stream.Size
17 Affiche_Contenu= objet_Stream.ReadText
18
19 Response.Write "Fichier : " & Select_Fichier & "<br>"
20 Response.Write "Taille : " & Taille_Fichier & " Octets<br>"
21 Response.Write "Contenu : " & Affiche_Contenu
22
23 objet_Stream.Close
24 set objet_Stream = nothing
25 %>
26 </body>
27</html>
上一页 [1] [2] |
