主页特效三菜一汤
广告投放★自助友情CMS落伍广告联盟晒乐广告联盟脉动广告联盟品味广告联盟
广告位可自定样式联系QQ:4285248个文字广告月20元广告联系QQ:428524广告位可自定样式
8个文字广告月20元黄金广告位每月20元广告位可自定样式联系QQ:428524广告位可自定样式
左旋肉碱、全国包邮
买二送一、无效退款

文章浏览→建站指南代码特效→主页特效三菜一汤

主页特效三菜一汤
主页特效三菜一汤

主页特效三菜一汤

开胃菜:清除下划线

没有下划线的超级连接看起来是不是更酷一些? 参照下面的代码,立即解决这个讨厌的家伙。

A Id=aa Href=http:www.eschool.com.cn STYLE=Text-Decoration:none;Font mily:impact

http:www.eschool.com.cn

/A

压底菜:文本变色

在主程序中加入下列程序段,当鼠标移到文本上面时,文字就会发生变化。这会使你的页面增色不少哟!

DIV ID=First STYLE=pos-ition: absolute;font-family: arial;

font-size: 48pt; color: black;left: 30px;top: 30pt

http:www.eschool.com.cn !

/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:www.eschool.com.cn定义为First,Welcomeyou 定义为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=FIRSTHREF=http:www.eschool.com.cn 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

剪纸世家-非洲风情 BRBR

艺域来风-老狼主页 /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

eschool@enet.com.cn

http:www.eschool.com.cn /BLOCKQUOTE

/DIV

/DIV

SCRIPT LANGUAGE=VBScript

!

Sub outline_onClick

Dim TargetID, objSrcElement, targetElement

set objSrcElement = window.event.srcElement

ifthen

targetId = objSrcElement.id & d

set targetElement = document.all

ifthen

targetElement.style.display =

else

targetElement.style.display = none

end if

end if

End Sub

Sub outline_onMouseOver

Dim objSrcElement

set objSrcElement = window.event.srcElement

ifthen

objSrcElement.style.color = blueend if

End Sub

Sub outline_onMouseOut

Dim objSrcElement

set objSrcElement = window.event.srcElement

ifthen

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.addAmbient

Call myLightObject.Filters.light.addPoint

CurrentZPos = 0

doMoveLight

End Suba

Sub doMoveLight

If CurrentZPos 500 Then

CurrentZPos = CurrentZPos + 8

call myLightObject.Filters.light.MoveLight

call setTimeout

End If

End Sub

/SCRIPT

/BODY

好了,本厨师的三菜一汤就介绍到此为止。

所属分类:建站指南代码特效    作者:新浪博客    时间:2010-9-4 16:32:00

文章导航