Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fadweb

login com encriptacao md5

Por , em ASP Clássico

Recommended Posts

Fadweb    0

Fadweb
Postado

Ola a todos Alguém poderia me ajuda pois sou iniciante em programação em ASP e não estou conseguindo colocar para funcionar um sistema. Eu fiz um novo layout mas não estou conseguindo implementar o sistema de acesso a área restrita e administrativa.

ABAIXO VAI OS CODIGOS DO SISTEMA

PAGINA DO NOVO LAYOUT

CONSULTA.ASP

 

<!--  Inicio da area de login-->
<%Option Explicit
Response.Expires = 0
%>
<!--#include file="includes/sis_acesso.asp"-->
<!--#include file="includes/sis_str.asp"-->
<!--#include file="includes/sis_arquivo.asp"-->
<!--#include file="includes/sis_numero_invalido.asp"-->
<!--#include file="includes/functions.asp" -->
<% 
Dim strNivelDir,intNivelDirPagina
strNivelDir = ""
intNivelDirPagina = 0
call AbrirBD(intNivelDirPagina)
call FecharBD
%>
<%
dim Conexao, SQL, rs
dim sg_login, sg_senha
dim strSecao, strCaixaPreta
dim msg, boolOk
dim strNivelDirPagina, strNomeModulo
dim DataAtual
DataAtual = Date()
set rs = Server.CreateObject("ADODB.RecordSet")
call AbrirBD(intNivelDirPagina)
Randomize(Time())
msg = ""
sg_login  = Request.Form("edtUsuario")
sg_senha  = Request.Form("edtSenha")
strSecao  = Request.Form("strSecao")
strCaixaPreta  = Request.Form("strCaixaPreta")
boolOk = (Request.Form.Count <> 0)
if boolOk then
 msg = LoginCorreto(sg_login, strSecao, strCaixaPreta)
 if msg <> "" then
  Session("sg_login") = ""
  Session("Secao") = ""
  Session("Senha") = ""
  Session("cd_usuario") = ""
  Session("msg") = msg
  boolOk = false
 else
  'response.Write("CERTO!")
  'response.end()
 end if
end if
if boolOk then
 call FecharBD
 Response.Redirect(strNivelDir & "adm/main.asp")
else
 Session.Abandon()
