<select>
<option value="这里是实际上机器读到的值">这里是下拉框里显示的值</option>
<option value=""></option>
<option value=""></option>
......................
</select>
<option value="这里是实际上机器读到的值">这里是下拉框里显示的值</option>
<option value=""></option>
<option value=""></option>
......................
</select>
真够坏的!!!:)
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>菜单</title>
</head><body>
<!--主功能表-->
<table width=100% border=0 cellspacing=0 height="31">
<tr>
<td bgcolor=navy style="font-size: 12; color: white" height="13">VBScript的網頁功能表製作</td>
</tr>
<tr>
<td bgcolor=CFCFCF style="font-size: 12" height="14"><a href="#" id="lnk1" style="text-decoration:none;" onmouseover="CallMenu1()" onmouseout="CallMenu2()"> 檔案 </a</td>
</a>
</tr>
</table><!--跳出式功能表-->
<p id="menu1" style="position:absolute;left:10px;top:45px;visibility:hidden;" onmouseover="CallMenu1()" onmouseout="CallMenu2()">
<table border=1 cellspacing=0>
<tr><td bgcolor=yellow style="font-size:12;"><a href="../homepage.html" style="text-decoration:none;"> 前往首頁 </a></td></tr>
<tr><td bgcolor=yellow style="font-size:12;"><a href="../vbs/vbs.html" style="text-decoration:none;"> VBScript物件運用 </a></td></tr>
<tr><td bgcolor=yellow style="font-size:12;"><a href="vbss.html" style="text-decoration:none;"> 離開 </a></td></tr>
</table><script language=vbscript>
Sub CallMenu1()
document.all("menu1").style.visibility = ""
End Sub
Sub CallMenu2()
document.all("menu1").style.visibility = "hidden"
End Sub
</script>
</body></html>