Conjunto completo de funciones personalizadas ASP de uso común

Recomendado: Interpretar la lista completa de tipos de error comunes de ASP
ActiveServerPages, ASP0126 (0x80004005) -Include El archivo no se puede encontrar Microsoft OLEDBProviderForodBCDrivers (0x80040e21): un error se produjo un error en el error SQL (Tipo de datos desacreditado o el nombre de la tabla (nombre de campo) El error o la tabla está en el estado de edición, o la tabla no existe en una base de dat. OLEDBPROVIDERFORODBCDRIVS (0x800

<%

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

'Navegación de funciones

'FormatDate (DT, TP) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'IsInteger (para) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'Chkrequestdate (para) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'Chkpost () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'ISValidEmail (correo electrónico) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'MakedownName () -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'getip () -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'LeftTrue (Str, N) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'CheckSql () - Para la seguridad del sistema, agregue la inmunidad de inyección SQL directamente donde hay una conexión de base de datos

'Runtime () ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

'CheckFolder (FolderPath) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'DeleteFolder (FolderPath) -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'FileHaveno (nombre de archivo) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'ReadFilerecord (nombre de archivo) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'WriteString (String, FileName) ------------------------------ Escriba la cadena especificada en el nuevo archivo especificado

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

'CIRRYPT (entonces Number) | Decrypt (entonces Tumber) un conjunto de funciones que cifre y descifrar ID, hasta 8 bits

'UTF2GB (UTFSTR) -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'toutf8 (szinput) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C10TO2 (x) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C16TO2 (x) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C2TO16 (X) ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C2TO10 (X) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

%>

<%

Starttime = timer ()

'Fecha de formato

FormatDate de función (DT, TP)

Dim Y, M, D

Y = año (DT)

M = mes (DT)

D = día (DT)

Si m <10 entonces m = 0 & m

Si d <10 entonces d = 0 y d

Seleccionar Caso TP

Caso 1 formatdate = y & y & m & m & m & d & d

Case 2 formatdate = y &/& m &/& d

Case 3 formatdate = m &/& d

Caso 4 formatdate = y &/& m &/& d

Caso 5 formatdate = y &-& m &-& d

final seleccionar

Función final

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

'--- juzga si los datos son enteros -----------------------------------------

Función isinteger (para)

mimbre

dim l, yo

if isnull (para) entonces

isInteger = falso

función de salida

final si

str = cstr (para)

Si TRIM (Str) = entonces

isInteger = falso

función de salida

final si

l = len (str)

para i = 1 a l

Si Mid (str, i, 1)> 9 o mediano (str, i, 1) <0 entonces

isInteger = falso

función de salida

final si

próximo

isInteger = verdadero

Si err.number <> 0 entonces Err.Clear

Función final

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

'Detección de si el parámetro aprobado es el tipo de fecha

Función chkrequestdate (para)

Chkrequestdate = falso

Si no (isNull (para) o recorte (para) = o no ISDate (para)) entonces

Chkrequestdate = verdadero

Final si

Función final

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

Compartir: ASP implementa el código para artículos largos pagados manuales
% setRecordSet1 = Server.CreateObject (ADODB.RecordSet) Exec = SELECT*fromNeWSwhereId = id RecordSet1.OpenExec, Conn, 1,1 % tablewidth = 85 % border = 0Align = CenterCellPadding = 3CellSpacing = 0 TRTD ...