<%@ Register TagPrefix="Title" TagName="TitleShow" Src="../../../Title.ascx" %>
<html>
    <script language="VB" runat="server">
        Sub OK_Click(Sender As Object, E As EventArgs)
	If Password.Value="" or Name.Text="" Then
		Message.Text = "错误，请输入ID及密码"
	Else
		If Name.Text="abcd" Then
			If Len(Password.Value)=4 Then
				Dim i as Integer
				For i=97 to 100
					If Asc(Mid(Password.Value,i-96,1))<>i Then
						Message.Text = "密码验证错误，请重新输入"
						Exit sub
					End If
				Next
			else
				Message.Text = "密码验证错误，请重新输入"
				Exit Sub
			End If
			Response.Redirect("show.aspx?name=" & Name.Text)
		End If
	End If
        End Sub
    </script>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="Menu1_1" Runat="server" />
      <form runat=server>
          输入ID</font>：<asp:textbox id="Name" runat=server/>(测试ID及密码均为abcd)
          <p>输入密码：<input id="Password" type=password size=10 runat=server>
          <asp:button text="确定" Onclick="OK_Click" runat=server/></p>
           <asp:label id="Message" forecolor="red" font-bold="true" runat=server/>

       </form>
   </body>
</html>
