Die Codekopie lautet wie folgt:
Setzen Sie Zeichenfolgen in das Datenbank -SQL -Anweisungsformat um
'-------------------------------------------------
FunctionAllStr2Database (STR, STRTYPE)
Dimstrtemp: Strtemp = str
SelectCasSestryPe
Fall""
Fall "Num"
STRTEMP = CLNG (STRTEMP)
Fall "String" 'keine Trim
strtemp = ersetzen (strtemp, "'", "' '")
Fall "Str_Br" 'Keine Verkleidung, Wagenrückkehr zu <br>, die im Allgemeinen für Multi-Line-Texteingaben verwendet werden
strTemp = ersetzen (ersetzen (strtemp, "", "''"), vbcrlf, "<br>")
Fall "str_trim" 'trim
strtemp = ersetzen (trim (strtemp), "", "''")
Fall "nums"
STRTEMP = Trim (Strtemp)
strTemp = ersetzen (strtemp, ")", "")
strTemp = ersetzen (strtemp "(", "")
strtemp = ersetzen (strtemp, "'", "")
strTemp = ersetzen (strtemp, ";", "")
strtemp = ersetzen (strtemp, "", "")
strtemp = ersetzen (strtemp "oder", "")
strtemp = ersetzen (strtemp "und", "")
strtemp = ersetzen (strtemp, "delete", "")
strTemp = ersetzen (strtemp, "select", "")
strTemp = ersetzen (strtemp, "exec", "")
STRTemp = Ersetzen (strtemp, "update", "")
strTemp = ersetzen (strtemp, "select", "")