Como faço para Migrado do asp pra aspnet

eduardo alberto · Março 18, 2008

Olá a todos estou migrando um codigo asp para aspnet, mais o que acontece esse codigo eu codigo de login e senha ele pega o login e a senha e verifica se o mesmo tem permisões ai direciona para uma outra pagina para ver se esse tem permissões. Mostrarei o codigo

Essa ea tela te login

<html>
<% Response.buffer = true
on error resume next
'Este codigo tem por objetivo receber os valores enviados por ele mesmo
'e validar as informacoes no controle de acesso
'no final tem um javascript que analisa a variavel msacesso
'redirecionando o formulario para login_proc.asp
if request.item("AnalisaSenha") = "1" then
	   
   Dim x
   Dim cd_Pessoa,msLogin,msSenha,msAcesso

   msAcesso = false
   msLogin = UCase(request.item("txtLogin"))
   msSenha = request.item("txtSenha")
   set x = createObject("CAS.AccessControl")
   cd_Pessoa = x.UserEmail (msLogin, msSenha, Clng(12))
   if err.number = 0 then
		if cd_Pessoa <> "" then
		   msAcesso = true
		   msLogin = x.useraccess (cd_pessoa)
		   if err.number <> 0 and msLogin <> "CADDIG" then
			   Session("msgerro") = err.description
			   Response.Redirect("msg.asp")
		   end if
		end if
   end if	 
end if

%>

<head>
	<title>indicadores de desempenho</title>
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<link rel="stylesheet" href="/natura.css">
	<script LANGUAGE="JavaScript">
	  function submitLogin(form) {
		if(form.txtLogin.value == "")
		{
		  alert("Digite um usuário.");
		  form.txtLogin.focus();
		  return;
		}
		if(form.txtSenha.value == "")
		{
		  alert("Digite uma senha.");
		  form.txtSenha.focus();
		  return;
		}
		form.AnalisaSenha.value='1';
		form.submit();
	  }

	  function init(form) {
		form.txtLogin.value = "";
		form.txtSenha.value = "";
		form.txtLogin.focus();
	  }
	function Enter(e)
	{
		if (e.keyCode == 13) Send();
	}

	function Send()
	   {
		 if (document.form.No_login.value.length == 0 || document.form.Senha.value.length == 0)
		{
		  alert("Necessário informar Login e Senha !")		 
		}

		 else
		{
		 document.form.AnalisaSenha.value='1';
		 document.form.submit();
		}
	   }

	</SCRIPT>
	<script LANGUAGE='JavaScript1.2' SRC='/hierMenus.js'></SCRIPT>
</head>
<body bgcolor="white" ONLOAD="init(document.forms['form']);startIt()">
	<table border="0" cellspacing="0" cellpadding="0" width="100%">
		<tr>	<td width="197" valign="top"> </td>
			<td background="/images/linha1.gif" valign="top" width="1">
			<img src=/images/dotbranco.gif height=235 width="1"> </td>
			<td valign="top">
				<table width="100%" border="0" cellspacing="0" cellpadding="0">
					<tr valign="top">
						<td width="176"> <IMG SRC="images/tl_estatistica_por_perfil.gif"
							WIDTH="129" HEIGHT="23"><br>
							<table width="525" border="0" cellspacing="0" cellpadding="2">
								<tr> <td width="56"> <p> </p></td>
									<td width="461" valign="top"> <P> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="848284">
									<BR>Esta aplicação permite aos colaboradores conferir os<FONT COLOR="267CB9">
									<B>indicadores de desempenho</B></FONT> dos diversos perfis existentes no sistema
									de <B><FONT COLOR="267CB9">estatística por perfil</FONT></B> permitindo assim
									o planejamento das mais diversas estratégias. </FONT> </P>
									<FORM name="form" method="post" action="login.asp">
									<TABLE WIDTH="100%" CELLPADDING="5" CELLSPACING="0">
										<TR>
											<TD WIDTH="50%"> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="848284">
											<B><FONT COLOR="267CB9">digite o seu e-mail</FONT></B><BR>
											<INPUT TYPE="text" NAME="txtLogin" SIZE="20" onKeyPress="Enter(event)"><BR>
											<B><FONT COLOR="267CB9">digite a sua senha</FONT></B></FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1"><FONT COLOR="848284"><BR>
											<INPUT TYPE="PASSWORD" NAME="txtSenha" SIZE="20"onKeyPress="Enter(event)"> </FONT> </FONT> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">
											<a href="BLOCKED SCRIPTsubmitLogin(document.forms['form']);" CLASS="azulsnc">[ok]</A>
											</FONT> </TD>
											<TD ALIGN="RIGHT"> <IMG SRC="images/img_colaboradora1.jpg" WIDTH="70" HEIGHT="70"> </TD>
											<TD ALIGN="RIGHT"> <IMG SRC="images/img_colaboradora2.jpg" WIDTH="70" HEIGHT="70"> </TD>
											<TD ALIGN="RIGHT"> <IMG SRC="images/img_colaboradora3.jpg" WIDTH="70" HEIGHT="70"> </TD>
										</TR>
									</TABLE>
									<DIV ALIGN="right"> <P> <FONT CLASS="cinza_texto_1" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="848284">
									<BR> </FONT> </P></DIV>
									<input type="hidden" name="AnalisaSenha">
					<input type="hidden" name="cd_pessoa" value="<%=cd_Pessoa%>">
					  <input type="hidden" name="userid" value="<%=msLogin%>">
									</FORM><P>  </P></td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</body>
