PASSWORD CHECK

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
    Sub Login(ByVal obj As Object, ByVal e As eventargs)
        Dim intId As Integer = 0
        Dim Conn As New OleDbConnection("Provider=" & _
              "Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=c:/ASPNET/data/banking.mdb")
  
        Dim objCmd As OleDbCommand = New OleDbCommand _
           ("spValidateUser", Conn)
        objCmd.CommandType = CommandType.StoredProcedure
     
        'set parameters for stored procedure
        Dim objParam As OleDbParameter
        objParam = objCmd.Parameters.Add("@UserName", _
           OleDbType.BSTR)
        objParam.Value = tbUserName.Text
     
        objParam = objCmd.Parameters.Add("@Password", _
           OleDbType.BSTR)
        objParam.Value = tbPassword.Text
        
           objCmd.Connection.Open()
            intID = CType(objCmd.ExecuteScalar, Integer)
            objCmd.Connection.Close()
        
        If intID <> 0 Then
            Response.Cookies("Account").Value = intId
            Response.Write(intId)
            '  Response.redirect("account.aspx")
        Else
            lblMessage.Text = "<font color=red>Sorry, " & _
               "invalid username or password!</font><p>"
        End If
    End Sub
</script>

<html><body>
      <font face="arial"> 
   <form runat="server">
  
      <asp:Label id="lblMessage" runat="server" />
  
      <table>
      <tr>
         <td width="75" rowspan="3">
            &nbsp;
         </td>
         <td width="50" valign="top">
            <font face="arial">
         Username:
         </font>
      </td>
      <td width="50" valign="top">
            <font face="arial">
         <asp:Textbox id="tbUserName" runat="server" />
         </font>
      </td>
   </tr>
   <tr>
         <td valign="top">
            <font face="arial">
         Password:
         </font>
      </td>
      <td valign="top">
            <font face="arial">
         <asp:Textbox id="tbPassword" TextMode="password"
            runat="server" /><p>
         </font>
      </td>
   </tr>
   <tr>
         <td align="right" colspan="2">
            <font face="arial">
         <ASP:Button id="Submit" runat="server"
            onClick="Login"
            Text="Submit" />
         </font>
      </td>
   </tr>
      </table>  
     
   </form>
   </font>
</body></html>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值