ASP将字符转换成网页能识别的字符

 

'将字符转换成网页能识别的字符
function changechr(str)
  str = replace(str,"<","&lt;")
  str = replace(str,">","&gt;")
  str = replace(str,"chr(13)","<br>")
  'str = replace(str," ","&nbsp;")
'changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")
changechr=replace(replace(replace(replace(str,"[image]","<img width=516 height=389 src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/image]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
changechr = replace(changechr,"'"," ")
end function

function reChangeChr(str)
 if str <> "" then
   reChangeChr=replace(replace(replace(replace(str,"&lt;","<"),"&gt;",">"),"<br>",chr(13)),"&nbsp;"," ")
 end if
end function