end if
%>
<script language="JavaScript" type="text/JavaScript" src="<%=strNivelDir%>includes/md5.js">
</script>
<script language="javascript"><!--
function doOnLoad() {
 // Activate the appropriate input form field.
 if (document.formAutenticacao.edtUsuario.value == '') {
  document.formAutenticacao.edtUsuario.focus();
 } else {
  document.formAutenticacao.edtSenha.focus();
 }
}
function Criptografar() {
 var str = document.formAutenticacao.edtUsuario.value + ":" +
  MD5(document.formAutenticacao.edtSenha.value) + ":" +
  document.formAutenticacao.strSecao.value;
 document.formAutenticacao.strCaixaPreta.value = MD5(str);
 document.formAutenticacao.edtSenha.value = "";
 return true;
}
//--></script>
<!--  Fim da area de login -->
<html>
<head>
<script language="JavaScript" type="text/JavaScript">function mmLoadMenus() {
  if (window.mm_menu_0407140415_0) return;
  window.mm_menu_0407140415_0 = new Menu("root",107,18,"Arial, Helvetica, sans-serif",12,"#000000","#FF9966","#c1dfa3","#003399","left","middle",3,0,1000,-5,7,true,false,true,0,true,true);
  mm_menu_0407140415_0.addMenuItem("Quem Somos","location='quemsomos.htm'");
  mm_menu_0407140415_0.addMenuItem("Equipe","location='equipe.htm'");
  mm_menu_0407140415_0.addMenuItem("Diferenciais","location='diferenciais.htm'");
  mm_menu_0407140415_0.addMenuItem("Clientes","location='clientes.htm'");
   mm_menu_0407140415_0.hideOnMouseOut=true;
   mm_menu_0407140415_0.bgColor='#555555';
   mm_menu_0407140415_0.menuBorder=1;
   mm_menu_0407140415_0.menuLiteBgColor='#FFFFFF';
   mm_menu_0407140415_0.menuBorderBgColor='#777777';
	window.mm_menu_0407140729_0 = new Menu("root",89,18,"Arial, Helvetica, sans-serif",12,"#000000","#FF9966","#c1dfa3","#003399","left","middle",3,0,1000,-5,7,true,false,true,0,false,true);
  mm_menu_0407140729_0.addMenuItem("Quem Somos","location='quemsomos.htm'");
  mm_menu_0407140729_0.addMenuItem("Equipe","location='equipe.htm'");
  mm_menu_0407140729_0.addMenuItem("Diferenciais","location='diferenciais.htm'");
  mm_menu_0407140729_0.addMenuItem("Clientes","location='clientes.htm'");
   mm_menu_0407140729_0.hideOnMouseOut=true;
   mm_menu_0407140729_0.bgColor='#555555';
   mm_menu_0407140729_0.menuBorder=1;
   mm_menu_0407140729_0.menuLiteBgColor='#FFFFFF';
   mm_menu_0407140729_0.menuBorderBgColor='#777777';
mm_menu_0407140729_0.writeMenus();
} // mmLoadMenus()
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
<!--  Inicio da paginia-->
</script>
</head>
<body bgcolor="#ffffff">
<script language="JavaScript1.2">mmLoadMenus();</script>
<!--The following section is an HTML table which reassembles the sliced image in a browser.-->
<!--Copy the table section including the opening and closing table tags, and paste the data where-->
<!--you want the reassembled image to appear in the destination document. -->
<!--======================== BEGIN COPYING THE HTML HERE ==========================-->
<table border="0" cellpadding="0" cellspacing="0" width="985">
  <!-- fwtable fwsrc="login1.png" fwbase="login.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
  <tr> 
	<!-- Shim row, height 1. -->
	<td><img src="imagens/spacer.gif" width="88" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="95" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="155" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="109" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="32" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="47" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="100" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="138" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="100" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="53" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 1 -->
	<td rowspan="2" colspan="2"><img src="imagens/login_r1_c1.gif" alt="" name="login_r1_c1" width="183" height="136" border="0" usemap="#login_r1_c1Map"></td>
	<td colspan="11"><img name="login_r1_c3" src="imagens/login_r1_c3.gif" width="802" height="100" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="100" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 2 -->
	<td colspan="2"><img src="imagens/login_r2_c3.gif" alt="" name="login_r2_c3" width="177" height="36" border="0" usemap="#login_r2_c3Map"></td>
	<td><a href="#" onMouseOver="MM_showMenu(window.mm_menu_0407140729_0,15,34,null,'login_r2_c5')" onMouseOut="MM_startTimeout();"><img name="login_r2_c5" src="imagens/login_r2_c5.gif" width="109" height="36" border="0" alt=""></a></td>
	<td colspan="3"><a href="tributario.htm" onMouseOut="MM_startTimeout();"><img name="login_r2_c6" src="imagens/login_r2_c6.gif" width="113" height="36" border="0" alt=""></a></td>
	<td colspan="2"><a href="cartorario.htm"><img name="login_r2_c9" src="imagens/login_r2_c9.gif" width="112" height="36" border="0" alt=""></a></td>
	<td><a href="consulta.htm"><img name="login_r2_c11" src="imagens/login_r2_c11.gif" width="138" height="36" border="0" alt=""></a></td>
	<td colspan="2"><img src="imagens/login_r2_c12.gif" alt="" name="login_r2_c12" width="153" height="36" border="0" usemap="#login_r2_c12Map"></td>
	<td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 3 -->
	<td rowspan="2" colspan="13"><img name="login_r3_c1" src="imagens/login_r3_c1.gif" width="985" height="44" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="2" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 4 -->
	<td><img src="imagens/spacer.gif" width="1" height="42" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 5 -->
	<td colspan="6"><div id="Layer3" style="position:relative; width:496px; height:34px; z-index:2; left: 8px; top: 0px;"> 
		A CR - Consultoria de Resultados oferece aos seus clientes um sistema 
		on-line, protegido por senha e criptografia, onde é possível 
		acompanhar o andamento de suas ações passo a passo.</div></td>
	<td rowspan="5"><img name="login_r5_c7" src="imagens/login_r5_c7.gif" width="34" height="393" border="0" alt=""></td>
	<td rowspan="2" colspan="6"><div id="Layer4" style="position:relative; width:444px; height:82px; z-index:3; left: 2; visibility: hidden;"> 
		<p align="justify">Essa ferramenta é muito útil pois mantém 
		  o cliente sempre atualizado e auxilia na <strong>   </strong>tomada 
		  de decisões importantes. <br>
		  Entre em contato conosco e saiba mais sobre este e outros benefícios que 
		  a CR Consultoria de Resultados pode trazer à sua empresa.</p>
	  </div></td>
	<td><img src="imagens/spacer.gif" width="1" height="90" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 6 -->
	<td rowspan="5"> </td>
	<td colspan="2" rowspan="2" bgcolor="#174D8B">
	  <!--#include file="includes/header.asp" -->
	</td>
	<td rowspan="5" colspan="3"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 7 -->
	<td rowspan="4" colspan="2"> </td>
	<td colspan="3" rowspan="2" bgcolor="#174D8B"> <div id="Layer2" style="position:absolute; left:712px; top:298px; width:144px; height:139px; z-index:1"> 
		<table width="10" border="0" cellspacing="0" cellpadding="6">
		  <tr> 
			<td colspan="2"><div align="center"><font color="#FFFFFF"><strong>Cartorária</strong></font> 
			  </div></td>
		  </tr>
		  <tr> 
			<td><font color="#FFFFFF"><strong>Login:</strong></font></td>
			<td><input name="edtUsuario2" type="text" id="edtUsuario3" size="15" maxlength="12"></td>
		  </tr>
		  <tr> 
			<td><font color="#FFFFFF"><strong>Senha:</strong></font></td>
			<td><input name="edtSenha2" type="password" id="edtSenha2" size="10" maxlength="12"></td>
		  </tr>
		  <tr> 
			<td> </td>
			<td><div align="right"> 
				<input type="submit" name="Submit22" value="Entrar">
				<input name="strSecao2" type="hidden" value="11920">
				<input name="strCaixaPreta2" type="hidden">
			  </div></td>
		  </tr>
		</table>
	  </div></td>
	<td rowspan="4"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="149" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 8 -->
	<td rowspan="3" colspan="2"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 9 -->
	<td rowspan="2" colspan="3"> </td>
	<td><img src="imagens/spacer.gif" width="1" height="152" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 10 -->
	<td><img name="login_r10_c7" src="imagens/login_r10_c7.gif" width="34" height="1" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
	<!-- row 11 -->
	<td colspan="13"><img name="login_r11_c1" src="imagens/login_r11_c1.gif" width="985" height="26" border="0" alt=""></td>
	<td><img src="imagens/spacer.gif" width="1" height="26" border="0" alt=""></td>
  </tr>
  <!--   This table was automatically created with Macromedia Fireworks   -->
  <!--   [url="http://www.macromedia.com"]http://www.macromedia.com[/url]   -->
