⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 超链接.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v = 
"urn:schemas-microsoft-com:vml" xmlns:o = 
"urn:schemas-microsoft-com:office:office" xmlns:w = 
"urn:schemas-microsoft-com:office:word"><HEAD><TITLE>超链接</TITLE>
<META content="text/html; charset=GB2312" http-equiv=Content-Type>
<META content=Word.Document name=ProgId>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META content="Microsoft Word 9" name=Originator><LINK 
href="./26.files/filelist.xml" rel=File-List><!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>wx</o:Author>
  <o:LastAuthor>wx</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>1</o:TotalTime>
  <o:Created>2001-08-29T05:10:00Z</o:Created>
  <o:LastSaved>2001-08-29T05:11:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>44</o:Words>
  <o:Characters>254</o:Characters>
  <o:Company>wg</o:Company>
  <o:Lines>2</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>311</o:CharactersWithSpaces>
  <o:Version>9.2812</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing>
  <w:Compatibility>
   <w:UseFELayout/>
  </w:Compatibility>
 </w:WordDocument>
</xml><![endif]-->
<STYLE>@font-face {
	font-family: 宋体;
}
@font-face {
	font-family: \@宋体;
}
P.MsoNormal {
	FONT-FAMILY: 宋体; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; mso-style-parent: ""; mso-pagination: widow-orphan; mso-bidi-font-family: "Times New Roman"
}
LI.MsoNormal {
	FONT-FAMILY: 宋体; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; mso-style-parent: ""; mso-pagination: widow-orphan; mso-bidi-font-family: "Times New Roman"
}
DIV.MsoNormal {
	FONT-FAMILY: 宋体; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; mso-style-parent: ""; mso-pagination: widow-orphan; mso-bidi-font-family: "Times New Roman"
}
DIV.Section1 {
	page: Section1
}
</STYLE>

<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>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1027"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1"/>
 </o:shapelayout></xml><![endif]--></HEAD>
<BODY bgColor=snow lang=ZH-CN link=blue style="tab-interval: 21.0pt" vLink=blue>
<DIV class=Section1>
<H1 align=center style="TEXT-ALIGN: center">超链接的四种显示方式</H1>
<FORM>
<DIV align=center>
<TABLE border=1 cellPadding=0 style="mso-cellspacing: 1.5pt">
  <TBODY>
  <TR>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>方式一</P></TD>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>没有下划线的超链接</P></TD></TR>
  <TR>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>方式二</P></TD>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>有下划线的超链接（常用）</P></TD></TR>
  <TR>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>方式三</P></TD>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>包含样式的超链接并改变链接字体颜色</P></TD></TR>
  <TR>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>方式四</P></TD>
    <TD 
    style="PADDING-BOTTOM: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-RIGHT: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal>包含样式的超链接并改变链接字体粗细</P></TD></TR></TBODY></TABLE></DIV></FORM>
<P align=center class=MsoNormal style="TEXT-ALIGN: center"><SPAN lang=EN-US><A 
href="file:///D:/CD/百例/VBScript-k/实例86/显示浏览器相关信息.htm" id=aa mily:impact 
Font><SPAN 
style="TEXT-DECORATION: none; text-underline: none">http://cf/100/显示浏览器相关信息.htm 
</SPAN></A><BR><BR><A href="file:///D:/CD/百例/VBScript-k/实例86/显示浏览器相关信息.htm" 
id=aa>http://cf/100/显示浏览器相关信息.htm </A><BR><BR><A 
href="file:///D:/CD/百例/VBScript-k/实例86/显示浏览器相关信息.htm" id=First 
style="LEFT: 30px; TOP: 30pt; pos-ition: absolute" DIV><SPAN 
style="COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 24pt">http://cf/100/</SPAN><SPAN 
style="COLOR: black; FONT-SIZE: 24pt; mso-bidi-font-family: Arial; mso-ascii-font-family: Arial; mso-hansi-font-family: Arial">显示浏览器相关信息</SPAN><SPAN 
style="COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 24pt">.htm 
<o:p></o:p></SPAN></A></SPAN></P>
<P align=center class=MsoNormal style="TEXT-ALIGN: center"><A 
href="file:///D:/CD/百例/VBScript-k/实例86/显示浏览器相关信息.htm">
<DIV id=Sec style="LEFT: 30px; TOP: 142pt; posit-ion: absolute" 
HREF="显示浏览器相关信息.htm"><SPAN lang=EN-US 
style="COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 24pt">http://cf/100/</SPAN><SPAN 
style="COLOR: black; FONT-SIZE: 24pt; mso-bidi-font-family: Arial; mso-ascii-font-family: Arial; mso-hansi-font-family: Arial">显示浏览器相关信息</SPAN><SPAN 
lang=EN-US style="COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 24pt">.htm 
</DIV><o:p></o:p></SPAN></A>
<P></P>
<P class=MsoNormal><SPAN 
lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></SPAN></P></DIV></BODY></HTML>

⌨️ 快捷键说明

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