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