Array
(
)

Converter página.asp para página.aspx

Balem
   - 23 ago 2012

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 !!
#Código
<%@ 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>