<Script language="VBScript" EOR="btnShow" EVENT="onClick">
　dim x
　if form1.text1.Value=" " or form1.text2.Value=" " then
     form1.text3.Value ="请在上面两个框中各输入一个整数!"      
  else
    if CLng(form1.text1.Value)>CLng(form1.text2.Value) then
     x =form1.text1.Value
    else
   x =form1.text2.Value   
end if
  form1.text3.Value =x
  end if  
</Script>


..........

<form name="form1">
  <p>输入第一个整数
    <input type="text" name="text1">
</p>
  <p>输入第二个整数
    <input type="text" name="text2">
</p>
  <p>两者中的最大值
    <input type="text" name="text3">
  </p>
  <p>
    <input type="submit" name="btnShow" value="提交">
    <input type="reset" name="Submit2" value="重置">
</p>
</form>

<Script language="VBScript" FOR="btnShow" EVENT="onClick"> dim x if form1.text1.Value="" or form1.text2.Value="" then form1.text3.Value ="请在上面两个框中各输入一个整数!" else if CLng(form1.text1.Value)>CLng(form1.text2.Value) then x =form1.text1.Value else x =form1.text2.Value end if form1.text3.Value =x end if </Script>

.......... <form name="form1"> <p>输入第一个整数 <input type="text" name="text1"> </p> <p>输入第二个整数 <input type="text" name="text2"> </p> <p>两者中的最大值 <input type="text" name="text3"> </p> <p> <input type="button" name="btnShow" value="提交"> <!-- type="submit"的话页面就提交了,等于刷新页面--> <input type="reset" name="Submit2" value="重置"> </p> </form>

[此贴子已经被作者于2005-3-25 14:16:23编辑过]