在网上找了个程序
strOut=Replace(strOut,"%pic%","暂无图片")
然后发现，没有图片的时候他调用的是文字（暂无图片）

不好看
如何调用一段JS的广告呢
整段代码如下：
strOut=Replace(strOut,"%uid%",duid)
if dpic="" then
strOut=Replace(strOut,"%pic%","暂无图片")
else
if lcase(left(dpic,7))<>"http://" then
dpic="<a href=../adpic/"&dpic&" target=_blank><img src=../adpic/"&dpic&" border=0 width=321 height=217></a>"
else
dpic="<a href="&dpic&" target=_blank><img src="&dpic&" border=0 width=321 height=217></a>"
end if
strOut=Replace(strOut,"%pic%",dpic)
end if
strOut=Replace(strOut,"%xz%","<font color=#FF0000>普通广告</font>")
strOut=Replace(strOut,"%date%",now())
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath("html/"&id&".html"),true)
'写入网页内容
f.WriteLine strOut
f.close
'Response.Write "生成静态页成功！"
'释放文件系统对象
set f=Nothing
set fso=Nothing

请大家帮帮我啊  万分感谢！！！

目前自己进了一步
调用了一个图片
但是JS广告还是不会啊
strOut=Replace(strOut,"%pic%","<a><img src=../adpic/banner7.jpg border=0 width=321 height=217></a>")

<a href="URL" target="_blank"><image src="imageURL"></a>