Converter página.asp para página.aspx
23/08/2012
0
Olá Amigos
Tenho uma página em asp que é utilizada para verificação de usuários registrados.
Quando o usuário roda meu aplicativo no computador dele, meu aplicativo verifica através dessa página, no banco de dados se o mesmo é registrado e 'otras cositas mas'.
Bem, tentei utilizar essa página junto com outras páginas aspx e embora ela seja independente dessa outras,não 'funfou', então preciso de convertê-la para aspx.
Só que nessas linguagem ainda estou engatinhando, não tenho nenhum "skil" para fazer essa proeza e então venho pedir ajuda a vocês, que tenho certeza, farão isso de olhos fechados.
Estou aprendendo sobre asp.net, mas como sabem leva tempo e tenho uma certa urgência desse código para poder colocar minha aplicação na internet.
Abaixo, deixo o código em asp, se puderem ajudar, agradeço imensamente !!
Tenho uma página em asp que é utilizada para verificação de usuários registrados.
Quando o usuário roda meu aplicativo no computador dele, meu aplicativo verifica através dessa página, no banco de dados se o mesmo é registrado e 'otras cositas mas'.
Bem, tentei utilizar essa página junto com outras páginas aspx e embora ela seja independente dessa outras,não 'funfou', então preciso de convertê-la para aspx.
Só que nessas linguagem ainda estou engatinhando, não tenho nenhum "skil" para fazer essa proeza e então venho pedir ajuda a vocês, que tenho certeza, farão isso de olhos fechados.
Estou aprendendo sobre asp.net, mas como sabem leva tempo e tenho uma certa urgência desse código para poder colocar minha aplicação na internet.
Abaixo, deixo o código em asp, se puderem ajudar, agradeço imensamente !!
<%@ Language=VBScript%> <!-- #include file="adovbs.inc" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <% sub Cripto Dim Id Dim n(3) Dim j Id = session("info_chave") For j = 1 To 8 If Not (j = 1 Or j = 3) Then n(0) = n(0) & Mid(Id, j, 1) End If Next Id = n(0) n(0) = Cint(Left(Id, 1)) + Cint(Mid(Id, 2, 1)) n(1) = Abs(Cint(Mid(Id, 3, 1)) - Cint(Mid(Id, 4, 1))) n(2) = CInt(Mid(Id, 5, 1)) * CInt(Mid(Id, 6, 1)) Id = CLng(n(0) & n(1) & n(2)) * 76543 Id = Left(Id, 1) & Mid(Id, 3, Len(Id) - 2) n(0) = CInt(Left(Id, 1)) + CInt(Mid(Id, 2, 1)) n(1) = Abs(CInt(Mid(Id, 3, 1)) - CInt(Mid(Id, 4, 1))) n(2) = CInt(Mid(Id, 5, 1)) * CInt(Mid(Id, 6, 1)) Id = Mid(CLng(n(0) & n(1) & n(2)) * 76543, 1, 8) session("info_rg") = id End sub '======================================================================================================= sub enviaremail Dim Mailer 'on error resume next Set Mailer = Server.CreateObject("SMTxxx.Mailer") with Mailer .CustomCharSet = "ISO-8859-1" .RemoteHost = "xxx" .FromName = "Site Meu Site" .FromAddress = "kielsoftwares@gmail.com" .AddRecipient "Suporte" , "kielsoftwares@gmail.com" .Subject = "REGISTRANDO O APLICATIVO" .BodyText = session("info_email") & vbCRLF & vbCRLF & session("info_saida") .SendMail end with set Mailer = nothing end sub '======================================================================================================== Sub ProcessaPagina dim rs dim mysql 'on error resume next session("info_trava") = request.queryString("trava") if session("info_trava") <> "ua" then response.redirect "../Default.htm" Response.Write (" Conexão falhando") exit sub end if if session("info_comer") = 0 then mysql = "SELECT * FROM tblRegistros WHERE email = '" & request.queryString("em") & "' and Clng(datanascimento) = " & request.queryString("dt") & ";" else mysql = "SELECT * FROM tblRegistros WHERE chavecom = " & Clng(request.queryString("chave_comercial")) & ";" end if call abre_conexao_rw set rs = CreateObject("ADODB.Recordset") set rs.activeconnection = conexaorw 'rs.CursorType = adOpenDynamic 'rs.LockType = adLockOptimistic 'rs.open mysql,,,adCmdtext rs.open mysql,conexaorw,1,2 Response.Write (" Conexão ok") 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx if NOT rs.EOF then if session("info_comer") = 0 then if rs.fields("bloqueado")=-1 then valor_registro= 2 'BLOQUEADO session("info_saida")="Usuário bloqueado." rs.close set rs = nothing else if Clng(date)- rs.fields("dataAno") >= 365 then rs.fields("dataAno")= Clng(date) rs.fields("totalAno")=1 rs.Update else if rs.fields("totalAno") >= (8 * rs.fields("nLicenca")) then rs.close set rs = nothing call fecha_conexao_rw valor_registro= 3 'MAIS DE 8 REGISTRO EM MENOS DE 1 ANO session("info_email")= request.queryString("em") session("info_saida")="Mais de 8 registros em menos de um 1 ano." 'call enviaremail session.abandon exit sub end if end if valor_tempo = Clng(date)- rs.fields("dataquinzena") if Clng(date)- rs.fields("dataquinzena") > 14 then rs.fields("dataquinzena")= Clng(date) rs.fields("totalquinzena")= 1 rs.fields("totalquinzena")= rs.fields("totalquinzena") + 1 rs.Update rs.close set rs = nothing call cripto valor_registro = session("info_rg") session("info_saida")= session("info_rg") session("info_nome") = (rs.fields("Nome")) 'XXXXXXXXXXXXXXXXXXXXXXXXXX else if rs.fields("totalquinzena") >= (2 * rs.fields("nLicenca")) then valor_registro= 4 'MAIS DE 2 REGISTROS EM MENOS DE 15 DIAS session("info_saida")="Mais de 2 registros em menos de 15 dias." else rs.fields("totalquinzena")= rs.fields("totalquinzena") + 1 rs.fields("totalAno")= rs.fields("totalAno") + 1 rs.Update session("info_chave")= request.queryString("chave") call cripto valor_registro = session("info_rg") session("info_saida")= session("info_rg") session("info_nome") = (rs.fields("Nome")) 'XXXXXXXXXXXXXXXXXXXXXXXXXX end if rs.close set rs = nothing end if end if else 'se for comercial if rs.fields("bloqueado")=-1 then valor_registro= 2 'BLOQUEADO session("info_saida")="Usuário bloqueado." rs.close set rs = nothing else call cripto valor_registro = session("info_rg") session("info_saida")= session("info_rg") session("info_nome") = (rs.fields("Nome")) 'XXXXXXXXXXXXXXXXXXXXXXXXXX end if end if else rs.close set rs = nothing valor_registro= 1 'USUARIO INVÁLIDO session("info_saida")="Login Inválido." end if if session("info_comer") = 0 then session("info_email")= request.queryString("em") else session("info_email")= request.queryString("chavecom") end if 'call enviaremail call fecha_conexao_rw session.abandon end sub '------------------------------------------------------------------------------------------------------ dim valor_registro dim valor_tempo session("info_comer") = request.queryString("com") session("info_chave") = request.queryString("chave") ProcessaPagina '------------------------------------------------------------------------------------------------------ dim conexaorw sub abre_conexao_rw set conexaorw = server.createObject("ADODB.connection") 'conexaorw.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("data/registroweb.mdb") & ";" 'conexaorw.Open ="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=BALEM\SQLEXPRESS;Initial File Name=D:\MeuProjeto\RegistrosUsuariosWeb\RegistrosUsuariosWeb\RegistrosUsuariosWeb\App_Data\RegistroWebSql.mdf;UserId=e;Password=31" conexaorw.Open ="Provider=SQLOLEDB.1;Password=31102000Ezqbl;Persist Security Info=True;User ID=Ezqbl_SQLLogin_1;Initial Catalog=Registros;Data Source=Registros.mssql.somee.com " end sub '-------------------------------------------------------------------------------------------------------- sub fecha_conexao_rw conexaorw.close set conexaorw = nothing end sub %> <html> <head> <title>Registro online</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta http-equiv="Content-Language" content="pt-br"> </head> <body> <form method="get" name="frmRegistro"> <p><input type="text" id="rg" name="registro" value="<%=valor_registro%>"></p> <p><input type="text" id="rg1" name="registro2" value="<%=request.queryString("em")%>"></p> <p><input type="text" id="rg2" name="registro3" value="<%=request.queryString("dt")%>"></p> <p><input type="text" id="rg3" name="registro4" value="<%=valor_tempo%>"></p> <p><input type="text" id="rg3" name="registro4" value="<%=request.queryString("chave")%>"></p> <p><input type="text" id="rg3" name="registro4" value="<%=request.queryString("chavecom")%>"></p> <p><input type="text" id="rg4" name="registro5" value="<%=session("info_nome")%>"></p> </form> </body> </html>
Kiel Balem
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)