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

📄 显示说明文字.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
🔍 
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./显示说明文字.files/filelist.xml">
<link rel=Edit-Time-Data href="./显示说明文字.files/editdata.mso">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<title> 鼠标显示说明文字 </title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>wcl</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>wcl</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>2</o:TotalTime>
  <o:Created>2001-08-29T02:43:00Z</o:Created>
  <o:LastSaved>2001-08-29T02:45:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>68</o:Words>
  <o:Characters>390</o:Characters>
  <o:Company>mk</o:Company>
  <o:Lines>3</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>478</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 Definitions */
@font-face
	{font-family:宋体;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-alt:SimSun;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
@font-face
	{font-family:"\@宋体";
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0cm;
	margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:12.0pt;
	font-family:宋体;
	mso-bidi-font-family:"Times New Roman";}
p
	{font-size:12.0pt;
	font-family:宋体;
	mso-bidi-font-family:"Times New Roman";}
 /* Page Definitions */
@page
	{mso-page-border-surround-header:no;
	mso-page-border-surround-footer:no;}
@page Section1
	{size:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	mso-header-margin:42.55pt;
	mso-footer-margin:49.6pt;
	mso-paper-source:0;}
div.Section1
	{page:Section1;}
-->
</style>

<script id="clientEventHandlersVBS" language="VBScript">
<!--
	str ="提交按钮是输入数据后，进行数据处理的事件"
	Sub submit_onmousemove
	submit.title=str
	End Sub
Sub text2_onmousemove
	text2.title="在文本框中输入你的信息,比如:晨风"
End Sub
Sub TEXTAREA1_onmousemove
	checkbox3.title="多行文本输入框，你可以输入多行信息"
End Sub

Sub FGColor1_onmousemove
	FGColor1.title="下拉选择框，选中的信息就是你要的信息"'+vbcrlf+"你的专业是："+trim(fgcolor.value )
	'FGColor.style.visibility = "hidden"
End Sub
Sub radio1_onmousemove
		radio1.title ="单击此表示你是男的"
	End Sub
Sub radio2_onmousemove
		radio2.title ="单击此表示你是女的"
	End Sub
Sub checkbox1_onmousemove
	checkbox1.title="选中了表示你有此爱好"
End Sub
Sub checkbox2_onmousemove
	checkbox2.title="选中了表示你有此爱好"
End Sub
Sub checkbox3_onmousemove
	checkbox3.title="选中了表示你有此爱好"
End Sub


Sub submit_onclick
	dim str
	str="   你输入的信息是"+vbcrlf
	str=str+"姓名："+trim(text2.value )+vbscrlf
	if radio1.status=true then
		str=str+vbcrlf+"性别：男"+vbcrlf
	else
		str=str+vbcrlf+"性别：女"+vbcrlf
	end if
	str=str+"专业："+trim(fgcolor.value )+vbcrlf
	str=str+"爱好："
	if checkbox1.checked=true then
		str=str+" 看书；"
	end if 
	if checkbox2.checked=true then
		str=str+" 上网；"
	end if
	 if checkbox3.checked=true then
		str=str+" 其他"
	end if
	str=str+vbcrlf
	if trim(textarea1.value)="" then
	    str=str+"想法：没有填写"+vbscrlf
	else
		str=str+"想法："+trim(textarea1.value) +vbcrlf
	end if
	msgbox str,,"提交后的结果"
End Sub

Sub radio1_onclick
if radio1.status=true then
	  radio2.status=false
   end if 
End Sub

Sub radio2_onclick
if radio2.status=true then
	  radio1.status=false
   end if 
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]-->
<meta name="VI60_defaultClientScript" content=VBScript>
</head>

<body bgcolor=peachpuff lang=ZH-CN style='tab-interval:21.0pt'>

<div class=Section1>

<div align=center>

<table border=1 cellspacing=1 cellpadding=0 width=282 style='width:211.5pt;
 mso-cellspacing:.7pt' id=tablename height=209>
 <tr>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; 姓名：</span></p>
  </td>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp;<INPUT TYPE="TEXT" NAME="text2"
  id=text2></span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; 性别： </span></p>
  </td>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; <INPUT TYPE="radio" CHECKED NAME="radio1"
  id=radio1>男&nbsp;&nbsp; <INPUT TYPE="radio" NAME="radio2" id=radio2>&nbsp;女&nbsp;&nbsp;&nbsp;</span></p>
  </td>
 </tr>
 <tr style='height:15.0pt'>
  <td style='padding:.75pt .75pt .75pt .75pt;height:15.0pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; 专业：</span></p>
  </td>
  <td style='padding:.75pt .75pt .75pt .75pt;height:15.0pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp;<o:p></o:p></span></p>
  <div id=FGColor1>
  <p class=MsoNormal><span lang=EN-US>&nbsp;<SELECT NAME="FGColor">
<OPTION VALUE="计算机">计算机
<OPTION VALUE="数学">数学
<OPTION VALUE="信息工程">信息工程
<OPTION VALUE="管理">管理
<OPTION VALUE="其他">其他
</SELECT>&nbsp;
  </div>
  </span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; 爱好：</span></p>
  </td>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp;<INPUT TYPE="checkbox" NAME="checkbox1"
  id=checkbox1>看书 <INPUT TYPE="checkbox" NAME="checkbox2" id=checkbox2>上网 <INPUT TYPE="checkbox" NAME="checkbox3"
  id=checkbox3>其他</span></p>
  </td>
 </tr>
 <tr>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp; 想法：</span></p>
  </td>
  <td style='padding:.75pt .75pt .75pt .75pt'>
  <p class=MsoNormal><span lang=EN-US>&nbsp;<TEXTAREA NAME="TEXTAREA1"
  id=TEXTAREA1 style="HEIGHT: 53px; WIDTH: 174px" title="多行文本输入框，你可以输入多行信息"></TEXTAREA></span></p>
  </td>
 </tr>
</table>

</div>

<p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

<p class=MsoNormal align=center style='text-align:center'><span lang=EN-US><INPUT TYPE="submit" VALUE="提交按钮" NAME="submit"
id=submit></span></p>

<p align=center style='text-align:center'>把鼠标放入控件中，就会有提示信息，不妨试试</p>

<p class=MsoNormal align=center style='text-align:center'><span lang=EN-US><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

<p align=center style='text-align:center'>注：只有当鼠标放到下拉选择框控件的左右附近时，下拉选择框才有提示信息</p>

</div>

</body>

</html>

⌨️ 快捷键说明

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