</table>
<!--========================= STOP COPYING THE HTML HERE =========================-->
<map name="login_r1_c1Map">
  <area shape="rect" coords="8,8,169,128" href="index.htm">
</map>
<map name="login_r2_c3Map">
  <area shape="rect" coords="89,4,163,30" href="index.htm">
</map>
<map name="login_r2_c12Map">
  <area shape="rect" coords="10,4,123,30" href="faleconosco.htm">
</map>
</body>
</html>
<%
call FecharBD
%>
________________________________________

 

SIS_ACESSO.ASP

 

<!--#include file="sis_md5.asp"-->
<%
redim arr_sg_nivel(0)
redim arr_cd_nivel(0)

Session.Timeout = 40

private function eAdministrador
 dim strSQL, sg_adm

 strSQL = "SELECT sg_administrador FROM ac_usuario WHERE sg_login=" & paraLiteralSQL(Session("sg_login_aut"))
 rs.Open strSQL, Conexao, 1, 3
 if rs.EOF then
  sg_adm = false
 else
  sg_adm = rs("sg_administrador")
 end if
 rs.Close
 eAdministrador = sg_adm
end function

function usuarioLogado
 dim strMsg
 if Session("sg_login_aut") <> "" and Session("sg_senha_aut") <> "" then
  strMsg = LoginCorreto(Session("sg_login_aut"), Session("cd_secao_aut"), Session("sg_senha_aut"))
  'response.Write("<br>r=" & strMsg)
  'response.End()
 else
  'response.Write("<br>u=" & Session("sg_login_aut"))
  'response.Write("<br>s=" & Session("sg_senha_aut"))
  strMsg = "Entre com seu login/senha."
  'response.End()
 end if
 usuarioLogado = strMsg
end function