<script language="JavaScript">
<%if request.item("AnalisaSenha") = "1" then
	 if msAcesso = false then
		response.write ("alert('Acesso negado');")
	 else
		response.write ("document.form.action='login_proc.asp'; document.form.submit();")
	 end if
  end if
%>
</script>
</html>

Depois de inserido os respectivos dados ele verifica a perimisões nessa outra pagina

Permisões

<!-- #include FILE="inc_geral.asp" -->
<%   
	Const COL_SIST = 0
	Const COL_PERM = 1
	Const COL_FUNC = 2

	Dim CodPessoa, UserId, msgerro
	Dim cas, Permissoes
	Dim i, j, aux
   
	CodPessoa = Request.item("cd_pessoa")
	Userid = Request.item("userid") & ""
   
	Session("user_CD_PESSOA") = CodPessoa
	Session("user_USERID") = UserId

	'Guarda todas as pemissões
	Set cas = Server.CreateObject("cas.AccessControl")
	cas.UserSystemPermission Session("user_USERID"), "EC", Permissoes
   
	Set cas = Nothing   
   
	'Gera uma STRING grande, com todas as pemissoes e funcoes separadas por
	'ponto-virgula, no seguinte formato:
	'
	';perm-func;perm-func;perm-func;...
	aux = ";"
	For i = 0 To UBound(Permissoes, 2)
		If Permissoes(COL_SISTEMA, i) = "EC" Then
			aux = aux & Trim(Permissoes(COL_PERM, i)) & "-" & Trim(Permissoes(COL_FUNC, i)) & ";"
		End If	   
	Next
	'Guarda a string de permissoes
	Session("user_PERM") = aux
   
	'Marca login como OK, para não validar novamente até
	'fechar o browser ou cair a sessão
	Session("loginok") = True

	'Variavel para uso em ambiente de Testes
	if Session("user_CD_PESSOA") = "4444" then
		Session("debugging") = True
	else
		Session("debugging") = false
	end if
   
	Response.Redirect("principal.asp")
%>

Essa tela que esta me dando mais dor de cabeça

Agora a minha pergunta como eu converto isso para aspnet?

Por favor você poderiam me ajudar

quintelab · Março 18, 2008

eduardo não sei se esta usando vb ou c#, mas se for vb é muito parecido com o asp, é melhor você tentar converter e postar qual é a sua dúvida específica, seu código é grande ninguém terá tempo de pegar pra converter inteiro, vai tentando e conforme surgir as dúvidas poste aqui.

Abraços...

Entrar

Arquivado

Como faço para Migrado do asp pra aspnet

Recommended Posts

eduardo alberto 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante