การคัดลอกรหัสมีดังนี้:
'แปลงสตริงเป็นรูปแบบคำสั่ง SQL ฐานข้อมูล
-
functionallstr2database (str, strtype)
dimstrtemp: strtemp = str
SelectCasEstrtype
กรณี""
กรณี "num"
strtemp = clng (strtemp)
กรณี "สตริง" 'ไม่มีการตัดแต่ง
strtemp = แทนที่ (strtemp, "'", "' '')
กรณี "str_br" 'ไม่มีการตัดแต่ง, แปลงการส่งคืนกลับเป็น <br> โดยทั่วไปใช้สำหรับอินพุตข้อความหลายบรรทัด
strtemp = แทนที่ (แทนที่ (strtemp, "'", "' ''), vbcrlf," <br> ")
กรณี "str_trim" 'ตัดแต่ง
strtemp = แทนที่ (trim (strtemp), "'", "' '')
กรณี "nums"
strtemp = trim (strtemp)
strtemp = แทนที่ (strtemp, ")", "")
strtemp = แทนที่ (strtemp, "(", "")
strtemp = แทนที่ (strtemp, "'", "")
strtemp = แทนที่ (strtemp, ";", "")
strtemp = แทนที่ (strtemp, "", "")
strtemp = แทนที่ (strtemp, "หรือ", "")
strtemp = แทนที่ (strtemp, "และ", "")
strtemp = แทนที่ (strtemp, "ลบ", "")
strtemp = แทนที่ (strtemp, "select", "")
strtemp = แทนที่ (strtemp, "exec", "")
strtemp = แทนที่ (strtemp, "อัปเดต", "")
strtemp = แทนที่ (strtemp, "select", "")