mystring=replace(mystring,chr(39),"´") '替换单引号
mystring=replace(mystring,chr(34),""") '替换双引号
mystring=replace(mystring,"<","<") '替换<
mystring=replace(mystring,">",">") '替换>
mystring=replace(mystring,chr(13),"<br>") '替换回车符
mystring=replace(mystring,chr(32)," ") '替换空格符
mystring=replace(mystring,chr(9)," ") '替换tab符
‘以下将src路径替换为全路径,以便图片分享时可以找到路径
tempstr = dr("content")
tempstr = Replace(tempstr, Chr(34), """)
tempstr = Replace(tempstr, "src="/", "src="" & Config.yuanchengpath & "/")
tempstr = Replace(tempstr, """, Chr(34))