ASP新手求救！！！

来源：百度知道 编辑：UC知道 时间：2024/05/21 11:16:43
<%
Function myReplace(myString)
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<
myString=Replace(myString,">",">") '替换>
myString=Replace(myString,chr(13),"<br>") '替换回车符
myString=Replace(myString,chr(32)," ") '替换空格符
myString=Replace(myString,chr(9),"        ") '替换Tab缩进符
myString=Replace(myString,chr(39),"´") '替换单引号
myString=Replace(myString,chr(34),""") '替换双引号
myReplace=myString '返回函数值
End Function
%>
<%
Function myReplace2(myString)
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<

传进来的参数是null值,这种值不能当成字符串进行Replace.应该先判断是否为此值.

原函数改成
Function myReplace(myString)
'------------------------------------
if isnull(myString) then myReplace=null:exit funtion

myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<
myString=Replace(myString,">",">") '替换>
myString=Replace(myString,chr(13),"<br>") '替换回车符
myString=Replace(myString,chr(32)," ") '替换空格符
myString=Replace(myString,chr(9)," ") '替换Tab缩进符
myString=Replace(myString,chr(39),"´") '替换单引号
myString=Replace(myString,chr(34),""") '替换双引号
myReplace=myString '返回函数值
End Function

另一个类似