Función de operación de archivo ASP establecida

Recomendado: Consejos de configuración de ASP para usar FCKEditor
1. Abra el archivo fckconfig.js en el idioma predeterminado (relativo a la carpeta fckeditor, lo mismo a continuación), cambie el lenguaje de detección automático a la no detección y cambie el idioma predeterminado a chino simplificado: código de programa fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Abra el archivo fckconfig.js en la lista de fuentes, en la lista de fuentes

<% '==============================================================================================================.

'Compilado por: Zhang Hui

'Código de programador: WJ008

'Tiempo de compilación: 1 de junio de 2008

'Siga la dirección: www.wj008.net

'Todas las direcciones de archivo utilizadas por funciones usan direcciones absolutas

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

'LoadFile (archivo Byval) carga el archivo existente y genera una cadena para devolver el contenido del archivo.

'Savetofile (byval strbody, archivo byval) Guardar el archivo cambiado, strbody es la nueva cadena

'Delfile (archivo BYVAL) eliminar los archivos existentes

'Cargar el archivo existente, el archivo es la ruta del archivo

'-----------------------------------------------------------------------------------------------

Función LoadFile (archivo byval)

Dim objstream

En el currículum de error siguiente

Establecer objstream = server.createObject (ADODB.Stream)

Si err.number = -2147221005 entonces

Response.Write Desafortunadamente, su host no admite aDodb.stream y no puede usar este programa

Err.Clear

Respuesta.

Final si

Con objstream

.Type = 2

.Mode = 3

.Abierto

.LoadFromFile File

Si err.number <> 0 entonces

Response.Write File & File y no se puede abrir, ¡verifique si existe!

Err.Clear

Respuesta.

Final si

.Charset = GB2312

.Position = 2

LoadFile = .ReadText

.Cerca

Terminar con

Establecer objstream = nada

Función final

'-----------------------------------------------------------------------------------------------

Function savetofile (byval strbody, archivo byval) 'Guardar el archivo abierto, el archivo es la ruta de archivo guardada, strbys es el contenido guardado

Dim objstream

En el currículum de error siguiente

Establecer objstream = server.createObject (ADODB.Stream)

Si err.number = -2147221005 entonces

Response.write <div align = 'Center'> Lamentablemente, su host no admite aDodb.stream, y no puede usar este programa </div>

Err.Clear

Respuesta.

Final si

Con objstream

.Type = 2

.Abierto

.Charset = GB2312

.Position = objstream.size

.WriteText = strbody

.Savetofile Archivo, 2

.Cerca

Terminar con

Establecer objstream = nada

Función final

'-----------------------------------------------------------------------------------------------

Función delfile (archivo byval)

Dim objfilesys

En el currículum de error siguiente

Establecer objFilesys = server.CreateObject (scripting.filesystemObject)

Si objfilesys.fileExists (archivo), entonces 'si existe el archivo, elimina el archivo como la ruta del archivo

objFilesys.DeleteFile File

Final si

Si err.number <> 0 entonces

Response.Write File & File & no se puede eliminar, ¡el sistema puede estar en uso por el sistema!

Err.Clear

Respuesta.

Final si

Establecer objFilesys = nada

Función final

'Verifique si el archivo existe

Función CheckFile (sfilename)

CheckFile = falso

Dim objfilesys

En el currículum de error siguiente

Establecer objFilesys = server.CreateObject (scripting.filesystemObject)

Si objfilesys.fileExists (sfileName), entonces 'Si existe el archivo, elimine el archivo como la ruta del archivo

CheckFile = True

Final si

Establecer objFilesys = nada

Función final

'Verifique si existe la carpeta

Función checkfolder (chk_path)

establecer fso = server.createObject (scripting.filesystemObject)

Si FSO.FoldeRexists (chk_path) = falso entonces

Checkfolder = falso

demás

CheckFolder = True

final si

Función final

'Obtenga el nombre del sufijo del archivo

función getFileExt (sfileName)

GetFileExt = UCase (Mid (Sfilename, Instrrever (SfileName ,.)+1))

Función final

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

'Función: protección de vulnerabilidad de carga ASP/0

'Nombre de la función: Truestr (Filetrue)

'Parámetros: nombre de archivo Sfilename

'Valor de retorno: devolver verdadero para el archivo legal, de lo contrario, devolver falso

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

función istrueFileName (sfileName)

Dim str_len, pos

str_len = len (sfilename)

pos = instr (sfilename, chr (0))

Si pos = 0 o pos = str_len entonces

IstrueFileName = True

demás

IstrueFileName = falso

Final si

Función final

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

'Función: detectar si el archivo de imagen cargado (JPEG, GIF, BMP, PNG) es realmente una imagen

'Nombre de la función: Truestr (Filetrue)

'Parámetros: nombre de archivo Sfilename (aquí el nombre del archivo es la ruta completa de la carpeta)

'Valor de retorno: si es realmente un archivo de imagen, devolverá verdadero, de lo contrario, devolverá falso

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

Función isImgFile (sfilename)

const adTypebinary = 1

devolución oscura

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) = cbyte (& h61)

En el currículum de error siguiente

Compartir: interfaz de base de datos para consulta de nombre de dominio ASP versión
% en el resumen de error Siguiente privado D_EXSIT Dim Recuperación Dim dominio Dim TAKETHTML Función GetUrl (URL) Establezca recuperación = servidor.createObject (Microsoft.xmlhtttttp) con recuperación .open get, url, false, .send getUrl = .Rponsetext en final con retrieval = N.