怎么在这段代码中添加广告

刚弄了一套程序，有个地方弄了半天也不知道怎么加广告代码，高手帮帮忙，解决问题之后再送300分。

比如我的广告代码放在ad文件夹的2.js内，我要在下面这段代码中添加广告调用/ad/2.js的广告内容，请问该怎么添加代码，最好详细点，给我在代码中直接修改好了，谢谢！
（双引号中间没字符的应该都是添加广告的地方，给我说一下调用的代码就可以）

str1=instr(1,TengLin,"<!DOCTYPE")
str2=instr(1,TengLin,"</form> </div>")
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"")
str1=instr(1,TengLin,"</td></tr></table>")
str2=instr(1,TengLin,"</html>")+1000
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"</td></tr></table>")
str1=instr(1,TengLin,"<div class=""blockContent""><div")
str2=instr(1,TengLin,"</fieldset></div>")+11
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"<div class=""blockContent"">")
str1=instr(1,TengLin,"<

ad_str="<Script src='/ad/2.js'></Script>"

str1=instr(1,TengLin,"<!DOCTYPE")
str2=instr(1,TengLin,"</form> </div>")
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"")
str1=instr(1,TengLin,"</td></tr></table>")
str2=instr(1,TengLin,"</html>")+1000
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"</td></tr></table>")
str1=instr(1,TengLin,"<div class=""blockContent""><div")
str2=instr(1,TengLin,"</fieldset></div>")+11
cur1=mid(TengLin,str1,str2-str1)
TengLin=Replace(TengLin,cur1,"<div class=""blockContent"">")
str1=instr(1,TengLin,"<script>")
str2=instr(1,TengLin,"js></script></div>")+12