| Das Folgende ist das Codefragment: <% "==================================================== 'Dekodieren der Zeichenfolge für HTML, ersetzen Sie den Server.htmlencode Entfernen Sie das HTML -Format für die Anzeigeausgabe "==================================================== Funktion outhtml (str) Dim Stemp Stemp = str OUTHTML = "" " Wenn isnull (Schritt) = wahr ist, dann dann Ausgangsfunktion Ende wenn Stemp = ersetzen (Schritt, "&", "& amp;") Stemp = ersetzen (stemp, "<", "" & lt; ") Stemp = ersetzen (Schritt, ">", "& gt;") STEMP = Ersetzen (STEMP, CHR (34), "& quot;") Schritt = Ersetzen (Schritt, CHR (10), "<br>") outhtml = stemp Endfunktion "==================================================== 'Entfernen Sie das HTML -Format und füllen Sie es mit dem Eingabefeld aus der Datenbank aus 'Hinweis: value = "?" "==================================================== Funktion inhtml (str) Dim Stemp Stemp = str inhtml = "" Wenn isnull (Schritt) = wahr ist, dann dann Ausgangsfunktion Ende wenn Stemp = ersetzen (Schritt, "&", "& amp;") Stemp = ersetzen (stemp, "<", "" & lt; ") Stemp = ersetzen (Schritt, ">", "& gt;") Stemp = ersetzen (stemp, chr (34), "& quot;") inhtml = stemp Endfunktion %> |