<script type=text/vbscript>
function checkLength()
Dim o
Set o = window.event.srcElement
If Len(o.value) = CLNG(o.maxLength) then
Select Case o.id
Case "txtDispSjno1"
Set o = txtDispSjno2
Case "txtDispSjno2"
Set o = txtDispSjno3
Case "txtDispSjno3"
end select
elseIf Len(o.value) = 0 then
Select Case o.id
Case "txtDispSjno1"
Case "txtDispSjno2"
Set o = txtDispSjno1
Case "txtDispSjno3"
Set o = txtDispSjno2
end select
end if
o.focus
end function
</script>
代码如下:--function checkLength() Dim o Set o = window.event.srcElement If Len(o.value) = CLNG(o.maxLength) then Select Case o.id Case "txtDispSjno1" Set o = txtDispSjno2 Case