<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分支结构测试二</title>
</head>
<script language="vbscript">
sub but_onclick()
mon=form1.month.value
org=form1.org.value
str=org & "通知：" & vbcrlf & "会议将在："
select case mon
case 0
str=str & "January 15th 召开"
case 1
str=str & "February 17th 召开"
case 2
str=str & "March 15th 召开"
case 3
str=str & "May 16th 召开"
case 4
str=str & "July 15th 召开"
end select
alert(str)
end sub
</script>
<body>
<p align="center">分支结构测试二</p>
<hr>
<form name="form1">
<p>会议组委会：
<input type="text" name="org">
</p>
<p>会议日期:
<select name="select">
<option selected value=0>Jan</option>
<option value=1>Feb</option>
<option value=2>Mar</option>
<option value=3>May</option>
<option value=4>Jul</option>
</select>
</p>
<p>
<input name="but" type="button" value="浏览">
</p>
<p> </p>
</form>
<p> </p>
</body>
</html>
按正常的 应该点BUTTON后 会弹出个对话框 但是 我测试的没有 希望高手看下我的代码是不是那里写错了
[此贴子已经被作者于2007-10-16 11:33:12编辑过]
