标题:图片有显示图,没有如何调用广告:
只看楼主
qufuabc
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-6-5
结帖率:0
已结贴  问题点数:20 回复次数:2 
图片有显示图,没有如何调用广告:
在网上找了个程序
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

请大家帮帮我啊  万分感谢!!!
搜索更多相关主题的帖子: 广告 显示图 
2010-06-05 18:36
qufuabc
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-6-5
得分:0 
目前自己进了一步
调用了一个图片
但是JS广告还是不会啊
strOut=Replace(strOut,"%pic%","<a><img src=../adpic/banner7.jpg border=0 width=321 height=217></a>")
2010-06-05 19:02
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
得分:20 
<a href="URL" target="_blank"><image src="imageURL"></a>

★★★★★为人民服务★★★★★
2010-06-05 19:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-309320-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.988325 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved