nbsp;                                
Sub cmdDown_OnClick                                    
'在 Input Boxes 窗体和 Submit 窗体中设置值。                                                                 
   Document.Form.MoveAmount.Value = -1                                    
   Document.Form.Submit                                    
End Sub                                                                       
Sub cmdUp_OnClick                                                                        
   Document.Form.MoveAmount.Value = 1                                    
   Document.Form.Submit                                    
End Sub                                                                        
Sub cmdFirst_OnClick                                                                       
   Document.Form.MoveFirst.Value = 2   Document.Form.Submit                                      
End Sub                                                                        
Sub cmdLast_OnClick                                                                        
   Document.Form.MoveLast.Value =3                                    
   Document.Form.Submit                                    
End Sub                                    
</script>                                                            
</html> 

上一页  [1] [2]