private function LoginCorreto(sg_login, strSecao, strCaixaPreta)
 dim SQL, rsAutenticar, msg, sg_senha
 SQL = "SELECT cd_usuario, nm_usuario, sg_usuario_ativo, sg_senha FROM ac_usuario"
 SQL = SQL & " WHERE sg_login=" & paraLiteralSQL(sg_login)
 msg = ""
 set rsAutenticar = Conexao.Execute(SQL)
 if not rsAutenticar.eof then
  if rsAutenticar("sg_usuario_ativo")=false then
   msg = "Este usuário está inativo."
  else
   sg_senha = rsAutenticar("sg_senha")
   if md5(sg_login & ":" & md5(sg_senha) & ":" & strSecao) <> strCaixaPreta then
	'response.Write("<br>U=" & Session("sg_login_aut"))
	'response.Write("<br>S=" & Session("sg_senha_aut"))
	'response.Write("<br>N=" & strSecao)
	'Response.Write("<br>atua=" & md5(sg_login & ":" & md5(sg_senha) & ":" & strSecao))
	'Response.Write("<br>form=" & strCaixaPreta)
	msg = "A senha informada está incorreta"
   else
	Session("cd_usuario_aut") = rsAutenticar("cd_usuario")
	Session("cd_secao_aut") = strSecao
	Session("sg_senha_aut") = strCaixaPreta
	Session("sg_login_aut") = sg_login
   end if
  end if
 else
  msg = "Este usuário não existe."
 end if
 rsAutenticar.Close
 set rsAutenticar = nothing
 if msg <> "" then
  Session.Abandon
 end if
 LoginCorreto = msg
end function

private function ModuloSemAcesso(strSiglaModulo)
 ModuloSemAcesso = "Seu usuário não tem direito de acesso à este módulo."
end function
%>
________________________________________

 

 

SIS_STR.ASP

 

<%
private function paraLiteralSQL(s)
 dim s0

 s0 = s
 s0 = Replace(s0, "'", "''")
 s0 = "'" & s0 & "'"
 paraLiteralSQL = s0
end function

private function paraLogicoSQL(s)
 dim s0

 if (s) then s0 = "TRUE" else s0 = "FALSE"
 paraLogicoSQL = s0
end function

private function paraDataSQL(s)
 dim s0

 if IsDate(s) then
  s0 = paraLiteralSQL(StrZero(Day(dt), 2) & "/" & StrZero(Month(dt), 2) & "/" & StrZero(Year(dt), 4))
 else
  s0 = "NULL"
 end if
 paraLogicoSQL = s0
end function

private function paraLiteralHTM(s)
 dim s0

 if IsNull(s) then
  s0 = ""
 else
  s0 = s
  s0 = Replace(s0, "&", "&")
  s0 = Replace(s0, "<", "<")
  s0 = Replace(s0, ">", ">")
  s0 = Replace(s0, "  ", "  ")
  s0 = replace(s0, vbCrLf, "<br>")
 end if
 paraLiteralHTM = s0
end function

private function paraLiteralHTMEdicao(s)
 dim s0

 if IsNull(s) then
  s0 = ""
 else
  s0 = paraLiteralHTM(s)
  s0 = replace(s0, "<br>", vbCrLf)
 end if
 paraLiteralHTMEdicao = s0
end function

private function paraNumeralSQL(s)
 dim s0

 s0 = s
 if isNull(s0) then
  s0 = "NULL"
 else
  s0 = Replace(s0, ",", ".")
  if not IsNumeric(s0) or s0 = "" then
   s0 = "NULL"
  end if
 end if
 paraNumeralSQL = s0
end function

private function paraDataSQL(dt)
 if IsDate(dt) then
  paraDataSQL = "'" & year(dt) & "-" & month(dt) & "-" & day(dt) & " " &_
   hour(dt) & ":" & minute(dt) & ":" & second(dt) & "'"
 else
  paraDataSQL = "NULL"
 end if
end function

private function estaVazio(var)
 estaVazio = isNull(var) or isEmpty(var) or var = 0
end function

private function StrZero(str, dig)
 dim ret, qt
 ret = Trim(cstr(str))
 qt = cint(dig)
 'Response.Write("|qt=" & qt)
 'Response.Write("|len=" & Len(ret))
 while len(ret) < qt
  ret = "0" & ret
  qt = qt - 1
 wend
 StrZero = ret
end function
%>
________________________________________

 

 

SIS_ARQUIVO.ASP

 

<%
const vw_Usuario="SELECT cd_usuario,nm_usuario,sg_login,sg_senha,sg_administrador,sg_usuario_ativo,nm_emp
resa,cd_cnpj FROM ac_usuario"
const vw_UltimoUsuario="SELECT MAX(cd_usuario) AS cd_ultimo_usuario FROM ac_usuario"
const vw_AcaoUsuario="SELECT cd_acao,acao.cd_usuario,nm_acao,nm_assunto,nm_tributo,nm_local,nm_fase,cd_pasta,
dt_inicio,cd_processo,nm_julgado,nm_reu,ac_usuario.nm_usuario,ac_usuario.nm_empr
e
sa FROM acao INNER JOIN ac_usuario ON acao.cd_usuario=ac_usuario.cd_usuario"
const vw_AndamentoAcaoUsuario="SELECT cd_acao,cd_andamento,dt_andamento,ds_andamento FROM andamento_acao"
const vw_UltimaAcao="SELECT MAX(cd_acao) AS cd_ultima_acao FROM acao"

