<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
'exp2=Replace(exp2,"'","''")
exp2=Replace(exp2," "," ")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function
Function exDeal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
'exp2=Replace(exp2,"''","'")
exp2=Replace(exp2," "," ")
exp2=Replace(exp2,"<br>",Chr(13))
exDeal=exp2
end function
%>
在程序加上上面代码