Kopieren Sie den Code wie folgt: <%
'///********************************************
'Common Public Function Library Dateiname: Pubfunction.asp
'**********************************************
Constgo_back = "<Ahref = 'JavaScript: History.back (1)'> [zur vorherigen Seite zurückkehren] </a>"
Constcloser = "<Ahref = 'JavaScript: self.close ()'>『 Fenster schließen 』</a>"
'//*******************************************
'Pubfgdy (Test, Tag, BH) ruft die angegebene Wertfunktion der angegebenen Zeichenfolge gemäß dem Trennzeichen und der Beschriftung auf. Parameter: Test Trennzeichenfolge, Tag -Separator, BH -Etikett
'********************************
Functionpubfgdy (test, tag, bh)
Pubfgdy = ""
iftest <> "" andisnumeric (bh) = truethen
Dimtests
Tests = split (test & tag, tag)
ifbh <Ubound (Tests) dann
Pubfgdy = tests (bh)
Endif
anders
Pubfgdy = ""
Ausgangsfunktion
Endif
Endfunktion
'//*******************************************
'PubCodeGF (Oldtest) Codespezifikationsfunktion, Parameter: Oldtest Original Inhalt, Newtest Neue Inhalte
'********************************
FunctionPubCodeGF (Oldtest)
Dimnewest: Newtest = Trim (Oldtest)
ifisnull (newest) iesenwest = "" thencode_admin = "": exitFunction
Newest = ersetzen (newest, "'", "" ")
PubCodegf = newest
Endfunktion
'//*******************************************
'PubcodeHtml (Oldtest) blockiert HTML -Codefunktionen, Parameter: Oldtest Originalinhalte, neuer Inhalt neuer Inhalte
'********************************
functionPubCodeHtml (Oldtest)
DimNewTest: Newtest = Oldtest
ifisnull (newest) orewtest = "" thenpubCodeHtml = "": exitFunction
Newest = ersetzen (newest, "<", "<")
Newest = ersetzen (newest, ">", ">")
Newest = ersetzen (newest, chr (39), "") ") einzelnes Zitat
Newest = ersetzen (newest, chr (34), "") 'Doppelzitate
Newest = ersetzen (newest, chr (32), "") '' 'Space
Newest = ersetzen (newest, chr (9), "") '' 'Tabelle