Function Deal(exp1)
       Dim exp2
       exp2=Replace(exp1,"<","<")
       exp2=Replace(exp2,">",">")
       exp2=Replace(exp2,"","")
       exp2=Replace(exp2,Chr(13),"<br>")
       Deal=exp2
END Function

哪位大虾，能不能解释一下该函数里每个replace语句的意义，以及其中"<",">","&lt"等参数的意义？谢谢~

exp2=Replace(exp1,"<","<")
把exp1中的"<"替换为"<"
这是最基本的知识,建议先看看书.

可是后面的定义变量里
xm="姓名"
xm=deal(xm)
就解释不通了...xm里根本没有"<"啊？

这函数的所用是以防万一,如果没有的话当然就不会替换,如果有就进行替换

没有就不用啊,如果有的话就会替换啊~~~

哦，原来这样啊~
谢谢大家了~