<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
exp2=Replace(exp2,"'","бо")
exp2=Replace(exp2,"script","welcome to xmwuye.com")
exp2=Replace(exp2,"java","hello! ")
exp2=Replace(exp2,Chr(13),"<br>")
deal=exp2
End Function
%>
