changecode.asp

网络程序-学生个人信息管理系统。以学生个人用户实际需要为中心

<%
'替换函数,用于排版,回车和空格
function changecode(strContent)  
'一个是转义,一个是解决换行,一个是空格
jill1=chr(13)&chr(10) '换行
jill2=chr(32) '空格
lala1="<br>"
lala2="&#160;"
       
         fString = Replace(strContent, "&","&amp;") 
         fString = Replace(fString, "<","&lt;") 
         fString = Replace(fString, ">","&gt;") 
         fString = Replace(fString, CHR(34), "&quot;") '双引号 
         fString = Replace(fString, CHR(39), "&#39;") '单引号 
       
         fString = replace(fString, jill1, lala1)'换行 
         fString = replace(fString, jill2, lala2)'空格
changecode=fString
end function
%>