link.asp

来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 43 行

ASP
43
字号
<body onload="play_rt()">
<SCRIPT LANGUAGE="JavaScript">
m = new Array()
m[0] = "欢迎光临〖阿赛〗驿站!"
m[1] = "以下是阿赛向您推荐的内容"
m[2] = "<a href='yuanchuangwenxue.asp'>长篇小说《阿不》</a>"
m[3]="为了网友方便使用,我们加了必要的使用提示"
m[4]="如果你在使用中有什么问题?"
m[5] = "请来信告诉我们。"
m[6] = "欢迎再次光临"
m[7] = "<a href='yuanchuangwenxue.asp'>流浪歌手的情人</a>"
//修改变换颜色
bagcolor = new Array()
bagcolor[0] = "#CCCCCC"
bagcolor[1] = "#FFFF66"
bagcolor[2] = "#CCFFFF"
bagcolor[3] = "#AAEEFF"
bagcolor[4] = "#CCFF88"
bagcolor[5] = "#FF9933"
bagcolor[6] = "#99AAFF"
bagcolor[7] = "#6699FF"
var i=0;

function Ran(R) {		
	return Math.floor((R+1)*Math.random())
}

function play_rt()
{	
	rt1.style.filter="revealTrans(Duration=1.5,Transition=" + Ran(22) + ")";
    rt1.filters.revealTrans.apply();
	rt1.style.background=bagcolor[Ran(7)];
	rt1.innerHTML=m[Ran(6)];
    rt1.filters.revealTrans.play();
    timer = setTimeout("play_rt()",3000)   
}
</SCRIPT>
<!--修改宽度和高度及边框的宽度 -->
<TABLE WIDTH="345" BORDER="0" HEIGHT="40">
<TR ALIGN="CENTER"> 
<TD id="rt1" HEIGHT="40"></TD>
</TR>
</TABLE>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?