<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="DissData_vb" %>
<html>
    <script language="vb" runat="server">
	sub OK_Click(sender as object,e as EventArgs)
		Dim NowDissSQL as DissSql = Ctype(Session("NowDissSQLvb"),DissSql)
		Dim ValiRes as string = NowDissSQL.ValiUser(Name.Text,Password.Value)
		if ValiRes="" then
			Message.Text="密码错误"
		else
			Session("Lg_ok")="-1"
			Session("NowMan")=ValiRes
			Session("NowID")=Name.Text
			Response.Redirect(Session("NowFile").ToString())
		end if
        end sub
    </script>
<body background="../../../../images/winback.gif">
      <form runat=server>
          输入ID</font>：<asp:textbox id="Name" runat=server/>(ID及密码皆为john)
          <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>
