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>