主题:  浮动广告怎样做?

wangjin

职务:普通成员
等级:1
金币:0.0
发贴:8
注册:2002/8/25 12:51:20
#12002/8/29 19:22:41
浮动广告怎样做?谁能告诉我源代码,谢谢!



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
注册:2004/1/14 19:14:47
#22002/8/30 10:53:26
用有声有色就可以生成一个



天堂鱼

职务:普通成员
等级:2
金币:2.0
发贴:339
注册:2001/1/4 10:03:22
#32002/8/30 13:16:18
把下列代码复制到内

把下列代码复制到内

把需要改的改掉就可以了



刚刚睡醒

职务:普通成员
等级:1
金币:0.0
发贴:31
注册:2002/8/30 18:23:14
#42002/8/30 23:37:06
用不着这么多吧。看我的。
先建一个1.txt
Redirect"ad1.asp"
Width 40
Heiht 60
Border 1
*
logo.gif 这是自定目录下图案文件
www.china.com 随你
check out the IT site
5
logo2.gif 同logo.gif
www.yahoo.com.cn
Sponsored by Flyteworks
5

在来一个ad1.asp
<%
Response.Redirect(Request.querystring("url"))
%>

再来一个ad2.asp
<%
Set ad=Server.CreateObject("MSWC.AdRotator")
ad.GetAdvertisement("ad.txt")
%>
就行了。



冷月宫主

职务:普通成员
等级:1
金币:0.0
发贴:40
注册:2002/7/19 18:34:06
#52002/9/23 16:16:44
www.5dmedia.com/bbs/default.htm

楼上老兄,帮我看看这个!
我的insert.asp:
<%
set Yourad=server.createobject("MSWC.AdRotator")
Yourad.targetFrame="_blank"
%>
<%=Yourad.GetAdvertisement("adrot.txt")%>

show.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


Untitled Document




就在这儿显示吧!



<%server.Execute("insert.asp")%>





adrot.txt

Redirect "redirect.asp"
WIDTH 440
HEIGTH 60
BORDER 0
*
images/1.gif
www.microsoft.com
微软网站
25

images/2.gif
www.163.com
网易网站
25

images/3.gif
www.sohu.com
搜狐网站
25

images/4.gif
www.szzzt.com
中正招标网站
25

redirect.asp

<%
    Response.redirect Request.querystring("url")
%>


重定向文件