将字符串中某一字符串替代成其它的字符

dim sR
dim iStart,iEnd,sHtm
iStart = instr(1,sA,"product.asp?id=")

sqian = mid(sA,1,iStart-1)

while iStart > 0    
 
 iEnd = instr(iStart,sA,"target")
 shuzi = trim(mid(sA, iStart+15, iEnd - iStart -15))
 lujing = "product/" & shuzi & ".htm "
 
 iStart = instr(iEnd + 6,sA,"product.asp?id=")
 if iStart>0 then
  kongxi = mid(sA,iEnd,iStart-iEnd)
  sR = sR & lujing & kongxi
 else
  zuihou = mid(sA,iEnd,len(sA)-iEnd)
 end if
  
wend

sR = sqian & sR & zuihou