主 页 特 效 三 菜 一 汤
作者：http://muyu.963.net
摘自:新潮电子
许多拥有个人主页的网虫都希望把自己的主页做得更酷,下面我给大家带来几个小菜，绝对会让你垂涎三尺,尝尝吧!
开胃菜：清除下划线
没有下划线的超级连接看起来是不是更酷一些？ 参照下面的代码，立即解决这个讨厌的家伙。
<A Id=aa Href="http://muyu.963.net" STYLE="Text-Decoration:none";
Font mily:impact>
http://muyu.963.net
</A>
压底菜：文本变色
在主程序中加入下列程序段，当鼠标移到文本上面时,文字就会发生变化。这会使你的页面增色不少哟！
<DIV ID=First STYLE="pos-ition: absolute;font-family:
arial;
font-size: 48pt; color: black;left: 30px;top: 30pt">
http://muyu.963.net <!-- (在这里加入你想要的文字)-->
</DIV>
<DIV ID=Sec STYLE="posit-ion: absolute;font-family: arial;
font-size: 48pt; color: black; left: 30px;top: 142pt">
Welcome you
</DIV>
<!--此处的<DIV ID=>定义每个文本的标识符,http://muyu.963.net定义为First，Welcome
you 定义为second，font-family的值为字体名，font-size当然就是字的大小了，"color:
black"是文本的初始颜色. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub First_onMouseOver()
First.Style.color = "red" '鼠标指向的颜色)
End Sub
Sub First_onMouseOut()
First.Style.color = "black" '正常状态下的颜色
End Sub
Sub Sec_onMouseOver()
Sec.Style.color = "maroon"
Sec.Style.fontweight = "bold"
End Sub
Sub Sec_onMouseOut()
Dim MyText
Sec.Style.color = "black"
Sec.Style.fontweight = "normal" '文本发生变化的参数
End Sub
-->
</SCRIPT>
另外，如果你想把文本变成超级连接，只要把“<DIV ID=First STYLE=……”改为“<a DIV ID=FIRST
HREF="HTTP://MUYU.963.NET STYLE=……”并在</DIV>后面加上</a>即可。
主打菜：扩展文本
当你点击一个超级连接时，页面某个地方就想拔萝卜一样出来一串文本（类似下拉菜单），想知道这是怎么做的吗？他会使你的主页耕更加具有动感噢！！
<DIV ID=Outline>
<H1 ID=Outline1 CLASS=cl-assHeading
STYLE="font_family: arial;color: black">
木鱼主页
</H1>
<DIV ID=Outline1d STY-LE="display:none">
<H2 ID=Outline1_1 CLA-SS=classHeading
STYLE="font_family: Times New Roman;color: black">
传统口味</H2>
<BLOCKQUOTE ID=Outline1_1d
STYLE="font_family: arial;color: black;display: none">
剪纸世家---非洲风情 <BR><BR>
艺域来风---老狼主页 </BLOCKQUOTE>
<H2 ID=Outline1_2 CLASS=classHeading
STYLE="font_family: Times New Roman;color: black">
木鱼的家
</H2>
<BLOCKQUOTE ID=Outline1_2d
STYLE="font_family: arial;color: black;display: none">
[email protected]
http://i.am/muyu
http://muyu.963.net
http://muyu.126.com </BLOCKQUOTE>
</DIV>
</DIV>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub outline_onClick()
Dim TargetID, objSrcElement, targetElement
set objSrcElement = window.event.srcElement
if (objSrcElement.className = "classHeading") then
targetId = objSrcElement.id & "d"
set targetElement = document.all(targetId)
if (targetElement.style.display = "none") then
targetElement.style.display = ""
else
targetElement.style.display = "none"
end if
end if
End Sub
Sub outline_onMouseOver()
Dim objSrcElement
set objSrcElement = window.event.srcElement
if (objSrcElement.className = "classHeading") then
objSrcElement.style.color = "blue"end if
End Sub
Sub outline_onMouseOut()
Dim objSrcElement
set objSrcElement = window.event.srcElement
if (objSrcElement.className = "classHeading") then
objSrcElement.style.color = "black"
end if
End Sub
-->
</SCRIPT>
</BODY>
变色汤：文本渐变
在源文件中加入下列程序,你所定义的文字将依照设定慢慢地变色,非常漂亮,赶快试一试吧!
<BODY bgcolor="black">
<DIV ID=myLightObject STYLE="position:relative; height:400;
width:400; top:10; left:0; filter:light; color:white">
<CENTER>
今天你是否会想起<br>
昨天你写的日记<br>
明天你是否还想起,<br>
曾经最爱哭的你<p>
谁娶了多愁善感的你<br>
谁安慰爱哭的你<br>
谁把你的长发盘起<br>
谁给你做的嫁衣
<p>
</CENTER>
</DIV>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim CurrentZPos
Sub window_OnLoad
Call myLightObject.Filters.light(0).addAmbient(255,204,255,70)
Call myLightObject.Filters.light(0).addPoint(400,400,200,200,204,0,80)
CurrentZPos = 0
doMoveLight
End Suba
Sub doMoveLight()
If CurrentZPos < 500 Then
CurrentZPos = CurrentZPos + 8
call myLightObject.Filters.light(0).MoveLight(1,20,20,CurrentZPos,-1)
call setTimeout("doMoveLight", 200)
End If
End Sub
-->
</SCRIPT>
</BODY>
好了，本厨师的三菜一汤就介绍到此为止，有空请到我的主页上来座座：http://muyu.963.net。