以下是引用片段： Function FilterText(ByVal t0,ByVal t1)     IF Len(t0)=0 Or IsNull(t0) Or IsArray(t0) Then FilterText="":Exit Function     t0=Trim(t0)     Select Case t1         Case "1"             t0=Replace(t0,Chr(32),"")             t0=Replace(t0,Chr(13),"")             t0=Replace(t0,Chr(10)&Chr(10),"")             t0=Replace(t0,Chr(10),"")         Case "2"             t0=Replace(t0,Chr(8),"")'回格             t0=Replace(t0,Chr(9),"")'tab(水平制表符)             t0=Replace(t0,Chr(10),"")'换行             t0=Replace(t0,Chr(11),"")'tab(垂直制表符)             t0=Replace(t0,Chr(12),"")'换页             t0=Replace(t0,Chr(13),"")'回车 chr(13)&chr(10) 回车和换行的组合             t0=Replace(t0,Chr(22),"")             t0=Replace(t0,Chr(32),"")'空格 SPACE             t0=Replace(t0,Chr(33),"")'!             t0=Replace(t0,Chr(34),"")'"             t0=Replace(t0,Chr(35),"")'#             t0=Replace(t0,Chr(36),"")'\$             t0=Replace(t0,Chr(37),"")'%             t0=Replace(t0,Chr(38),"")'&             t0=Replace(t0,Chr(39),"")''             t0=Replace(t0,Chr(40),"")'(             t0=Replace(t0,Chr(41),"")')             t0=Replace(t0,Chr(42),"")'*             t0=Replace(t0,Chr(43),"")'+             t0=Replace(t0,Chr(44),"")',             t0=Replace(t0,Chr(45),"")'-             t0=Replace(t0,Chr(46),"")'.             t0=Replace(t0,Chr(47),"")'/             t0=Replace(t0,Chr(58),"")':             t0=Replace(t0,Chr(59),"")';             t0=Replace(t0,Chr(60),"")'<             t0=Replace(t0,Chr(61),"")'=             t0=Replace(t0,Chr(62),"")'>             t0=Replace(t0,Chr(63),"")'?             t0=Replace(t0,Chr(64),"")'@             t0=Replace(t0,Chr(91),"")'\             t0=Replace(t0,Chr(92),"")'\             t0=Replace(t0,Chr(93),"")']             t0=Replace(t0,Chr(94),"")'^             t0=Replace(t0,Chr(95),"")'_             t0=Replace(t0,Chr(96),"")'`             t0=Replace(t0,Chr(123),"")'{             t0=Replace(t0,Chr(124),"")'|             t0=Replace(t0,Chr(125),"")'}             t0=Replace(t0,Chr(126),"")'~     Case Else         t0=Replace(t0, "&", "&")         t0=Replace(t0, "'", "'")         t0=Replace(t0, """", """)         t0=Replace(t0, "<", "<")         t0=Replace(t0, ">", ">")     End Select     IF Instr(Lcase(t0),"expression")>0 Then         t0=Replace(t0,"expression","e­xpression", 1, -1, 0)     End If     FilterText=t0 End Function

t0=Replace(t0,Chr(32),"&nbsp;")
t0=Replace(t0,Chr(13),"")
t0=Replace(t0,Chr(10)&Chr(10),"<br>")
t0=Replace(t0,Chr(10),"<br>")

exp过几天再发。请大大多多顶下。