Foros del Web - Ver Mensaje Individual - Error HTTP Error 403.14

rafret · #2 (**permalink**) 30/07/2017, 13:19

el código:

Cita:

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="login.aspx.vb" Inherits="facturacion.login" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>Sistema de facturacion</title>
<link href="Content/bootstrap.min.css" rel="stylesheet" />
<link href="Content/signin.css" rel="stylesheet" />
</head>
<body>
<div class="container">
<form id="form1" runat="server" class="form-signin">
<h2 class="form-signin-heading">Ingrese al Sistema</h2>
<asp:TextBox ID="Textusuario" runat="server" class="form-control" placeholder="digite su Usuario" required MaxLength="10"></asp:TextBox>
<asp:TextBox ID="Textpassword" runat="server" class="form-control" placeholder="Password" required MaxLength="10" TextMode="Password"></asp:TextBox>
<asp:Button ID="btningresar" runat="server" class="btn btn-lg btn-primary btn-block" Text="Ingresar" />
</form>

</div> 
</body>
</html>

Cita:

Public Class login
Inherits System.Web.UI.Page
Dim libreria As New conexion
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub btningresar_Click(sender As Object, e As EventArgs) Handles btningresar.Click
Dim tabla As New DataTable
tabla = libreria.validarUsuario(Textusuario.Text, Textpassword.Text)
If tabla.Rows.Count() = 0 Then
Response.Write("usuario no valido")
Else
Response.Write("usuario Valido")

End If
End Sub
End Class

Cita:

Public Class conexion
Public cs_conexion As String = "Data Source=JOFRET-PC\FACTURACION;Initial Catalog-sis_factura;User ID=sa;Password=Fxk7p30m*"
Private cn As New SqlConnection(cs_conexion)

Public Function conectarse() As Boolean
Dim estado As Boolean

Try
cn.Open()
estado = True
Catch ex As Exception
estado = False
End Try
Return estado
End Function

Public Sub desconectar()
cn.Close()
End Sub

Public Function validarUsuario(ByVal usuario As String, ByVal clave As String) As DataTable
Dim tbdatos As New DataTable
Dim adaptador As New SqlDataAdapter
Dim comando As New SqlCommand("validarUsuario")

conectarse()
With comando
.CommandType = CommandType.StoredProcedure
.Parameters.AddWithValue("@pusuario", usuario)
.Parameters.AddWithValue("@pclave", clave)
End With

Try
adaptador.SelectCommand = comando
adaptador.Fill(tbdatos)
Catch ex As Exception
Return Nothing

End Try

desconectar()

Return tbdatos
End Function
End Class