'Inserido : 07/05/2003 (programador : Fabio A. F.) - INICIO
const vw_Noticia="Select cd_noticia,nm_titulo,nm_subtitulo,dc_noticia,dt_data_noticia,nm_fonte,nm_autor FROM noticias"
const vw_UltimaNoticia="SELECT MAX(cd_noticia) AS cd_ultima_noticia FROM noticias"
'Inserido : 07/05/2003 (programador : Fabio A. F.) - FIM

dim strDiretorioAtual
strDiretorioAtual = ""

private function ExecutarSQL(SQL)
 call Conexao.Execute(SQL)
end function

private function AbrirBD(intNivel)
 dim strCaminhoBD, intTempNivelDir, intTempNivelDirMenu

 intTempNivelDir=intNivel
 intTempNivelDirMenu = intNivel+1
 strCaminhoBD = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
 strDiretorioAtual = Request.ServerVariables("SCRIPT_NAME")
 intTempNivelDir = intTempNivelDir + 2
 if (InStr(strCaminhoBD,"novo") > 0) then
  intTempNivelDir = intTempNivelDir + 1
  intTempNivelDirMenu = intTempNivelDirMenu + 1
 end if
 while intTempNivelDir > 0
  ' *** não considera o nível de diretório do banco de dados ***
  if intTempNivelDirMenu > 0 then
   strDiretorioAtual = Left(strDiretorioAtual, InStrRev(strDiretorioAtual, "/")-1)
  end if
  strCaminhoBD = Left(strCaminhoBD, InStrRev(strCaminhoBD,"\")-1)
  intTempNivelDir = intTempNivelDir - 1
  intTempNivelDirMenu = intTempNivelDirMenu - 1
 wend
 strCaminhoBD = strCaminhoBD & "\dados\bd.mdb"
 strDiretorioAtual = "http://" & Request.ServerVariables("HTTP_HOST") & strDiretorioAtual
	set conexao = Server.CreateObject("ADODB.Connection")
 on error resume next
 ' ** tenta a conexão OLEDB
 ' *
 conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
  "Data Source=" & strCaminhoBD
 if err.Number <> 0 then
  ' ** tenta a conexão ODBC
  ' *
	  conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _ 
		 "DBQ=" & strCaminhoBD & ";" & _
		 "PWD="
  if err.Number <> 0 then
   response.write "Caminho para o banco de dados: " & strCaminhoBD
   response.Write("<br>Diretório atual: " & strNivelDirPagina)
   response.Write("<br>Diretórios: " & intTempNivelDir)
   response.Write("<br>Código de erro: " & err.Number)
   response.Write("<br>Descrição do erro: " & err.Description)
   response.Write("<br>Página atual: " & Request.ServerVariables("SCRIPT_NAME"))
   response.Write("<br>Página anterior: " & Request.ServerVariables("HTTP_REFERER"))
   response.Write("<br>Help Context: " & err.helpcontext)
   response.Write("<br>Help Path: " & err.helppath)
   response.Write("<br>Native Error: " & err.nativeerror)
   response.Write("<br>Source: " & err.source)
   response.Write("<br>SQLState: " & err.sqlstate)
   dim objFSO
   set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   if objFSO.FileExists(strCaminhoBD) then
	Response.Write("<br>...o arquivo existe.")
   else
	Response.Write("<br>ARQUIVO NÃO ENCONTRADO!")
   end if
   set objFSO = nothing
   response.End()
  end if
 end if
 on error goto 0
end function
private function FecharBD
 Conexao.Close
 set Conexao = nothing
end function
%>
________________________________________

 

 

SIS_NIVEL_DIR.ASP

 

<%
' Calcula a quantidade de níveis de diretório que será preciso retornar para
' linkar corretamente as páginas e includes.
private function DeterminarNivelDiretorio
 dim intNivelTemp
 intNivelTemp = intNivelDirPagina
 strNivelDirPagina = Request.ServerVariables("PATH_INFO")
 strNivelDirPagina = Left(strNivelDirPagina, InStrRev(strNivelDirPagina, "/")-1)
 while intNivelTemp > 0
  strNivelDirPagina = Left(strNivelDirPagina, InStrRev(strNivelDirPagina, "/")-1)
  intNivelTemp = intNivelTemp - 1
 wend
 strNivelDirPagina = strNivelDirPagina & "/"
end function
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o problema? voce postou suas paginas e nao disse em qual é o problema

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito