脚本控制焦点在输入框移动
<HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><TITLE>Javascript控制焦点移动</TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--function next_focus(text)on error resume next dim tabIndex1 '下一个文本框的标志tabIndex1=text.tabIndex +1if window.event.keyCode =13 then for k=0 to document.all.length if UCase(document.all (k).tagName) ="INPUT" then set input1=document.all (k) If UCase(input1.Type) = "TEXT" Then '如果是可输入的文本框 if input1.tabIndex = tabIndex1 then num=num+1 input1.focus() pass=true exit for end if end if end if nextend ifif Err.number > 0 then'表示当前操作的已经是最后一个可以获取焦点的对象'只有文本框、按钮类元素才有focus（）属性'alert("异常发生")'alert(Err.description )'如果上面这行不注释，会提示异常发生：缺少对象end ifend function 
//--></SCRIPT></HEAD><BODY><P><INPUT id=text1 name=text1 tabIndex=1 onkeyup=" next_focus(me)">第1个</P><P><INPUT id=text2 name=text2 tabIndex=3 onkeyup=" next_focus(me)">第3个</P><P><INPUT id=text4 name=text4 tabIndex=2 onkeyup=" next_focus(me)">第2个</P><P><INPUT id=text5 name=text5 tabIndex=5 onkeyup=" next_focus(me)">第5个</P><p><INPUT id=text3 name=text3 tabIndex=4 onkeyup=" next_focus(me)">第4个</p></BODY></HTML>