Languages/ASP 2007/04/25 00:35
Function txtParser(txt, mode)
If (mode = 1) Then
txt = Replace(txt, "&" , "&")
txt = Replace(txt, "<" , "<")
txt = Replace(txt, ">" , ">")
txt = Replace(txt, VbCrlf , "<br>")
Else
txt = Replace(txt, "&" , "&")
txt = Replace(txt, "<br>", VbCrlf)
End If
txtParser = txt
End Function
If (mode = 1) Then
txt = Replace(txt, "&" , "&")
txt = Replace(txt, "<" , "<")
txt = Replace(txt, ">" , ">")
txt = Replace(txt, VbCrlf , "<br>")
Else
txt = Replace(txt, "&" , "&")
txt = Replace(txt, "<br>", VbCrlf)
End If
txtParser = txt
End Function
http://jiny.kr/trackback/97


0