如何前后翻阅聊友们的发言？

依次前移，实现聊友们的发言的更迭：

function form1_onsubmit()
if document.form1.tt.value="" then
document.form1.tt.focus()
form1_onsubmit= false  else 
select case len(trim(tt6))
case 0  tt1=document.form1.tt.value 
  tt6="1"
  p=tt6
case 1    tt2=document.form1.tt.value 
  tt6="11"
  p=tt6
case 2    tt3=document.form1.tt.value 
  tt6="111"
  p=tt6
case 3    tt4=document.form1.tt.value 
  tt6="1111"
  p=tt6
case 4    tt5=document.form1.tt.value 
  tt6="11111"
  p=tt6
case 5                      tt1=tt2
  tt2=tt3
  tt3=tt4
  tt4=tt5
  tt5=document.form1.tt.value
  p=tt6
end select
document.form1.t1.value=document.form1.tt.value 
document.form1.tt.value=""
document.form1.tt.focus()
form1_onsubmit= true
end if
end function

当需向前向后翻时，就要判断目前所处的变量的位置。向前则只要判断所处位置是第二个变量到第五个变量时，向后则判断所处位置是第一个变量到第四个变量时，每向前向后翻一次，即翻页指针（p）向前向后一次。向后翻页方法（向前翻页相同）代码如下：

Sub cmdNext_onclick
'if p<len(trim(tt6)) then
select case len(trim(p))
case 0    p="1"
document.form1.tt.value =tt2
document.form1.tt.focus ()
case 1    p="11"
document.form1.tt.value=tt3
document.form1.tt.focus()
case 2      p="111"
document.form1.tt.value=tt4
document.form1.tt.focus ()
case 3      p="1111"
document.form1.tt.value=tt5
document.form1.tt.focus ()
end select
'end if
End Sub
Sub window_onload
document.form1.tt.focus ()
End Sub