ASP FSO FILE/FLASTER OPERION

Recomendado: função de processamento de tempo ASP
Uma função do tempo de conversão. O processamento de tempo no KINCMS também é muito poderoso, para que você possa conferir se tiver tempo. A função date () no PHP é tão poderosa que não posso deixar de usar asp para imitá -la ... mas acabei de escrever até o dia, mas ainda não o escrevi. Portanto, essa função ainda não foi formatada com horas, minutos e segundos, e eu a adicionarei depois de ter tempo. % '******

Como mencionado anteriormente, isso apenas move algumas funções. De fato, é melhor colocar alguns métodos de conjunto de funções no programa.

Funções principais:

1. Crie uma pasta de exclusão

2. Obtenha o nome e o número de pastas em uma pasta

3. Obtenha o nome do arquivo e o número de arquivos em uma pasta

4. Verifique se existe uma pasta

5. Verifique se existe um arquivo

6. Exclua o arquivo

7. Leia o conteúdo de um arquivo

7. Crie um arquivo e escreva o conteúdo deste arquivo

Em geral, existem duas funções: uma é a operação de arquivo e a outra é a operação de pasta. Acabei de escrever com base nas minhas necessidades desse "sistema de gerenciamento de empregos on -line" e não é adequado para todos ...

<%

'********************************

'Nome: Classe de operação FSO

'Autor: Leng Yue, Xilou

Data: 2006-3-1

'Site: www.xilou.net/ | www.chinacms.org

'Descrição: classe de operação do FSO

'********************************

Classe fsocls

Private fso '// objeto

Public fsoobj '// objeto de interface pública

'// inicialização, construtor

Sub -Class_initialize privado

Set fso = createObject ("script.filesystemoBject")

Definir fsoobj = fso

Final sub

'// termina, libere o construtor

Sub -Class_terminado privado

Defina FSO = nada

Definir fsoobj = nada

Final sub

'================================================================

Função isFileExists (Byval Filedir)

'Julgue se o arquivo existe. Retornar true se houver, caso contrário, retorne false

'Parâmetro arquivado é o caminho absoluto para o arquivo

Se fso.FileExists (arquivado) então

IsfileExists = true

Outro

IsfileExists = false

Final se

Função final

Função getFileText (byval filedir)

'Leia o conteúdo do arquivo, se existir, ele retorna o conteúdo do arquivo, caso contrário, retorna false

'Parâmetro arquivado é o caminho absoluto para o arquivo

Se o IsFileExists (arquivado) então

Dim f

Set f = fso.opentExtFile (FileDir)

GetFileText = f.readall

Set f = nada

Outro

GetFileText = false

Final se

Função final

Função createfile (byval filedir, byval FileContent)

'Crie um arquivo e escreva conteúdo

'A operação retorna true para o sucesso, caso contrário, retorna falsa

Se o IsFileExists (arquivado) então

Createfile = false

Função de saída

Outro

Dim f

Set f = fso.createTextFile (FileDir)

F.Write FileContent

Createfile = true

F.Close

Final se

Função final

Função Delfile (Byval Filedir)

'Exclua um arquivo e retorne verdadeiro com sucesso, caso contrário, retorne falsa

'Parâmetro arquivado é o caminho absoluto para o arquivo

Se o IsFileExists (arquivado) então

Fso.DeleteFile (Filedir)

Delfile = Verdadeiro

Outro

Delfile = Falso

Final se

Função final

Compartilhar: ASP CLASS ASPLIB-EVENTPROVER.Class.asp é usado para obter IP, etc.
O autor é tão meticuloso que ele encapsula todas essas coisas nas classes. Está um pouco acabado. Essas coisas podem ser encapsuladas como processos ou funções. Sub e função também são encapsulados e não precisa ser uma classe. Sua biblioteca de arquivos não é necessariamente toda classe, alguma sub -função e função são necessárias. As funções implementadas incluem 1, showinfo (e_title, c_url, e_n