Ir para conteúdo

POWERED BY:

Arquivado

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

Lucas.Formariz

[Resolvido] Checagem banco mdb

Por , em ASP Clássico

Recommended Posts

Lucas.Formariz    0

Lucas.Formariz
Postado

Fala pessoal tudo bem?

 

Estou com um problema que acredito ser fácil, porém eu sou um 0 em ASP, mas sou bom em lógica de programação.

Peguei um projeto aqui para resolver alguns problemas e empaquei nisso.

Vamos lá.

 

Tenho um Arquivo de Banco de dados (MDB) estruturado da seguinte maneira:

• 2 Tabelas (uma com nome menu e a outra com nome projetos);

Colunas:

nb3atg.jpgsuzm7c.jpg

 

Tenho o arquivo head.asp que esta dando include no funcoes.asp.

 

FUNCOES.ASP

<%
local = true
url = split(Request.ServerVariables("URL"), "/")
pagina = url(ubound(url))
pasta = url(ubound(url)-1)
pg = lcase(url(ubound(url)))

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_bdados/bdados.mdb")

Function Re(campo)
lixo = array ( "select" , "declare" , "EXEC" , "nvarchar" , "drop" , "--" , "insert", "char(" , "delete" ,  "xp_", "'")
textoOK = Request(campo)
for i = 0 to uBound(lixo)
	textoOK = replace(textoOK, lixo(i), "")
next
Re = textoOK
End Function

Function mostraMensagem(pagina, mensagem)
if pagina <> "" then
	Response.Write("<script>alert('"&mensagem&"');window.location='"&pagina&"';</script>")
	response.End()
else
	Response.Write("<script>alert('"&mensagem&"');</script>")
end if
end function
%>

 

e

 

HEAD.ASP

<!--#include file="../_lib/funcoes.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head profile="http://gmpg.org/xfn/11">
<%
Set rsHead = objConn.execute("Select * from menu where link = '"&Re("tipo")&"'")
if NOT recordset.EOF then
titulo = rsHead("titulo")
else
Set rsHeadP = objConn.execute("Select * from projetos where link = '"&Re("tipo")&"'")
titulo = rsHeadP("titulo")
end if
%>

<title>Titulo da pagina | <%=titulo%></title>

<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="robots" content="index, follow" />

 

Como faço para fazer a verificação se a página está em menu ou em projetos e após isso pegar o titulo correto de cada página?

 

Agradeço se alguem conseguir me ajudar.

 

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você consegue ver atraves da stirng SQL...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lucas.Formariz    0

Lucas.Formariz
Postado

você consegue ver atraves da stirng SQL...

 

E como faço isso?

 

Coloquei o seguinte código no HEAD.ASP

 

<!--#include file="../_lib/funcoes.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head profile="http://gmpg.org/xfn/11">
<%

Set rsHead = objConn.execute("SELECT menu.link, menu.titulo, projetos.link, projetos.titulo FROM menu, projetos")
'Set rsHead = objConn.execute("SELECT link, titulo FROM menu")

if rsHead("menu.titulo") = pg then
titulo = rsHead("menu.titulo")
else
titulo = rsHead("projetos.titulo")
end if
%>

<title>Stilrevest | <%=titulo%></title>

 

Porém ele sempre retorna o valor da última linha do titulo na tabela projetos.

 

Alguem pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lucas.Formariz    0

Lucas.Formariz
Postado

Consegui pessoal.. mas não sei se é a melhor maneira...

 

Se alguem tiver algum comentário, é só dizer.. valeu.

 

HEAD.ASP

<!--#include file="../_lib/funcoes.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head profile="http://gmpg.org/xfn/11">
<%
if pg = "projetos.asp" then
if Re("tipo") = "" then
	Set rsHead = objConn.execute("Select * from projetos order by ordem")
else
	Set rsHead = objConn.execute("Select * from projetos where link = '"&Re("tipo")&"'")
end if
tituloPage = rsHead("titulo")
else
if pg = "pagina.asp" then
	if Re("sub") <> "" then
		Set rsHead = objConn.execute("Select * from menu where link = '"&Re("tipo")&"'")
		Set rsHSub = objConn.execute("Select * from menu where link = '"&Re("sub")&"' and pai = "&rsHead("id_menu")&"")
		tituloPage = rsHSub("menu")
	else
		Set rsHead = objConn.execute("Select * from menu where link = '"&Re("tipo")&"'")
		tituloPage = rsHead("menu")
	end if
else
	if pg = "contato.asp" then
		if Re("tipo") = "" then
			tipo = "contato/"
		else
			tipo = Re("tipo")
		end if
		Set rsHead = objConn.execute("Select * from menu where link = '"&tipo&"'")
		tituloPage = rsHead("menu")
		if Re("sub") <> "" then
			Set rsHSub = objConn.execute("Select * from menu where link = '"&Re("sub")&"' and pai = "&rsHead("id_menu")&"")
			tituloPage = rsHSub("menu")
		end if
	else
		Set rsHead = objConn.execute("Select * from menu where id_menu = 1")
		tituloPage = rsHead("menu")
	end if
end if
end if
Set tempHead = objConn.execute("Select * from menu where id_menu = 1")
descriptionPage = tempHead("descricao_head")
keywordsPage = tempHead("keywords_head")
%>

<title>Nome do Cliente | <%=tituloPage%></title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="robots" content="index, follow" /> 
<meta name="description" content="<%=descriptionPage%>" />
<meta name="keywords" content="<%=keywordsPage%>" />

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