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