killstr.asp

来自「asp的新闻网站」· ASP 代码 · 共 21 行

<%
'字符替换

function killStr(describ)
	if describ<>"" then
		describ=trim(describ)
		describ=replace(describ,"'","‘") '替换单引号
		describ=replace(describ,chr(34),"”") '替换双引号
		describ=replace(describ,"<","〈")
		describ=replace(describ,">","〉")
		describ=replace(describ,";","；")
		describ=replace(describ,"法轮","　")
		describ=replace(describ,"李洪志","　")
		killStr=describ
	else
		killStr=""
	end if
end function
%>