hola juan les envio los archivos con el codigo
* cuando hago el logeo con mi usuario y clave me devuelve un true y cuando no un false y depende de eso lo redirecciono
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<appSettings/>
<connectionStrings>
<remove name="LocalSqlServer" />
<add name="LocalSqlServer" connectionString="Data Source=xxxxx;Initial Catalog=ordenes;Integrated Security=false;User ID=xxxx;Password=xxxx ;"
providerName="System.Data.SqlClient="/>
</connectionStrings>
<system.web>
<compilation debug="true" strict="false" explicit="true" />
<pages>
<namespaces>
<clear />
<add namespace="System" />
<add namespace="System.Collections" />
<add namespace="System.Collections.Specialized" />
<add namespace="System.Configuration" />
<add namespace="System.Text" />
<add namespace="System.Text.RegularExpressions" />
<add namespace="System.Web" />
<add namespace="System.Web.Caching" />
<add namespace="System.Web.SessionState" />
<add namespace="System.Web.Security" />
<add namespace="System.Web.Profile" />
<add namespace="System.Web.UI" />
<add namespace="System.Web.UI.WebControls" />
<add namespace="System.Web.UI.WebControls.WebParts" />
<add namespace="System.Web.UI.HtmlControls" />
</namespaces>
</pages>
<identity impersonate="true"/>
<authentication mode="Forms">
<forms loginUrl="default.aspx" protection="All" timeout="60" path="/"/>
</authentication>
<authorization>
<deny users="?" />
<!-- solo los usuarios autentificados -->
</authorization>
<customErrors mode="Off"/>
</system.web>
</configuration>
y el default.aspx.vb
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objAlumno As New Logeo()
objAlumno.usuario = Me.txtusuario.Text
objAlumno.clave = Me.txtclave.Text
If objAlumno.Existe() Then
Response.Redirect("menu.aspx")
Else
lblmensaje.Text = "El Usuario O Clave no Existe"
End If
End Sub
End Class
y la clase
Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Public Class Logeo
Private txtusuario As String
Private txtclave As String
Public Property usuario() As String
Get
Return Me.txtusuario
End Get
Set(ByVal value As String)
Me.txtusuario = value
End Set
End Property
Public Property clave() As String
Get
Return Me.txtclave
End Get
Set(ByVal value As String)
Me.txtclave = value
End Set
End Property
'Public Sub New(ByVal usuario As String, ByVal clave As String)
' Me.txtusuario = usuario
' Me.txtclave = clave
' End Sub
Public Function Existe() As Boolean
Dim blnExiste As Boolean
Dim objConexion As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
Dim objComando As SqlCommand = New SqlCommand("login", objConexion)
objConexion.Open()
objComando.Connection = objConexion
objComando.CommandType = CommandType.StoredProcedure
'ExecuteScalar de vuelve una fila y una columna
objComando.Parameters.AddWithValue("@usuario", Me.txtusuario)
objComando.Parameters.AddWithValue("@clave", Me.txtclave)
blnExiste = objComando.ExecuteScalar() > 0
objConexion.Close()
Return blnExiste
End Function
End Class