Recomendado: Dicas de configuração ASP para usar o FCKeditor 1. Abra o arquivo fckconfig.js no idioma padrão (em relação à pasta FCKeditor, o mesmo abaixo), altere a linguagem de detecção automática para não detecção e altere a linguagem padrão para chinês simplificado: código do programa fckconfig.autodetectlanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Abra o arquivo fckconfig.js na lista de fontes, na lista de fontes
<% '====================================================================
'Compilado por: Zhang Hui
'Código do programador: WJ008
'Tempo de compilação: 1 de junho de 2008
'Siga o endereço: www.wj008.net
'Todos os endereços de arquivo usados pelas funções usam endereços absolutos
'================================================================================================
'LoadFile (arquivo BYVAL) carrega o arquivo existente e gera uma string para retornar o conteúdo do arquivo.
'SaveTofile (Byval Strbody, Byval File) Salvar o arquivo alterado, Strbody é a nova string
'Delfile (arquivo byval) exclua arquivos existentes
'Carregar o arquivo existente, o arquivo é o caminho do arquivo
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Função loadfile (arquivo byval)
ObjStream dim
Em erro de erro em seguida
Set objStream = server.createObject (adodb.stream)
Se err.number = -2147221005 Então
Infelizmente Response.Write, seu host não suporta adodb.stream e não pode usar este programa
Err.clear
Resposta.END
Final se
Com objstream
.Type = 2
.Mode = 3
.Abrir
.LoadFromFile File
Se err.number <> 0 então
Response.Write File & File & não pode ser aberto, verifique se ele existe!
Err.clear
Resposta.END
Final se
.CharSet = GB2312
.Position = 2
Loadfile = .readText
.Fechar
Termine com
Definir objstream = nada
Função final
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Função savetofile (byval strbody, byval arquivo) 'Salvar o arquivo aberto, o arquivo é o caminho do arquivo salvo, o strbody é o conteúdo salvo
ObjStream dim
Em erro de erro em seguida
Set objStream = server.createObject (adodb.stream)
Se err.number = -2147221005 Então
Response.write <div align = 'Center'> Infelizmente, seu host não suporta Adodb.stream, e você não pode usar este programa </div>
Err.clear
Resposta.END
Final se
Com objstream
.Type = 2
.Abrir
.CharSet = GB2312
.Position = objStream.size
.WriteText = strbody
.Savetofile File, 2
.Fechar
Termine com
Definir objstream = nada
Função final
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Função delfile (arquivo byval)
Objfilesys escumos
Em erro de erro em seguida
Set objfilesys = server.createObject (scripting.filesystemobject)
Se objfilesys.fileExists (arquivo), então 'se o arquivo existir, exclua o arquivo como o caminho do arquivo
Objfilesys.DeleteFile File
Final se
Se err.number <> 0 então
Response.Write File & File & não pode ser excluído, o arquivo pode estar em uso pelo sistema!
Err.clear
Resposta.END
Final se
Defina objfilesys = nada
Função final
'Verifique se o arquivo existe
Função CheckFile (sfilename)
CheckFile = false
Objfilesys escumos
Em erro de erro em seguida
Set objfilesys = server.createObject (scripting.filesystemobject)
Se objfilesys.filexists (sfilename), então 'se o arquivo existir, exclua o arquivo como o caminho do arquivo
CheckFile = true
Final se
Defina objfilesys = nada
Função final
'Verifique se a pasta existe
Função CheckFolder (chk_path)
set fso = server.createObject (script.filesystemoBject)
Se fso.PoldErexists (chk_path) = false então
CheckFolder = false
outro
CheckFolder = true
final se
Função final
'Obtenha o nome do sufixo do arquivo
função getFileExt (sfilename)
GetFileExt = ucase (mid (sfilename, instrrev (sfilename,.)+1))
Função final
'****************************************************************
'Função: ASP Upload Vulnerability/0 Protection
'Nome da função: Truest (FileRue)
Parâmetros: Sfilename FileName
'Valor de retorno: retornar true para o arquivo legal, caso contrário, retorne false
'****************************************************************
função isTrueFileName (sfileName)
dim str_len, pos
str_len = len (sfilename)
POS = Instr (SfileName, Chr (0))
Se pos = 0 ou pos = str_len então
ISTRUEFILENAME = true
outro
IsTrueFileName = false
Final se
Função final
'****************************************************************
'Função: detecte se o arquivo de imagem carregado (JPEG, GIF, BMP, PNG) é realmente uma imagem
'Nome da função: Truest (FileRue)
'Parâmetros: Sfilename Nome do arquivo (aqui o nome do arquivo é o caminho completo físico da pasta)
'Valor de retorno: se for realmente um arquivo de imagem, ele retornará verdadeiro, caso contrário, retornará false
'****************************************************************
Função isimgfile (sfilename)
const adtypebinary = 1
retorno escuro
Dim JPG (1): jpg (0) = cbyte (& hff): jpg (1) = cbyte (& hd8)
Dim BMP (1): BMP (0) = CBYTE (& H42): BMP (1) = CBYTE (& H4D)
Dim png (3): png (0) = cbyte (& h89): png (1) = cbyte (& h50): png (2) = cbyte (& h4e): png (3) = cbyte (& h47)
Dim gif (5): gif (0) = cbyte (& h47): gif (1) = cbyte (& h49): gif (2) = cbyte (& h46): gif (3) = cbyte (& h39): gif (4) = cbyte (& h38): gif (5) = cby (4)
em erro de erro em seguida
Compartilhar: Interface do banco de dados para a versão ASP da consulta de nomes de domínio % On Error Retomine Próximo privado d_exsit Dim Recuperação Domin Domin Dim Dim TakenHtml Função getUrl (url) set recuperação = server.createObject (Microsoft.xmlHttp) com recuperação .Open get, url, false, .send getUrl = .Responsext end com recriada definida = n
3 páginas no total Página 123 Página Próxima Página