html 코드(tag) 치환 > 기술자료

• 목록
• 게시판 리스트 옵션
  • 검색

tag 못쓰게 하는 법

[ 방법.1 ]

<%
function ReplaceTag2Text(str)
   Dim text
      text = replace(str, "&", "&amp;")
      text = replace(text, "<", "&lt;")
      text = replace(text, ">", "&gt;")
      text = replace(text, "'", "&quot;")
      text = replace(text, """", "&quot;")
      ReplaceTag2Text = text
End Function

p_idx    = Request.QueryString("p_idx")
name    = upload.item("name")
titles     = upload.item("titles")
content = replace(upload.item("MinBoardContents"),"'","''")
ip         = request.servervariables("remote_host")

' 테그방지를 위한 변수교환
p_idx    = replaceTag2text(p_idx)
name    = replaceTag2text(name)
titles     = replaceTag2text(titles)

%>



[ 방법.2 ]
<%
' =========================================================
' html 코드 치환
' =========================================================
Function NullFillWith(src , data )
  if isNULL(src) or src = "" then
    if Not isNull(data) or data = "" then
      NullFillWith = data
    else
      NullFillWith = 0
    end if
  else
    If Not IsNumeric(src) then
      NullFillWith = Replace(src, "'", "''")
      NullFillWith = Replace(src, chr(34), "&#34")
      NullFillWith = Replace(src, chr(38), "&amp")
      NullFillWith = Replace(src, ";" , "&#59")
      NullFillWith = Replace(src, "<" , "&#60")
      NullFillWith = Replace(src, "--" , "&#45&#45")
      NullFillWith = trim(Replace(src, "..\" , "&#46&#46&#92"))
    else
      NullFillWith = src
    End if  
  end if
End Function

Function vReplace_IN(data)
  If Not IsNull(data) Then
    data  = Replace(data, "'" , "''")
    data  = Replace(data, chr(38), "&amp")
    data  = Replace(data, chr(34), "&#34")
    data  = Replace(data, ";" , "&#59")
    data  = Replace(data, "<" , "&#60")
    data  = Replace(data, "--" , "&#45&#45")
    data  = Replace(data , chr(13), "<br />" )
    data  = Trim(Replace(data, "..\" , "&#46&#46&#92"))
  End If
  vReplace_IN = data
End Function

Function vReplace_OUT(data)
  If Not IsNull(data) Then
    data  = Replace(data, "''", "'")
    data  = Replace(data, "&amp", chr(38))
    data  = Replace(data, "&#34", chr(34))
    data  = Replace(data, "&#59", ";")
    data  = Replace(data, "&#60", "<")
    data  = Replace(data, "&#45&#45", "--")
    data  = Replace(data , "<br>", chr(13))
    data  = Replace(data , "<br />", chr(13))
    data  = Trim(Replace(data, "&#46&#46&#92", "..\"))
  End If
  vReplace_OUT = data
End Function
%>