Ir para conteúdo

POWERED BY:

Arquivado

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

diegokorvo

função em meu código

Por , em ASP Clássico

Recommended Posts

diegokorvo    0

diegokorvo
Postado

Estou com dificuldade de implementar uma função em meu código.

 

funciona assim:

O usuário entra direto no "canal de notícias" por um link na internet que seria, por exemplo("http://www.meusite.com.br/default.asp?opcao=noticias.asp"). Logo gravaria no bd que o usuário entrou no "canal de notícias" e depois fará que a variável "opcao" seja completada no final do código, abrindo o site normal, com o frame de cima e o frame de baixo direto no "canal de notícias".

o problema é o seguinte:

o usuário que entra em meu site pelo endereço normal, por exemplo, www.meusite.com.br/default.asp, não consegue seguir em frente, já que a variável "opcao" está vazia. Então, como faço para repassar para o código que a variável "opcao" está vazia e que ele deve receber o valor "portal.asp"?

 

abaixo o código

default.asp

ASP [/tr][tr]<%

Stropcao = replace(Request("opcao"),"'","''")

StrIP = replace(Request.ServerVariables("REMOTE_ADDR"),"'","''")

 

dbfile=Server.MapPath("acesso.mdb")

 

Set OBJdbConnection=Server.CreateObject("ADODB.Connection")

OBJdbConnection.Open "driver={Microsoft Access Driver

 

(*.mdb)};dbq="

&dbfile

 

sql_ins="INSERT into acesso (opcao, IP) VALUES " & _

"('" & Stropcao & "', '" & StrIP & "') "

 

OBJdbConnection.Execute(sql_ins)

%>

<%

Response.Write ("<html><head><title>teste</title></head>")

Response.Write ("<frameset rows='50,*' frameborder=no border=0>")

Response.Write ("<frame name=portal src=cima.asp scrolling=no noresize>")

Response.Write ("<frame name=conteudo src='" & Stropcao & "' scrolling=auto noresize></frameset></html>")

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

como faço para repassar para o código que a variável "opcao" está vazia e que ele deve receber o v....

Tenta assim:

 

ASP [/tr][tr]Stropcao = Request("opcao")

if(Stropcao = "")then

Stropcao = "portal.asp"

else

Stropcao = replace(Stropcao,"'","''")

End If

[/tr]

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