许多拥有个人主页的网虫都希望把自己的主页做得更酷,下面我给大家带来几个小菜，绝对会让你垂涎三尺,尝尝吧!

开胃菜：清除下划线
没有下划线的超级连接看起来是不是更酷一些？ 参照下面的代码，立即解决这个讨厌的家伙。
< 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"> 
YESOK@263.NET
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。