Lisez des fichiers texte avec adodb.stream au lieu de FSO sous ASP

«Contenu de fichier Lire.

La copie de code est la suivante:

FunctionLoadFile (ByValFile)

Dimobjstream

Onerrorresumenext

SetObjstream = server.createObject ("adodb.stream")

IFerr.number = -2147221005

Response.Write "<divalign = 'Center'> Malheureusement, votre hôte ne prend pas en charge Adodb.stream, et vous ne pouvez pas utiliser ce programme </div>"

Err.Clear

Réponse.

Endire

Sansbjstream

.Type = 2

.Mode = 3

.Ouvrir

.LoadFromFileServer.Mappath (Fichier)

IFerr.Number <> 0THEN

Response.Write "<divalign = 'Center'> Fichier <FontColor = '# FF0000'>" & File & "</font> Impossible de s'ouvrir, veuillez vérifier s'il existe! </font> </div>"

Err.Clear

Réponse.

Endire

.Charset = "GB2312"

.Position = 2

Loadfile = .readText

.Fermer

Fin

SetObjstream = rien

Finition de fin

'Contenu de stockage dans le fichier

La copie de code est la suivante:

Subsavetofile (byValStrody, byValfile)

Dimobjstream

Onerrorresumenext

SetObjstream = server.createObject ("adodb.stream")

IFerr.number = -2147221005

Response.Write "<divalign = 'Center'> Malheureusement, votre hôte ne prend pas en charge Adodb.stream, et vous ne pouvez pas utiliser ce programme </div>"

Err.Clear

Réponse.

Endire

Sansbjstream

.Type = 2

.Ouvrir

.Charset = "GB2312"

.Position = Objstream.Size

.WriteText = Strbody

.Savetofileserver.mappath (fichier), 2

.Fermer

Fin

SetObjstream = rien

Fin

Exemple d'appel

La copie de code est la suivante:

<%

WriteFile "aaa.txt", "www.vevb.com", "utf-8"

Réponse.write readFile ("aaa.txt", "utf-8")

%>

Articles qui peuvent vous intéresser:

Adodb.stream lit des fichiers sur le code de tableau. JScript utilise ADODB.stream pour juger du code d'encodage des fichiers. Utilisez msxml2.xmlhttp et adodb.stream pour collecter des images en utilisant adodb.stream sous ASP pour télécharger des fichiers au lieu d'ouvrir les méthodes / attributs ASP de la valeur d'attribut ADODB.stream adodb.stream. Problème 800A0BBC