页面字符串过滤函数

<%
´****************************************************
´页面字符串过滤函数,返回值
´作者：www.joekoe.com论坛用户（cuiwl）
´****************************************************
function codehtml(str,n1,n2)
´str字符串参数
´n1过滤等级
´n2显示数目
if trim(str)="" then
str=str
else
select case n1
case 0
´不过滤
str=str
case 1
´过滤脚本标记
str=replace(str,"<script","&lt;script")
str=replace(str,"script>","script&gt;")
case 2
´过滤html标记
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
end select
select case n2
case 0
´显示全部
str=str
case else
´显示部分
if len(str)<=n2 then
str=str
else
str=left(str,n2-1)&".."
end if
end select
codehtml=str
end function
%>