<%
Rem ############################################### ###################
Rem ## Ocultar tempo de execução
Subs__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, verdadeiro)
response.Write(vbCrLf & "<!--Tempo de execução: " & tTimeOver & " milissegundos-->")
Finalizar sub
Rem ############################################### ###################
Rem ############################################### ###################
Rem ## Abrir conexão com banco de dados
função f__OpenConn()
Dim connstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Definir conexão = Server.CreateObject("Adodb.Connection")
conn.open connstr
Função final
Rem ############################################### #################################################
######################################
Rem ## Fechar conexão com o banco de dados
função f__CloseConn()
Se IsObject(conn) Então
Definir conexão = nada
Terminar se
Função final
Rem ############################################### ###################
Rem ############################################### ###################
Rem ## Conversão HTML
função paraHtml(str)
Resultado escuro
Resultado=str&""
Resultado = substituir(Resultado, ">", ">")
Resultado = substituir(Resultado, "<", "<")
Resultado = substituir(Resultado, " ", " ")
Resultado = substituir(Resultado, """", """)
Resultado = substituir(Resultado, CHR(13), "")
Resultado = substituir(Resultado, CHR(10), "<br>")
Resultado = substituir(Resultado, CHR(39), "'")
toHtml = Resultado
Função final
Rem ############################################### ###################
Rem ############################################### ###################
Rem ## conversão de número inteiro longo
função toLng (strNum, padrão)
Resultado escuro
Se strNum <> "" E IsNumeric(strNum) Então
Resultado = CLng(strNum)
Outro
toNum = Padrão
Terminar se
toLng = Resultado
Função final
Rem ############################################### ###################
http://bizhi.downcodes.com/
Rem ############################################### ###################
Rem ## Conversão de tipo de moeda
função toCur(strNum, Padrão)
Resultado escuro
Se strNum <> "" E IsNumeric(strNum) Então
Resultado = CCur(strNum)
Outro
toNum = Padrão
Terminar se
toCur = Resultado
Função final
Rem ############################################### ###################
Rem ############################################### ###################
Codificação de substituição Rem ## SQL
função paraSqlr(str)
str = str & ""
str = substituir(str, "'", "")
str = substituir(str, """", "")
toSqlr=str
Função final
Rem ############################################### #################################################
######################################
Codificação Rem ## SQL
função paraSql(str)
str = str & ""
str = substituir(str, "'", "''")
toSql=str
Função final
Rem ############################################### #################################################
######################################
Rem ## Converta um número em um número fixo de dígitos e preencha todos os dígitos ausentes com 0
função ConvertNumber(strNum)
strNum = strNum & ""
Dim iLen, iMaxL, iLdiv, Resultado
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL - iLen
Resultado = string(iLdiv, "0") & strNum
ConvertNumber = Resultado
Função final
Rem ############################################### ###################
%>