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.
La copia del código es la siguiente:<%
'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.