Copiez le code comme suit: <%
'/// *****************************************************************************
«Nom de la bibliothèque de fonctions publiques communes: pubfunction.asp
'*************************************************************************** //
Consto_back = "<ahref = 'javascript: history.back (1)'> [retour à la page précédente] </a>"
Constcloser = "<ahref = 'javascript: self.close ()'>『 Fermer de fenêtre 』</a>"
'// *****************************************************************************
'PubFgdy (test, tag, bh) appelle la fonction de valeur spécifiée de la chaîne spécifiée en fonction du séparateur et de l'étiquette. Paramètres: Test de chaîne séparée, séparateur de balises, étiquette BH
'******************************************************************************** //
Functionpubfgdy (test, balise, bh)
Pubfgdy = ""
iftest <> "" andisnumeric (bh) = truethen
Dimans
Tests = Split (test et balise, balise)
ifbh <ubound (tests) puis
Pubfgdy = tests (bh)
endire
autre
Pubfgdy = ""
sortie
endire
finition de fin
'// *****************************************************************************
'Fonction de spécification de code PubCodeGF (OldTest), Paramètres: contenu original OldTest, nouveau contenu newtest
'******************************************************************************** //
Functionpubcodegf (oldtest)
DimNewTest: Newtest = Trim (OldTest)
ifisnull (newtest) ornewtest = "" thencode_admin = "": exitfunction
Newtest = remplacer (newtest, "'", "" "")
Pubcodegf = newtest
finition de fin
'// *****************************************************************************
«PubCodeHTML (OldTest) bloque les fonctions de code HTML, Paramètres: contenu original OldTest, NewTest Nouveau Contenu
'******************************************************************************** //
functionpubcodehtml (oldtest)
DimNewTest: Newtest = OldTest
ifisnull (newtest) ornewtest = "" thenpubcodehtml = "": exitfunction
Newtest = remplacer (newtest, "<", "<")
Newtest = remplacer (newtest, ">", ">")
Newtest = Remplacer (newtest, chr (39), "'")' citation unique
Newtest = Remplacer (newtest, chr (34), "") 'Double Quotes
Newtest = Remplacer (Newtest, Chr (32), "") 'Space
Newtest = Remplacer (Newtest, Chr (9), "") 'Tableau