<%
Rem ############################################## ## ###################
Rem ## Masquer le temps d'exécution
Sous s__HideTimeOver()
Dim tTimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, vrai)
réponse.Write(vbCrLf & "<!--Durée d'exécution : " & tTimeOver & " millisecondes-->")
Fin du sous-marin
Rem ############################################## ## ###################
Rem ############################################## ## ###################
Rem ## Ouvrir la connexion à la base de données
fonction f__OpenConn()
Constr.
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Source de données="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
Définir conn = Server.CreateObject("Adodb.Connection")
conn.open connstr
Fin de fonction
Rem ############################################## ## ###################
Rem ########################## ### #######################################
Rem ## Fermer la connexion à la base de données
fonction f__CloseConn()
Si IsObject(conn) Alors
Définir conn = rien
Fin si
Fin de fonction
Rem ############################################## ## ###################
Rem ############################################## ## ###################
Rem ## Conversion HTML
fonction versHtml(str)
Résultat Faible
Résultat = chaîne & ""
Résultat = remplacer (Résultat, ">", ">")
Résultat = remplacer (Résultat, "<", "<")
Résultat = remplacer(Résultat, " ", " ")
Résultat = remplacer(Résultat, """", """)
Résultat = remplacer(Résultat, CHR(13), "")
Résultat = remplacer(Résultat, CHR(10), "<br>")
Résultat = remplacer(Résultat, CHR(39), "'")
toHtml = Résultat
Fin de fonction
Rem ############################################## ## ###################
Rem ############################################## ## ###################
Rem ## conversion d'entier long
fonction toLng (strNum, par défaut)
Résultat Faible
Si strNum <> "" Et IsNumeric(strNum) Alors
Résultat = CLng (strNum)
Autre
toNum = Par défaut
Fin si
toLng = Résultat
Fin de fonction
Rem ############################################## ## ###################
http://bizhi.downcodes.com/
Rem ############################################## ## ###################
Rem ## Conversion du type de devise
fonction toCur (strNum, par défaut)
Résultat Faible
Si strNum <> "" Et IsNumeric(strNum) Alors
Résultat = CCur(strNum)
Autre
toNum = Par défaut
Fin si
toCur = Résultat
Fin de fonction
Rem ############################################## ## ###################
Rem ############################################## ## ###################
Rem ## Encodage de remplacement SQL
fonction toSqlr(str)
chaîne = chaîne & ""
str = remplacer(str, "'", "")
str = remplacer(str, """", "")
toSqlr = chaîne
Fin de fonction
Rem ############################################## ## ###################
Rem ########################## ### #######################################
Rem ## Encodage SQL
fonction toSql(str)
chaîne = chaîne & ""
str = remplacer(str, "'", "''")
toSql = chaîne
Fin de fonction
Rem ############################################## ## ###################
Rem ########################## ### #######################################
Rem ## Convertit un nombre en un nombre fixe de chiffres et remplit les chiffres manquants avec 0
fonction ConvertNumber(strNum)
NuméroStre = NuméroStre & ""
Dim iLen, iMaxL, iLdiv, Résultat
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL - iLen
Résultat = chaîne (iLdiv, "0") & strNum
ConvertNumber = Résultat
Fin de fonction
Rem ############################################## ## ###################
%>