实例一:
<html>
<head>
<title>一个简单的例子</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="VBScript">
<!--
private sub cbocolor_OnClick()
select case frmColor.cbocolor.value
case "黑色"
document.bgcolor=vbBlack
case "红色"
document.bgcolor=vbBlue
case "绿色"
document.bgcolor=vbGreen
case "兰色"
document.bgcolor=vbRed
case "黄色"
document.bgcolor=rgb(0,255,255)
end select
end sub