Question

问题

虽然当前代码在第一次尝试输入少于或多于8个字符的输入时提示用户重试输入，但用户仍然可以在第二次尝试时输入错误代码。

问题

如何制作一个循环，一直提示用户重试，直到他们的答案是8个字符？

或者，是否可以输入只有8个字符的空格？

当前VBScript：

Call InputChecker

Function InputChecker
  Dim Input
  Input = InputBox("Enter your name") 

  If Len(Input) <> 8 Then
    Msgbox ("Input must be 8 characters")
    Input = InputBox("Enter your name")
  Else
    MsgBox ("Input Success")
  End If
End Function

Answer 1

VBS中没有最大长度输入框，但请尝试：

<SCRIPT>
$(document).ready(function(){
    $("#ShowVideoAuthorFollow").click(function(){
        // move your var declaration here
        var follow = <?php echo $row['memberid']; ?>;
        $.ajax({  
            type: 'POST',  
            url: 'add.php', 

            data: { follow:followw },
            success: function(response) {
                content.html(response);
            }
        });

    });
});
</SCRIPT>

<小时/> 要在输入框中捕获取消或 X ，请检查它是否 FALSE 。请参阅下文，调整UI和程序流程。

Dim UserInput
UserInput = InputChecker
' You can reuse the accepted user input

Function InputChecker
    Dim Input, Length       
    Do
        Input = Trim(InputBox("Enter your name")) ' Remove spaces at front and back
        Length = Len(Input)
        If Length <> 8 Then Msgbox "Input must be 8 characters"
    Loop Until Length = 8
    MsgBox "Input Success"
    InputChecker = Input
End Function

价： MsgBox， InputBox

根据用户输入长度创建循环

1 个答案: