Pessoal peguei esse codigo aqui e tenho que tranformar ele pra php, mas como não entendo nada de asp, gostaria que alguém pudesse me traduzir o que está acontecendo ali. ???
Abr.
<%@Language="VBScript"%>
<%
Option Explicit
Dim oRS, oConn, strSQL
Dim senha_db, senha_fla, nome_db, email_fla
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("loja_virtual.mdb")
email_fla = Request("email_input")
senha_fla = Request("senha_input")
strSQL = "SELECT * FROM usuarios WHERE email LIKE '" & email_fla & "'"
oRS.Open strSQL, oConn, 2, 3
If oRS.EOF Then
Response.Write "success=False&"
Else
Response.Write "success=True&"
Do While Not oRS.EOF
senha_db = oRS("senha")
If senha_db = senha_fla then
Response.Write "resultado=True&nome_db="
Else
Response.Write "resultado=False&nome_db="
End If
nome_db = oRS("nome")
oRS.MoveNext
Loop
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Write Server.URLEncode(nome_db)
%>
Pergunta
Jacksonrs
Pessoal peguei esse codigo aqui e tenho que tranformar ele pra php, mas como não entendo nada de asp, gostaria que alguém pudesse me traduzir o que está acontecendo ali. ???
Abr.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.