VBS替换的字符中出现引号

dim q,optxt,crtxt,rdtxt,a
set q=createobject("scripting.filesystemobject")
set optxt=q.opentextfile("temp\my.txt")
set crtxt=q.createtextfile("b.txt")
rdtxt=optxt.readall
a=replace(rdtxt,"</a>","</a><br>")

a=replace(rdtxt,"            <a href="","            <a href="http://www.ttxiaoshuo.com/files/article/html/2/2745/")
crtxt.write a

            <a href="  替换成            <a href="http://www.ttxiaoshuo.com/files/article/html/2/2745/