icuba

function Addslashes(str)
  dim str2
  str2 = str
  '따움표
  str2 = replace(str2, "'", "\'")  '처리: '=>\'
  '쌍따움표
  str2 = replace(str2, chr(34), "\"&chr(34) )  '처리: "=>\"
' 엔터값
  str2 = replace(str2, chr(13)&chr(10), "<br>")  '처리ㅋ
 
  Addslashes = str2
end function

function Stripslashes(str)
  dim str2
  str2 = str
  str2 = replace(str2, "\"&chr(34), chr(34) )  '처리:  \"=>"
  str2 = replace(str2, "\'", "'")  '처리:    \'=>'
  Stripslashes = str2
end function

function nl2br(str)
  dim str2
  str2 = str
  str2 = replace(str2, chr(13), "
")  '처리:  vbCrLf, chr(13), chr(10)
  nl2br = str2
end function
 

• #Addslashes
• #Stripslashes