como convertir codigo a ASP:NET

[acse]

Hola amigos


Como puedo pasar este codigo de visual basic a codigo de asp.net..

Código PHP:

  UTORIZABORRAR
Autoriza el borrar una partida
 
Sub Form_load
 
     Caption = "Autorización de cancelación"
     Controles("password").Passwordchar = "*"
     ParentObject.CancelaProceso = True
 
 
End Sub
 
 
Sub Button_Click
 
    Select Case ControlEvento.Tag
           Case "Aceptar"
                Autoriza
           Case "Cancelar"
                DescargaForma                 
                ParentObject.CancelaProceso = True
    End Select 
 
End Sub
 
 
Sub Autoriza
 
    Set rstUsuario = CreaRecordSet( _
    "SELECT supervisor,clave FROM usuarios WHERE usuario = '" & _
    Controles("usuario") & "'", Ambiente.Connection ) 
 
    if rstUsuario.EOF Then
       MsgBox "No existe el usuario", vbInformation
       Exit Sub
    end if
 
    if UCase(Trim(Decrypta(rstUsuario("clave"), 777))) <> _
       UCase(Controles("password")) Then
       MsgBox "Password incorrecto", vbInformation
       Exit Sub       
    end if                     
 
    if Val2(rstUsuario("supervisor"))  <> 1 Then
       MsgBox "No tiene privilegios para borrar una partida", vbInformation
       Exit Sub
    end if
 
    ParentObject.CancelaProceso = False    
    DescargaForma
 
End Sub 
   

[giovani_loera]

Un dato nomas ASP.Net puede ser tanto para c# q para VB, tu pregunta seria como convierto de VB a C#.

Te mando unos links de paginas que hacen la conversion de C# a VB y viceversa.


http://converter.telerik.com/

http://www.developerfusion.com/tools.../vb-to-python/

http://www.carlosag.net/Tools/CodeTranslator/

Saludos

[acse]

Atendiendo a lo que me preguntas mi idea es que el codigo de visual basic 6 pasarlo a asp.net, ya tegno parte de el codigo pero no me funciona el login,

Código PHP:

  Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
 
Partial Class Index
 
 
    Inherits System.Web.UI.Page
 
 
    Dim evento As String
    Dim newpassword As String
 
    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
 
 
        Dim usuario As Integer = 0
        Dim msg As String = "Usuario no encontrado en la base de datos."
 
        Dim conn As String = WebConfigurationManager.ConnectionStrings("MyBusiness").ConnectionString
        Dim sqlconectar As SqlConnection = New SqlConnection(conn)
        Dim comm As New SqlCommand("SELECT usuario,clave FROM usuarios WHERE usuario = @usuario ", sqlconectar)
 
        Try
 
            With comm
 
                .CommandType = CommandType.Text
 
                .Parameters.AddWithValue("usuario", Me.txtusuario.Text.Trim())
 
 
                .Parameters.AddWithValue("password", Me.txtpassword.Text.Trim(Decrypta(newpassword("clave"), (777))))
                MsgBox("no funciona nada")
            End With
 
            Using sqlconectar
                sqlconectar.Open()
 
                With comm
 
                    usuario = .ExecuteScalar()
                    .Parameters.Clear()
                    .Dispose()
 
                End With
 
                If usuario > 0 Then
                    Response.Redirect("www.google.com.mx")
 
                End If
 
            End Using
 
        Catch ex As SqlException
            'Controlar excepción SQL
        Catch ex As Exception
            'Controlar exception
        Finally
            If sqlconectar.State = ConnectionState.Open Then
                sqlconectar.Close()
                sqlconectar.Dispose()
            End If
 
        End Try
 
        Me.lblError.Text = msg
 
    End Sub
 
 
    Public Function Decrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String
        Dim nLargo As Long
        Dim n As Long
        Dim cCaracter As String
        Dim NewCadena As String
        Dim NewNumero As Long
 
        nLargo = Len(Trim(cTexto))
        NewCadena = ""
        NewNumero = (nLlave / 256) * 4
 
        For n = 1 To nLargo
            cCaracter = Chr(Asc(Mid(cTexto, n, 1)) - NewNumero)
            NewCadena = NewCadena & cCaracter
        Next
 
        Decrypta = NewCadena
 
    End Function
 
End Class