function encodestr(str) dim i str=trim(str) str=replace(str,"<","<") str=replace(str,">",">") str=replace(str,"'","""") str=replace(str,vbCrLf&vbCrlf,"</p><p>") str=replace(str,vbCrLf,"<br>") encodestr=replace(str," "," ") end function把接收的数据用这个函数处理一下
dim i
str=trim(str)
str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"</p><p>")
str=replace(str,vbCrLf,"<br>")
encodestr=replace(str," "," ")
end function把接收的数据用这个函数处理一下