Ir para conteúdo

POWERED BY:

Arquivado

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

Elô

Págna configurada em asp

Por , em ASP Clássico

Recommended Posts

Elô    0

Elô
Postado

Boa noite!

 

Não estou conseguindo abrir uma nova página configurada em asp atráves desse código:

 

window.open("entrar.asp?optCor=<%=strCor%>&apelido=<%=strApelido%>&careta=<%=strCareta%>","chat","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,re

sizable=yes,WIDTH=800,HEIGHT=600");

 

 

O que está errado com ele?

 

Desde já agradeço a ajuda.

 

 

Eloisa Dias

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não vejo erro, mas isso é JS. Se você colocar um link com target=_blank ele abre corretamente uma janela?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elô    0

Elô
Postado

Oi Meninos!

 

Lucasbr, eu acho que não tem como eu usar o que você fez nesse caso... Veja se eu estou certa. Pq não tem link, eu uso botão. Vou explicar melhor:

 

É assim: o index.asp que é como se fosse um formulário , chama o le_nickname.asp, que é esse código que eu vou postar, e ele por sua vez verifica se está tudo certo e entra no entrar.asp.

 

Se eu usar o windows.open da forma que eu usei, ele nem entra no arquivo entrar. asp, ele volta para o index.asp.

 

window.open("entrar.asp?optCor=<%=strCor%>&apelido=<%=strApelido%>&careta=<%=strCareta%>","chat",& quot;toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,re

 

sizable=yes,WIDTH=800,HEIGHT=600");

 

 

Usando o location.href ele funciona, entrando direitinho no arquivo , porém eu não consigo configurar a página, como o barra de rolagem e outros

 

location.href = "entrar.asp?optCor=<%=strCor%>&apelido=<%=strApelido%>&careta=<%=strCareta%>";

 

Esses são meus dois códigos:

 

INDEX.ASP

 

<%

 

Select Case Request.Querystring("acao")

Case "semnick"

msg = "Você precisa digitar um apelido!"

Case "tamanhoerrado"

msg = "O apelido deve ter entre 3 e 21 caracteres!"

End Select

 

strCareta = Request.Querystring("careta")

 

If strCareta = "" Then

strCareta = "69"

end if

 

%>

 

<HTML>

<HEAD>

<TITLE>\\\\ ---- ADCALDAS.com ---- ////</TITLE>

<script LANGUAGE="VBScript">

Dim sl01_Nomes(20)

<%

Dim i

 

sl01_Usuarios = Application("sl01_Usuarios")

for i=0 to 19

if sl01_usuarios(i) <> "" then

Response.write "sl01_Nomes(" & i & ") = " & chr(34) & sl01_Usuarios(i) & chr(34) & chr(13)

End if

Next

%>

 

</SCRIPT>

<link rel="stylesheet" href="main.css" type="text/css">

</HEAD>

<BODY BGCOLOR=#999999>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="23%" height="7"><img src="logo.gif" width="130" height="58"></td>

<td width="77%" height="7">

<div align="center"><strong><font color="#990000" size="5" face="Verdana, Arial, Helvetica, sans-serif">www.ADCALDAS.com</font></strong></div>

</td>

</tr>

<tr>

<td colspan="2">

<div align="center"></div>

<!--#include file="saudacoes.asp"-->

</td>

</tr>

<tr>

<td colspan="2" height="202">

<form name="form1" action="le_nickname.asp" method=POST>

<table border=0 cellpadding=0 cellspacing=0 height=76 width="100%">

<tbody>

<tr>

<td height=22 bgcolor="#FFFFFF" colspan="2">

<p align=center><img align=left height=18

src="ind_nome.gif" width=142></p>

</td>

</tr>

<tr>

<td height=192 width="31%" valign="top"> <br>

<table width="75%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000">

<tr>

<td>

<table cellpadding=0 cellspacing=3 width="230">

<tbody>

<tr>

<td width="38" bgcolor="#CCCCCC" class="style_menu">Nome:

</td>

<td align=right colspan="2" bgcolor="#CCCCCC">

<p align=left>

<input name=apelido size=20 class="style_forms" value="<%=Request.Cookies("sc")("nome")%>">

</p>

</td>

</tr>

<tr>

<td width="38" bgcolor="#CCCCCC" class="style_menu">Cor

do nick: </td>

<td align=right width=76 bgcolor="#CCCCCC">

<div align="left">

<select name=optCor size=1 class="style_forms" >

<option value="Preto" selected>Preto</option>

<option value="Laranja">Laranja</option>

<option value="Azul">Azul</option>

<option value="Roxo">Roxo</option>

<option value="Verde">Verde</option>

<option value="Vermelho">Vermelho</option>

</select>

</div>

</td>

<td align=right width=102 bgcolor="#CCCCCC">

<div align="left">

<input type="image" border="0" name="imageField" src="bt_preto.gif" width="20" height="20">

<input type="hidden" name="careta" value="<%=strCareta%>">

</div>

</td>

</tr>

<tr>

<td colspan="2" bgcolor="#CCCCCC" class="style_menu">

<div align="center">Careta:<br>

<img src="caretas/<%=strCareta%>.gif"></div>

</td>

<td align=right width=102 bgcolor="#CCCCCC" class="style_menu">

<div align="center">

<input type="checkbox" name="salvar" value="sim"

<%

If Request.Cookies("sc")("salvar") = "sim" then

Response.Write "checked"

end if

%> > Salvar apelido</div>

</td>

</tr>

</tbody>

</table>

</td>

</tr>

</table>

<b><%=msg%></b><br>

<br>

<br>

<table width="100%" border="0" cellspacing="2" cellpadding="0">

<tr>

<td colspan="2" valign="top" height="9">

<div align="center"></div>

</td>

</tr>

<tr>

<td width="47%" valign="top">

<div align="center"></div>

</td>

<td valign="top" width="53%">

<div align="center"></div>

</td>

</tr>

</table>

</td>

<td height=192 width="69%">

<div align="center">

<!--#include file="caretas.asp" -->

</div>

</td>

</tr>

</tbody>

</table>

</form>

</td>

</tr>

<tr>

<td colspan="2" height="2" bgcolor="#FFFFFF">

<div align="right"><img src="ind_c.gif" width="14" height="14"></div>

</td>

</tr>

</table>

 

 

E esse é o arquivo le_nickname.asp

 

<%

 

Response.Buffer = True

strCor = Request.Form("optCor")

strApelido = Request.Form("apelido")

strSalvar = Request.Form("salvar")

strCareta = Request.Form("careta")

 

If strApelido = "" Then

Response.Redirect "index.asp?acao=semnick"

elseif len(strApelido) < 3 or len(strApelido) > 21 then

Response.Redirect "index.asp?acao=tamanhoerrado"

else

 

If strCareta = "69" then

strCareta = "nao"

end if

 

If strSalvar = "sim" then

Response.Cookies("sc")("nome") = strApelido

Response.Cookies("sc")("salvar") = "sim"

else

Response.Cookies("sc")("nome") = ""

Response.Cookies("sc")("salvar") = "nao"

end if

 

%>

<HTML>

<HEAD>

<TITLE>\\\\ ---- ADCALDAS.com ---- ////</TITLE>

<script language=javascript>

function abreChat(){

history.go(-1)

window.open("entrar.asp?optCor=<%=strCor%>&apelido=<%=strApelido%>&careta=<%=strCareta%>","chat","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,re

sizable=yes,WIDTH=800,HEIGHT=600");

 

}

 

</script>

</HEAD>

<BODY BGCOLOR=#999999 onLoad="abreChat();">

<font face="arial" color="#CCCCFF" size="2"><b><font color="#FFFFFF">Carregando...</font></b></font>

</BODY>

</HTML>

<% end if %>

 

 

 

Desde já agradeço,

 

Eloisa

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