<%
Dim Adnum,Adcontent(1)
'下面定义楼间广告内容,预定义,内容中不要使用引号.
'图片调用范例:<IMG SRC=http://www.nocolor.cn/logo.gif WIDTH=88 HEIGHT=21 ALT=楼间广告 BORDER=0>
'文字调用范例:<FONT FACE=宋体 COLOR=blue SIZE=3>欢迎使用楼间广告</FONT>
'链接调用范例:<A HREF=http://www.nocolor.cn>No Color</A>
'图片加链接范例:<A HREF=http://www.nocolor.cn><IMG SRC=http://www.nocolor.cn/logo.gif WIDTH=88 HEIGHT=21 ALT=楼间广告 BORDER=0></A>
Adcontent(1) = "<SCRIPT LANGUAGE=JavaScript src='http://c09.caishow.com/cooperation/adCode/printSpecialJS.asp?f=1875&id=56&state=quiet&imgType=3'></SCRIPT>"
'定义结束
Randomize
Adnum = Fix(Rnd*1)+1
Response.Write Adcontent(Adnum)
%>
