Conjunto completo de funções personalizadas ASP comumente usadas

Recomendado: Interpretando a lista completa de tipos de erro comuns de ASP
ActiveServerPages, ASP0126(0x80004005)-Include file cannot be found Microsoft OLEDBProviderforODBCDrivers(0x80040E21)--An error occurred in the sql statement (data type mismatch or table name (field name) error or table is in edit state, or table does not exist in a database opened by conn) Microsoft OLEDBPROVIDERFORODBCDRIVERS (0x800

<%

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

Navegação da função

'Formatdate (dt, tp) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'Isinteger (para) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

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

'Isvalidemail (email) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

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

'Lefttrue (str, n) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'Checksql () - Para segurança do sistema, adicione a imunidade de injeção de SQL diretamente onde houver uma conexão com o banco de dados

'RunTime () --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

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

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

'Filehaveno (nome do arquivo) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'ReadFileRecord (nome do arquivo) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'WritEstring (String, FileName) ------------------------------ Escreva a sequência especificada para o novo arquivo especificado

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

'Encrypt (thenumber) | Descriptografar (então number) um conjunto de funções que criptografaram e descriptografam IDs, até 8 bits

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

'Toutf8 (szinput) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C10to2 (x) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C16to2 (x) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C2TO16 (x) ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'C2to10 (x) --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

%>

<%

StartTime = timer ()

'Formatação de data

Função formatdate (dt, tp)

dim y, m, d

Y = ano (dt)

M = mês (dt)

D = dia (dt)

Se m <10 então m = 0 & m

Se d <10 então d = 0 & d

Selecione o caso TP

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

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

Caso 3 formatdate = m &/& d

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

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

final Selecione

Função final

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

'--- julgar se os dados são inteiros -----------------------------------------

Função isinteger (parágrafo)

dim str

Dim l, i

Se isnull (para) então

isinteger = false

função de saída

final se

str = cstr (para)

Se TRIM (STR) = então

isinteger = false

função de saída

final se

l = len (str)

para i = 1 a l

Se MID (STR, I, 1)> 9 ou MID (STR, I, 1) <0 Então

isinteger = false

função de saída

final se

próximo

isinteger = true

se err.number <> 0, então err.clear

Função final

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

'Detecção se o parâmetro passado é o tipo de data

Função chkrequestdate (pará)

ChkRequestDate = false

Se não (isnull (para) ou acabamento (parágrafo) = ou não o iSdate (para)) então

ChkRequestDate = true

Final se

Função final

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

Compartilhar: ASP implementa o código para artigos longos com paginação manual
% setRecordSet1 = server.createObject (adodb.recordset) Exec = selecione*FROMNEWSWHERID = ID RECORDSET1.OPENEXEC, CONN, 1,1 % Tablewidth = 85 % de borda = 0Align = CenterCEllPadding = 3Cellspacing = 0 Trtd .....