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 !!

<%@ 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

Kiel Balem

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar