Funciones de procesamiento de archivos ASP FSO

Los componentes FSO en ASP son muy potentes. Si no tiene esta función, no sabe en qué se convertirá ASP. De hecho, los amigos que quieran aprender la programación ASP definitivamente estarán expuestos a operaciones relacionadas con FSO. El siguiente nuevo canal de tecnología le traerá una colección completa de funciones de procesamiento de archivos ASP FSO.

<%

'Crear una función de carpeta

La función createFolder (strfolder) 'El parámetro es una ruta relativa

'La primera opción es determinar si la carpeta a crear ya existe

Dim strtestfolder, objfso

strtestfolder = server.mappath (strfolder)

Establecer objfso = createObject ("scripting.filesystemObject")

'Verifique si existe la carpeta

Si no objfso.folderExists (strtestfolder) entonces entonces

'Si no existe, cree una carpeta

objfso.createfolder (strtestfolder)

Final si

Establecer objfso = nada

Función final

'Eliminar la carpeta

El parámetro de función Delfolder (strfolder) 'es una ruta relativa

strtestfolder = server.mappath (strfolder)

Establecer objfso = createObject ("scripting.filesystemObject")

'Verifique si existe la carpeta

Si objfso.foldereRexists (strtestfolder) entonces entonces

objfso.deletefolder (strtestfolder)

final si

Establecer objfso = nada

Función final

'Crea un archivo de texto

La función createTextFile (fileUrl, fileContent) 'El parámetro es la ruta relativa y el contenido se escribirá en el archivo

Establecer objfso = server.createObject ("scripting.filesystemObject")

Set fout = objfso.createTextFile (server.mappath (fileUrl))

fout.writeline fileContent

Fout.clar

Establecer objfso = nada

Función final

'Eliminar archivos (adecuado para todos los archivos)

Función deltextfile (fileUrl) 'El parámetro es una ruta relativa

Establecer objfso = createObject ("scripting.filesystemObject")

fileUrl = server.mappath (fileUrl)

Si objfso.fileExists (fileUrl), entonces 'verifique si existe el archivo

objfso.deleteFile (server.mappath (fileUrl))

final si

Establecer objfso = nada

Función final

'Crear archivos de imagen y guardar la transmisión de datos de imágenes

La función createImage (fileUrl, imageContent) 'El parámetro es una ruta relativa y contenido de archivo

Establecer objstream = server.createObject ("ADODB.Stream") 'para crear el objeto ADODB.Stream, se debe crear ADO Versión 2.5 o arriba

objstream.type = 1 'Abierto en modo binario

objstream.

objstream.write imageContent 'Escribir contenido de cadena para buffer

objstream.savetofile server.mappath (fileurl), 2 '-escribir contenido almacenado en archivos

objstream.close () 'Cerrar objeto

establecer objstream = nada

Función final

'Obtener de forma remota los datos del archivo

Función gethttppage (URL)

'En el currículum de error a continuación

Dim http

Establecer http = server.createObject ("Microsoft.xmlhttp")

Http.open "Get", URL, falso

Http.send ()

Si http.readyState <> 4 entonces entonces

función de salida

final si

gethttppage = bytestobstr (http.ResponseBody, "GB2312")

Establecer http = nada

Si err.number <> 0 entonces

gethttppage = "El servidor recibió un error de contenido del archivo"

Err.Clear

Final si

Función final

Función bytestobstr (cuerpo, cset)

dim objstream

Establecer objstream = server.createObject ("ADODB.Stream")

objstream.type = 1

objstream.mode = 3

objstream.

objstream.write cuerpo

objstream.position = 0

objstream.type = 2

objstream.charset = cset

Bytestobstr = objstream.readText

objstream.close

establecer objstream = nada

Función final

'Obtener flujo de datos de imágenes

Función getPic (URL)

En el currículum de error siguiente

Dim http

Establecer http = server.createObject ("msxml2.xmlhttp") 'Use el método XMLHTTP para obtener el contenido de la imagen

Http.open "Get", URL, falso

Http.send ()

Si http.readyState <> 4 entonces entonces

función de salida

final si

getPic = http.ResponseBody

Establecer http = nada

Si err.number <> 0 entonces

getPic = "El servidor recibió un error al obtener el contenido del archivo"

Err.Clear

Final si

Función final

'Abrir archivo (formulario de texto)

Función OpenFile (fileUrl) 'Archivo Ruta relativa

Dim File Name, FSO, Hndfile

FileName = fileUrl

FileName = Server.Mappath (nombre de archivo)

Establecer objfso = createObject ("scripting.filesystemObject")

Si objfso.fileExists (nombre de archivo) entonces entonces

establecer hndfile = objfso.opentextfile (nombre de archivo)

OpenFile = hndfile.readall

Demás

OpenFile = "Error de lectura de archivo"

Final si

Establecer hndfile = nada

Establecer objfso = nada

Función final

'Obtenga el nombre del sufijo del archivo

función getFileExtName (nombre de archivo)

Dim POS

pos = instrrev (nombre de archivo, ".")

Si pos> 0 entonces

getFileExtName = Mid (nombre de archivo, pos+1)

demás

getFileExtname = ""

final si

función final

%>

Lo anterior es una colección completa de funciones de procesamiento de archivos ASP FSO introducidas por el editor de Foxin Technology Channel. Creo que todos tienen un cierto entendimiento. Foxin Technology Channel compartirá más conocimiento con usted, lo que lo hará mejor y mejor en esta industria.