함수 모음 시리즈 - 쿼리 입력전에 HTML태그 변환처리

Public Function ConvertToSQL(strQuery)

 Dim Temp

  Temp = strQuery

  Temp = replace(Temp ,"&","&")
  Temp = replace(Temp ,"<","<")
  Temp = replace(Temp ,">",">")
  Temp = replace(Temp ,""",""")
  Temp = replace(Temp ,">",">")
  Temp = replace(Temp ,"<","&lt;")
  Temp = replace(Temp ,"''","'")
  Temp = replace(Temp ,chr(13)&chr(10),"<BR>")
  Temp = replace(Temp ,chr(34),"&quot;")
 
  convertToSQL = Temp  '//변환된 값을 반환한다.

 End Function

ASP에서 Red Board에서 사용하는 함수인데..

개발할때 걍 쓸려고 등록해둔다....