常用网站替换字符函数(ASP)
以下是常用网站替换字符函数(ASP方式实现)
function StrReplace(Str)'表单存入替换字符
if Str="" or isnull(Str) then
StrReplace=""
exit function
else
StrReplace=replace(str," "," ") '" "
StrReplace=replace(StrReplace,chr(13),"<br>")'"<br>"
StrReplace=replace(StrReplace,"<","<")' "<"
StrReplace=replace(StrReplace,">",">")' ">"
end if
end function
function ReStrReplace(Str)'写入表单替换字符
if Str="" or isnull(Str) then
ReStrReplace=""
exit function
else
ReStrReplace=replace(Str," "," ") '" "
ReStrReplace=replace(ReStrReplace,"<br>",chr(13))'"<br>"
ReStrReplace=replace(ReStrReplace,"<br>",chr(13))'"<br>"
ReStrReplace=replace(ReStrReplace,"<","<")' "<"
ReStrReplace=replace(ReStrReplace,">",">")' ">"
end if
end function
function HtmlStrReplace(Str)'写入Html网页替换字符
if Str="" or isnull(Str) then
HtmlStrReplace=""
exit function
else
HtmlStrReplace=replace(Str,"<br>","<br>")'"<br>"
end if
end function