<%
Rem ############################################### ## ###################
Rem ## Ocultar tiempo de ejecución
Sub s__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((Temporizador() - tStartTime) * 1000, 3, verdadero)
respuesta.Write(vbCrLf & "<!--Tiempo de ejecución: " & tTimeOver & " milisegundos-->")
Subtítulo final
Rem ############################################### ## ###################
Rem ############################################### ## ###################
Rem ## Abrir conexión a la base de datos
función f__OpenConn()
Conexión tenue
connstr = "Proveedor=Microsoft.Jet.OLEDB.4.0;Fuente de datos="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Establecer conexión = Server.CreateObject("Adodb.Connection")
conn.open connstr
Función final
Rem ############################################### ## ###################
Rem ########################### ### #######################################
Rem ## Cerrar conexión a la base de datos
función f__CloseConn()
Si IsObject(conn) Entonces
Establecer conexión = nada
Terminar si
Función final
Rem ############################################### ## ###################
Rem ############################################### ## ###################
Rem ## Conversión HTML
función a HTML (cadena)
Resultado oscuro
Resultado = cadena & ""
Resultado = reemplazar(Resultado, ">", ">")
Resultado = reemplazar(Resultado, "<", "<")
Resultado = reemplazar(Resultado, " ", " ")
Resultado = reemplazar(Resultado, """", """)
Resultado = reemplazar(Resultado, CHR(13), "")
Resultado = reemplazar(Resultado, CHR(10), "<br>")
Resultado = reemplazar(Resultado, CHR(39), "'")
toHtml = Resultado
Función final
Rem ############################################### ## ###################
Rem ############################################### ## ###################
Rem ## conversión de entero largo
función toLng(strNum, predeterminado)
Resultado oscuro
Si strNum <> "" y IsNumeric(strNum) entonces
Resultado = CLng(númcadena)
Demás
toNum = Predeterminado
Terminar si
toLng = Resultado
Función final
Rem ############################################### ## ###################
http://bizhi.downcodes.com/
Rem ############################################### ## ###################
Rem ## Conversión de tipo de moneda
función toCur(strNum, predeterminado)
Resultado oscuro
Si strNum <> "" y IsNumeric(strNum) entonces
Resultado = CCur(númcadena)
Demás
toNum = Predeterminado
Terminar si
toCur = Resultado
Función final
Rem ############################################### ## ###################
Rem ############################################### ## ###################
Rem ## codificación de reemplazo SQL
función toSqlr(cadena)
cadena = cadena & ""
cadena = reemplazar(cadena, "'", "")
cadena = reemplazar(cadena, """", "")
toSqlr = cadena
Función final
Rem ############################################### ## ###################
Rem ########################### ### #######################################
Rem ## Codificación SQL
función toSql(cadena)
cadena = cadena & ""
cadena = reemplazar(cadena, "'", "''")
toSql = cadena
Función final
Rem ############################################### ## ###################
Rem ########################### ### #######################################
Rem ## Convierte un número a un número fijo de dígitos y completa los dígitos que faltan con 0
función ConvertirNúmero(cadenaNum)
númerocadena = númerocadena & ""
Atenuar iLen, iMaxL, iLdiv, Resultado
iLen = Len(númcadena)
iMaxL=8
iLdiv = iMaxL - iLen
Resultado = cadena (iLdiv, "0") y strNum
ConvertirNúmero = Resultado
Función final
Rem ############################################### ## ###################
%>