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
2 páginas no total Página anterior 12 Próxima página