Funções de processamento de arquivos ASP FSO

Os componentes do FSO no ASP são muito poderosos. Se você não tem essa função, não sabe o que o ASP se tornará. De fato, amigos que desejam aprender a programação do ASP serão definitivamente expostos a operações relacionadas ao FSO. O novo canal de tecnologia a seguir trará uma coleção completa de funções de processamento de arquivos ASP FSO.

<%

'Crie uma função de pasta

Função CreateFolder (Strfolder) 'Parâmetro é um caminho relativo

'A primeira opção é determinar se a pasta a ser criada já existe

Dim strtestFolder, objfso

strtestFolder = server.mappath (strfolder)

Set objfso = createObject ("scripting.filesystemoBject")

'Verifique se a pasta existe

Se não objfso.Poldexists (strtestFolder), então

'Se não existir, crie uma pasta

objfso.createfolder (strtestfolder)

Final se

Defina objfso = nada

Função final

'Exclua a pasta

Função Delfolder (Strfolder) 'O parâmetro é caminho relativo

strtestFolder = server.mappath (strfolder)

Set objfso = createObject ("scripting.filesystemoBject")

'Verifique se a pasta existe

Se objfso.Polderexists (strtestFolder) então

objfso.deleteFolder (strtestFolder)

final se

Defina objfso = nada

Função final

'Crie um arquivo de texto

Função CreateTextFile (Fileurl, FileContent) 'Parâmetro é o caminho relativo e o conteúdo a ser gravado no arquivo

Set objfso = server.createObject ("scripting.filesystemoBject")

Set fout = objfso.createTextFile (Server.mappath (fileurl))

FOUT.WRITINELINE FILECONTENT

fout.close

Defina objfso = nada

Função final

'Excluir arquivos (adequado para todos os arquivos)

Função deltextfile (Fileurl) 'parâmetro é caminho relativo

Set objfso = createObject ("scripting.filesystemoBject")

fileurl = server.mappath (fileurl)

Se objfso.fileExists (fileurl), verifique se o arquivo existe

objfso.deletefile (Server.mappath (Fileurl))

final se

Defina objfso = nada

Função final

'Crie arquivos de imagem e salve o fluxo de dados de imagem

Função CreateImage (Fileurl, ImageContent) 'O parâmetro é o caminho relativo e o conteúdo do arquivo

Set objstream = server.createObject ("adodb.stream") 'para criar objeto Adodb.stream, ADO versão 2.5 ou acima deve ser criado

objstream.type = 1 'aberto no modo binário

objstream.open

objstream.write imageContent 'write string conteúdo para buffer

objstream.savetofile server.mappath (fileurl), conteúdo buffer de 2 '-Write para arquivar

objStream.close () 'objeto fechado

Defina objstream = nada

Função final

'Obtenha remotamente os dados do arquivo

Função Gethttppage (URL)

'No erro de erro

Dim http

Definir http = server.createObject ("Microsoft.xmlHttp")

Http.open "get", url, falso

Http.send ()

Se http.readyState <> 4 então

função de saída

final se

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

Defina http = nada

Se err.number <> 0 então

Gethttppage = "O servidor recebeu um erro de conteúdo do arquivo"

Err.clear

Final se

Função final

Função bytestobstr (corpo, cset)

objStream dim

set objstream = server.createObject ("adodb.stream")

objstream.type = 1

objstream.mode = 3

objstream.open

objstream.write corpo

objstream.Position = 0

objstream.type = 2

objstream.charset = cset

Bytestobstr = objStream.readText

objstream.close

definir objstream = nada

Função final

'Obtenha o fluxo de dados da imagem

Função getpic (url)

em erro de erro em seguida

Dim http

Definir http = server.createObject ("msxml2.xmlhttp") 'use o método xmlhttp para obter o conteúdo da imagem

Http.open "get", url, falso

Http.send ()

Se http.readyState <> 4 então

função de saída

final se

getpic = http.ResponseBody

Defina http = nada

se err.number <> 0 então

getpic = "O servidor recebeu erro ao obter o conteúdo do arquivo"

err.clear

Final se

Função final

'Arquivo aberto (formulário de texto)

Função OpenFile (Fileurl) 'Caminho relativo do arquivo

Dim FileName, FSO, hndfile

Nome do arquivo = fileurl

Nome do arquivo = server.mappath (nome do arquivo)

Set objfso = createObject ("scripting.filesystemoBject")

Se objfso.fileExists (nome do arquivo)

Definir hndfile = objfso.opentextfile (nome do arquivo)

OpenFile = hndfile.readall

Outro

OpenFile = "Erro de leitura do arquivo"

Final se

Definir hndfile = nada

Defina objfso = nada

Função final

'Obtenha o nome do sufixo do arquivo

função getFileExtName (nome do arquivo)

Dim POS

POS = Instrrev (nome do arquivo, ".")

Se pos> 0 então

getFileExtName = MID (nome do arquivo, POS+1)

outro

getFileExtName = ""

final se

Função final

%>

O acima é uma coleção completa de funções de processamento de arquivos ASP FSO introduzidas pelo editor do Foxin Technology Channel. Eu acredito que todo mundo tem um certo entendimento. O Foxin Technology Channel compartilhará mais conhecimento com você, tornando -o cada vez melhor nesse setor.