Ir para conteúdo

POWERED BY:

Arquivado

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

Cemillen

No Ie não funciona mas no firefox funciona (passando dados)

Por , em Algoritmos & Outras Tecnologias

Recommended Posts

Cemillen    0

Cemillen
Postado

Bom dia PessoALLComo minha primeira mensagem venho pedir ajuda para a comunidade.Tenho 1 form onde tenho 2 inputs [Login] e [senha]Quando é submetido o forumulário eu atribuo para ele 2 variáveis sessionHttpSession->LoginName := cUserNameHttpSession->IDLogin := cIdLoginestas 2 variáveis é que eu faço controle de quem está no sistema e o que ele pode acessar.Depois eu utilizo este comando.<script>void(window.open('U_JPBLOQUEIO.APW','','resizable=yes,scrollbars=yes,width=779,height=200'))</script>E se abre outra página, e é neste momento que estou com problemasNo Firefox estas 2 variáveis estão com conteudo que passei na página mãe.Já no Internet Explorer elas estão como Nil, ou seja nula Alguém poderia me ajudar ? preciso muito desta informação e agradeço desde já a atenção dada à este tópicoSem maisChristianAnalista de Sistemasmsn: cemillen@hotmail.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

Isso é o que? JavaScript? PHP? Webstandards e HTML é que não é... Ou seja, tá no local errado... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

Como assim ?eu trabalho html com javascript, não tem outra informação, pois isso postei aqui, e não em javascript, poismeu erro está na passagem de parâmetros e não na função de abrir a janela :/Mas se mesmo assim este post foi criado no lugar erróneo, teria como mover o post ?Agradeço desde jáChristian

Compartilhar este post

Link para o post
Compartilhar em outros sites

Juliano.net    2

Juliano.net
Postado

Christian, O que o Paulo está dizendo é que seu problema está nestas variáveis de sessão (session) e este é um recurso de linguagens server-side, não sendo o fórum apropriado.Seu site está em qual linguagem server-side?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

Christian, O que o Paulo está dizendo é que seu problema está nestas variáveis de sessão (session) e este é um recurso de linguagens server-side, não sendo o fórum apropriado.Seu site está em qual linguagem server-side?

Vamos por parteEu desenvolvia em ADV-PL que é 1 linguagem originaria do clipper 5.x e hj é pertecente a microsiga, e a microsiga disponibilizou 1 modulo web que você programa em html com javascript / asp como não sei nenhum dos 3, estou tentando muito e estou até agora conseguindo desenvolver neste mundo da web. Abaixo vou demonstrar 1 pouco do código onde possa ver neste endereço http://www.meusite.com.br:/pp/U_PRT001.APW?LoginReduz=.T.Este Código é feito em advpl onde ele gera as informações para a web em código HTML.
#Include "RwMake.Ch"/*Programa : PRT001   Autor : Christian Edward MillenData: 01/09/06Descrição: Login e Validação do SistemaUso: Portal*/User Function PRT001					  	Local y_JPProspect := .F.	Local y_JPCliente  := .F.	lIErro:= .F.	HttpSession->lIAbreTela:= .F.	HttpSession->Portal		:=	"JREPRE"		//## Carrega as Variaveis de Ambiente	HttpSession->CaminhoTela	:=	""			//## Caso Tenha os dados Efetua o Login	If HttpPost->Login <> Nil .And. HttpPost->Senha <> Nil	 						Private oMenu	:=	Nil			oMenu	:=	WSUSERPORTAL():New()			WsChgURL(@oMenu,"USERPORTAL.APW",,.F.)			oMenu:CUSERLOGIN	:= HttpPost->Login			oMenu:CUSERPASSWORD	:= HttpPost->Senha			If	oMenu:PRTLOGIN()							U_JPLogPortal("LOGIN", HttpPost->Login,oMenu:OWSPRTLOGINRESULT:CUSERCODE,"PRT001")									If len(oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT) == 0										cIHtml	:=	"<html>"					cIHtml	+=	"<Head>"					cIHtml	+=	"<title>:: < Jaepel > ::</title>"										cIHtml	+=	"</Head>"					cIHtml	+=	"<BODY>Erro: 001 </br> Representante não cadastrado!"					cIHtml	+=	"</BODY>"					cIHtml	+=	"</HTML>"					return (cIHtml)									endif												//### Se o Login está Ok, Inicia a Sessão do Usuário				HttpSession->UserCode	:=	oMenu:OWSPRTLOGINRESULT:CUSERCODE	//Cod User				HttpSession->SellerCode	:=	""									//Código Vendedor				HttpSession->Login		:=	HttpPost->Login						//Login				HttpSession->Senha		:=	HttpPost->Senha						//Senha								//###	Monta o Vetor de Emitentes que podem ser  Acessados								HttpSession->ListaEmitentes		:=	{}								//Emitentes Cadastrados								iLinhaEmit	:=	{}				aAdd(iLinhaEmit," ")				aAdd(iLinhaEmit," ") 				aAdd(iLinhaEmit," ")					aAdd(iLinhaEmit," ")	  				aAdd(iLinhaEmit," ")  				aAdd(iLinhaEmit," ") 				aAdd(iLinhaEmit," ")						  				// Independentemente do representante ter cliente ou prospect, eu forco a necessidade de selecao da unidade de negocios					aAdd(HttpSession->ListaEmitentes,iLinhaEmit)	  												HttpSession->Emitente			:=	oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[1]:CID_ENTIRY	//Emitente Ativo (Primeiro da Lista)				HttpSession->TipoEmitente		:=	oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[1]:CENTIRY		//Tipo do Emitente				HttpSession->IDEmit				:=	1				HttpSession->TpIDEmit			:=	"CN"								HttpSession->UserCad			:= HttpPost->Login				 	HttpSession->CodRepres			:= oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[1]:CID_ENTIRY			   				   	if len(oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT)<2										cIHtml := "<html>					cIHtml += "<head>							cIHtml += "<title>Jaepel - Portal</title>					cIHtml += "</head>								cIHtml += "<body>	   										cIHtml +=	"<script>void(window.open('U_JPBLOQUEIO.APW','','resizable=yes,scrollbars=yes,width=779,height=200'))</script>"					// Exibe uma mensagem para reiniciar o navegador.					cIHtml +=	RedirPage("U_JPCLEAR.APW")															// >> Log					U_JPLogPortal("ERRO-002", HttpPost->Login,oMenu:OWSPRTLOGINRESULT:CUSERCODE,"PRT001")					// <<										/*					cIHtml += "<h3 align='center'><strong>ERRO: 002 - O seu cadastro está bloqueado!</strong></h3>						cIHtml += "<h3 align='center'><strong>Contacte o departamento de Tecnologia da Informação para a ativação!</strong></h3>						cIHtml += "<p>   </p>					*/										cIHtml += "</body>					cIHtml += "</html> 					Return (cIHtml)							endif//adriana							   					If	AllTrim(oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[2]:CENTIRY) = "SA3"						HttpSession->SellerCode	:=	oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[2]:CID_ENTIRY					oSeller	:=	WSMTSELLERCUSTOMER():New()					WsChgURL(@oSeller,"MTSELLERCUSTOMER.APW",,.F.)   					oSeller:CUSERCODE		:=	HttpSession->UserCode					oSeller:CSELLERCODE		:=	HttpSession->SellerCode					oSeller:NPAGELEN		:=	0					oSeller:NPAGEFIRST		:=	0					oSeller:CNAMELIKE		:=	""					oSeller:CNICKNAMELIKE	:=	""					  oSeller:CQUERYADDWHERE	:=	"A1_VEND = '" + HttpSession->SellerCode + "'" 					oSeller:CINDEXKEY		:=	"A1_NOME, A1_NREDUZ"										if	oSeller:BRWCUSTOMER()												vITmpSeller	:=	{}//						U_JPLogPortal("ERRO-003", HttpSession->SellerCode,HttpSession->SellerCode,HttpSession->SellerCode)						For iSeller := 1 to len(oSeller:OWSBRWCUSTOMERRESULT:OWSGENERICVIEW2)							aAdd(vITmpSeller,oSeller:OWSBRWCUSTOMERRESULT:OWSGENERICVIEW2[iSeller]:CCODE+oSeller:OWSBRWCUSTOMERRESULT:OWSGENERICVIEW2[iSeller]:CUNIT)							y_JPCliente := .T.												Next iSeller						lEmitOk 	:= .F.												For iSeller:=1 to len(vITmpSeller)							oSeller:CUSERCODE	:=	HttpSession->UserCode														oSeller:CSELLERCODE	:=	HttpSession->SellerCode							oSeller:CCUSTOMERID	:=	vITmpSeller[iSeller]							IF	oSeller:GetCustomer()								If Empty(oSeller:OWSGETCUSTOMERRESULT:CFEDERALID)									Loop								EndIf								If ! lEmitOk									lEmitOk := .T.									HttpSession->Emitente			:=	oSeller:OWSGETCUSTOMERRESULT:CCUSTOMERCODE+oSeller:OWSGETCUSTOMERRESULT:CUNITCUSTOMERCODE	//Emitente Ativo (Primeiro da Lista)									HttpSession->TipoEmitente		:=	"SA3"		//Tipo do Emitente								EndIf																								iLinhaEmit	:=	{}  																			aAdd(iLinhaEmit,"SA3")										//1								aAdd(iLinhaEmit,oSeller:OWSGETCUSTOMERRESULT:CFEDERALID) 	//2								aAdd(iLinhaEmit,oSeller:OWSGETCUSTOMERRESULT:CCUSTOMERCODE+oSeller:OWSGETCUSTOMERRESULT:CUNITCUSTOMERCODE)	//3								aAdd(iLinhaEmit,oSeller:OWSGETCUSTOMERRESULT:CNAME)		  //4								aAdd(iLinhaEmit,oSeller:OWSGETCUSTOMERRESULT:CNICKNAME)	  //5								aAdd(iLinhaEmit,"") 										//6								aAdd(iLinhaEmit,"CN") 										//7								aAdd(HttpSession->ListaEmitentes,iLinhaEmit)															Else								msgstop(GetWscError())															EndIf						Next iSeller					Else						msgstop(GetWscError()) 												y_JPCliente := .F.					U_JPLogPortal("ERRO-004", HttpSession->SellerCode,HttpSession->SellerCode,HttpSession->SellerCode)					EndIf										/////$$$$$$$$$$$$$$$$$$$$$$$$$$$$					oProsp	:=	WSCRMPROSPECT():New()					WsChgURL(@oProsp,"CRMPROSPECT.APW",,.F.)   					oProsp:CUSERCODE		:=	HttpSession->UserCode					oProsp:CSELLERCODE		:=	HttpSession->SellerCode										oProsp:CQUERYADDWHERE	:=	"US_STATUS <> '6'  and US_MSBLQL=2" 	// Diferente de Cliente e não bloqueado.					oProsp:CINDEXKEY		:=	"US_COD"										If	oProsp:BRWPROSPECT()												y_JPProspect := .T.												For iPros:=1 to Len(oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW)							iLinhaEmit	:=	{}														aAdd(iLinhaEmit,"SA3") 		// Pra saber que e um representante.							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CFEDERALID) 	//2							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CPROSPECTCODE+oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CUNITPROSPECTCODE)	//3							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CNAME)		  //4							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CNICKNAME)	  //5							aAdd(iLinhaEmit,"") 										//6							aAdd(iLinhaEmit,"CP") 										//7							aAdd(HttpSession->ListaEmitentes,iLinhaEmit)						Next iPros					else						msgstop(GetWscError())						y_JPProspect := .F.											endif				/////$$$$$$$$$$$$$$$$$$$$$$$$$$$$								Else	   																																								HttpSession->VendNome	:=	""					HttpSession->VendCod	:=	""					HttpSession->VendNReduz	:=	""																			oProsp	:=	WSCRMPROSPECT():New()					WsChgURL(@oProsp,"CRMPROSPECT.APW",,.F.)   					oProsp:CUSERCODE		:=	HttpSession->UserCode					HttpSession->SellerCode	:=	oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[2]:CID_ENTIRY										oProsp:CSELLERCODE		:=	HttpSession->SellerCode					  									oProsp:CQUERYADDWHERE	:=	"US_STATUS <> '6'  and US_MSBLQL=2" 	// Diferente de Cliente e não bloqueado.																					oProsp:CINDEXKEY		:=	"US_COD"										If	oProsp:BRWPROSPECT()						For iPros:=1 to Len(oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW)													iLinhaEmit	:=	{}													aAdd(iLinhaEmit,"SA3") 		// Pra saber que e um representante.							//aAdd(iLinhaEmit,"SUS") 							//aAdd(iLinhaEmit,"")															//1							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CFEDERALID) 	//2							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CPROSPECTCODE+oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CUNITPROSPECTCODE)	//3							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CNAME)		  //4							aAdd(iLinhaEmit,oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW[iPros]:CNICKNAME)	  //5							aAdd(iLinhaEmit,"") 										//6							aAdd(iLinhaEmit,"CP") 										//7							aAdd(HttpSession->ListaEmitentes,iLinhaEmit)						Next iPros					else						msgstop(GetWscError())					endif								if Len(oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW)<1						HttpSession->Portal		:=	"JPINI"	// Ou JPINI2 ???			   													EndIF										if Len(oProsp:OWSBRWPROSPECTRESULT:OWSPROSPECTVIEW)<1											For iEmit	:=	1 To Len(oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT)																			iLinhaEmit	:=	{}														aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CENTIRY)	//1							aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CFEDERALID) //2							aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CID_ENTIRY) //3							aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CNAME)	  //4							aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CNICKNAME)  //5							aAdd(iLinhaEmit,oMenu:OWSPRTLOGINRESULT:OWSUSERENTIRIES:OWSLOGINENTIRYSTRUCT[iEmit]:CSKIN)	  //6							aAdd(iLinhaEmit,"CN") 																			//7							aAdd(HttpSession->ListaEmitentes,iLinhaEmit)	  						Next iEmit   					endif								   	EndIf							  			//### Redireciona para a Página Principal				HttpSession->lIAbreTela	:= .T.			Else				lIErro:= .T.//				Return(GetWscError())			EndIf	EndIf				  		IF HttpSession->UserCode == "000005"		HttpSession->Portal := "JPFIN" // "JPTI"	  // Ou JPINI	ELSEIF HttpSession->UserCode == "000025"						HttpSession->Portal		:=	"JPFIN"		ELSE			HttpSession->Portal := "JPINI2"	  // Ou JPINI	ENDIF	 //## Início do Portal Aki//### Tela de Login	Private oMenu	:=	Nil	If HttpGet->LoginReduz = Nil 		If HttpSession->lIAbreTela					cIHtml	:=	RedirPage("U_PRT002.APW")			Return(cIHtml)		EndIf		cIHtml	:=	"<html>"		cIHtml	+=	"<Head>"			cIHtml	+=	"<title>:: < Jaepel > ::</title>"			cIHtml	+=	'<link href="jaepel/estilo.css" rel="stylesheet" type="text/css">'			cIHtml	+=	""			cIHtml	+=	""		cIHtml	+=	"</Head>"			cIHtml	+=	"<Body> "				cIHtml	+=	"<Form Action='U_PRT001.APW' Method='Post'> "					cIHtml	+=	"<Table Border='0' CellPading='0' CellSpacing='0' Width='700'> "						cIHtml	+=	"<Tr> "							cIHtml	+=	"<td ColSpan='30'><Img Src='jaepel/topo_logo.jpg'><Img Src='jaepel/topo_fim.jpg'></td>"						cIHtml	+=	"</Tr> "												//### Monta o Login						cIHtml	+=	"<Tr class='linkmenu'> "							cIHtml	+=	"<Td><br><br><br><br></Td>"						cIHtml	+=	"</Tr> "						cIHtml	+=	"<Tr class='linkmenu'> "							cIHtml	+=	"<Td Align='center'></Td>"							cIHtml	+=	"<Td Width='25%' Align='center' BackGround='jaepel/fdpx.jpg'>Login</td>"							cIHtml	+=	"<Td Width='25%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Name='Login' Type='text' Value='' Class='text'><br></Td>"							cIHtml	+=	"<Td Align='center'></Td>"						cIHtml	+=	"</Tr> "						cIHtml	+=	"<Tr class='linkmenu'> "							cIHtml	+=	"<Td Align='center'></Td>"							cIHtml	+=	"<Td Width='25%' Align='center' BackGround='jaepel/fdpx.jpg'>Senha</td>"							cIHtml	+=	"<Td Width='25%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Name='Senha' Type='password' Value='' Class='text'><br></Td>"							cIHtml	+=	"<Td Align='center'></Td>"						cIHtml	+=	"</Tr> "						cIHtml	+=	"<Tr class='linkmenu'> "							cIHtml	+=	"<Td Align='center'></Td>"							cIHtml	+=	"<Td ColSpan='2' Width='50%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Type='Submit' Value='Entrar' Class='botao'><br></Td>"							cIHtml	+=	"<Td Align='center'></Td>"						cIHtml	+=	"</Tr> "					cIHtml	+=	"</Table> "   									cIHtml	+=	"</Form> "			cIHtml	+=	"</Body> "		cIHtml	+=	"</Html> "		Return(cIHtml)	Else		cIHtml	:=	"<html>"		cIHtml	+=	"<Head>"			cIHtml	+=	"<title>:: < Jaepel > ::</title>"			cIHtml	+=	'<link href="jaepel/estilo.css" rel="stylesheet" type="text/css">'		cIHtml	+=	"</Head>"			cIHtml	+=	"<Body> "				If HttpSession->lIAbreTela																																							// >>					//conout("Entrada 3")										// <<																				//cIHtml	+=	"<script>void(window.open('U_PRT002.APW','','resizable=yes,scrollbars=yes,width=779,height=600'))</script>"					// >> Eder 21/03/2007//					cIHtml	+=	"<script>void(window.open('U_PRT002.APW','','resizable=yes,scrollbars=yes,width=820,height=600'))</script>"					cIHtml	+=	"<script>void(window.open('U_PRT002.APW','','resizable=yes,scrollbars=yes,width=820,height=700'))</script>"					// << Eder 21/03/2007										// Exibe uma mensagem para reiniciar o navegador.					// cIHtml	+=	RedirPage("U_JPCLEAR.APW")										EndIf				cIHtml	+=	"<Form Action='U_PRT001.APW?LoginReduz=.T.' Method='Post'> "					cIHtml	+=	"<Table Width='100%' Border='0' CellPading='0' CellSpacing='0'> "						//### Monta o Login						cIHtml	+=	"<Tr class='titulo'> "							cIHtml	+=	"<Td Width='14%' Align='center' BackGround='jaepel/fdpx.jpg'></Td>							cIHtml	+=	"<Td Width='8%' Align='center' BackGround='jaepel/fdpx.jpg'><font Color='#ffffff'>Login</td>"							cIHtml	+=	"<Td Width='8%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Name='Login' Type='text' Value='' Class='text'><br></Td>"							cIHtml	+=	"<Td Width='8%' Align='center' BackGround='jaepel/fdpx.jpg'><font Color='#ffffff'>Senha</td>"							cIHtml	+=	"<Td Width='8%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Name='Senha' Type='password' Value='' Class='text'><br></Td>"							cIHtml	+=	"<Td Width='8%' Align='center' BackGround='jaepel/fdpx.jpg'><Input Type='Submit' Value='Entrar' Class='botao'></Td>"							cIHtml	+=	"<Td Width='100%' Align='center' BackGround='jaepel/fdpx.jpg'><font Color='#ffffff'>"							If lIErro = .T.								xOps	:=	Separa(GetWscError(),"]")								xOps	:=	Separa(xOps[1],"[")   																// cIHtml	+= xOps[2]								cIHtml	+=	"<---- Nome de Usuário incorreto ou Senha inválida ---->"		// xOps[2] 								// Log								U_JPLogPortal("FALHA", HttpPost->Login,"","PRT001")									// 																							EndIf							cIHtml	+=	"</Td>						cIHtml	+=	"</Tr> "					cIHtml	+=	"</Table> "				cIHtml	+=	"</Form> "			cIHtml	+=	"</Body> "		cIHtml	+=	"</Html> "		Return(cIHtml)	EndIfReturn

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

Christian,As variáveis criadas na SESSION são recuperadas no SERVER SIDE, o BROWSER que é utilizado pelo usuário não influência nesse aspecto, porém, a criação do HTML via ADV-PL pode ter utilizado algum elemento inadequado para o IE.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

Christian,As variáveis criadas na SESSION são recuperadas no SERVER SIDE, o BROWSER que é utilizado pelo usuário não influência nesse aspecto, porém, a criação do HTML via ADV-PL pode ter utilizado algum elemento inadequado para o IE.

vagner.net eu sou leigo mesmo sobre web, estou aprendendo agora, tudo que você viu no programa acima, foi de pura correria na net, estou me esforçando muito, contando com ajuda de muitos na net. Agradeço seu post.o que seria server side ? onde posso achar algo falando dele, pq, se eu entender o conceito, acredito que poderei solucionar meu problema.Sobre o browser, ele funciona no opera, netscape, firefox, mas não funciona no ie não sei pq mesmo, já vi algumas coisas funcionando no ie e não no firefox ou vice-versa, então deve ser alguma coisa deste género.Desde já, Agradeço a todos.Christian

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo de Tarso F. M.    24

Paulo de Tarso F. M.
Postado

o que seria server side ? onde posso achar algo falando dele, pq, se eu entender o conceito, acredito que poderei solucionar meu problema.

Bom... Tomando a palavra de nosso amigo vagner.net, server-side significa "lado servidor"... Interpretando isso temos que toda linguagem server-side é aquela linguagem que é interpretada e executada lá no servidor, onde o resultado do processamento dessas páginas construídas com estas linguagens são somente códigos HTML... Ou seja, você digita lá www.enderecodosite.com.br, vamos supor que foi construído com PHP (uma linguagem server-side), esse código PHP será processado lá no servidor onde a página www.enderecodosite.com.br está, e retorna para o usuário o resultado de tudo aquilo em HTML...

 

Exemplos de linguagens server-side: PHP, ASP, ColdFusion, JSP, entre outros... Linguagens client-side: HTML, JavaScript...

 

Compreendeu agora? Server-side: linguagens de programação que serão executadas pelo servidor, retornando algo em HTML. Client-side é a linguagem que o browser nos mostra ou, no caso do JavaScript, é a linguagem que interage com o browser, e não com o servidor...

 

O princípio é mais ou menos isso... Abraço!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

o que seria server side ? onde posso achar algo falando dele, pq, se eu entender o conceito, acredito que poderei solucionar meu problema.

Bom... Tomando a palavra de nosso amigo vagner.net, server-side significa "lado servidor"... Interpretando isso temos que toda linguagem server-side é aquela linguagem que é interpretada e executada lá no servidor, onde o resultado do processamento dessas páginas construídas com estas linguagens são somente códigos HTML... Ou seja, você digita lá www.enderecodosite.com.br, vamos supor que foi construído com PHP (uma linguagem server-side), esse código PHP será processado lá no servidor onde a página www.enderecodosite.com.br está, e retorna para o usuário o resultado de tudo aquilo em HTML...

 

Exemplos de linguagens server-side: PHP, ASP, ColdFusion, JSP, entre outros... Linguagens client-side: HTML, JavaScript...

 

Compreendeu agora? Server-side: linguagens de programação que serão executadas pelo servidor, retornando algo em HTML. Client-side é a linguagem que o browser nos mostra ou, no caso do JavaScript, é a linguagem que interage com o browser, e não com o servidor...

 

O princípio é mais ou menos isso... Abraço!

 

Opa Vlw a grande explicação. Obrigado mesmo

 

O que eu fico mais confuso, é que no firefox/netscape/opera funciona que é 1 beleza, mas no IE ele não reconhece isso :/

 

O IE não reconhece as variáveis salva na Session, então dá erro na abertura da página.

 

Tive 1 idéia aqui, mas ainda estou mocinho na arte de resolver, acho que se eu salvar este login em cookie com validade de 5 min. acho que resolve, pois, após ele (usuário) digitar a login/senha ele não demora muito pra abrir a outra página, e assim eu poderei pegar estas informações na outra página, e após estes minutos o cookie expira. Porém não conheço sobre isso e estou pesquisando aqui como poderei gravar e ler este cookie.

 

Se alguém puder me ajudar me explicando, agradeço desde já

 

Christian

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

REPETINDO... O seu ERRO não está na SESSION Christian, isso eu tenho certeza!!!Pq problemas com compatibilidade de navegador não interferem na SESSION do seu SERVER...Posta o ERRO que está dando no IE... talvez fique mais claro!!OK..!!?? T+...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

REPETINDO... O seu ERRO não está na SESSION Christian, isso eu tenho certeza!!!Pq problemas com compatibilidade de navegador não interferem na SESSION do seu SERVER...Posta o ERRO que está dando no IE... talvez fique mais claro!!OK..!!?? T+...

WSCERR063 / Argument error : Missing field USERPORTALCODE as string ADVPL WSDL Client 1.060117 / MP8.11 MSSQL Portal on 20070531 10:40:48 No programa Inicial eu declaro estas variáveis

Esta variável está no inicio do codigo que eu coloquei HttpSession->Portal := "JREPRE" //### Se o Login está Ok, Inicia a Sessão do Usuário HttpSession->UserCode := oMenu:OWSPRTLOGINRESULT:CUSERCODE //Cod User HttpSession->SellerCode := "" //Código Vendedor HttpSession->Login := HttpPost->Login //Login HttpSession->Senha := HttpPost->Senha //Senha

Estas informações são do programa que é chamado pela pagina inicialali está com Cuserportalcode pois o inicio da variável no webservice indica o que ela é C=character, N=numeric, D=data, L,logical e é onde a seta está que está dando o erro, depurei aqui o programa e ele traz as variáveis HttpSession->Portal e HttpSession->UserCode como NIL (nulas)

If HttpSession->MenuLoad = Nil .Or. Len(HttpSession->MenuLoad) = 0 HttpSession->MenuLoad := {} Private oMenu := Nil oMenu := WSUSERPORTAL():New() WsChgURL(@oMenu,"USERPORTAL.APW",,.f.)---> oMenu:CUSERPORTALCODE := HttpSession->Portal oMenu:CUSERCODE := HttpSession->UserCode //Cod User (Sessão) If oMenu:PRTLISTMENU()

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo de Tarso F. M.    24

Paulo de Tarso F. M.
Postado

Bom, como orientei o Cemillen, reforço aqui: para discutir este assunto, que não está relacionado às webstandards/css/html, utilize o fórum a seguir:

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Outras Linguagens de Programação

Ok galera? Por favor, utilizem este espaço citado já que ele é justamente próprio para abordar essas outras linguagens de programação menos utilizadas, como o caso do clipper (eu particularmente nunca ouvi falar... :mellow: )

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cemillen    0

Cemillen
Postado

Tópico movido

WS http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Outras Linguagens de Programação

Oi Cemillen

 

trabalhei com ADVPL Webex, então creio que posso te ajudar. Ainda está com o problema?

 

Bom dia, Obrigado por responder o tópico, ainda estou, mas tomei 1 rumo agora, estou tentando habilitar cookie no primeiro programa, passando os dados logo em seguida, com tempo de expiração de 1 min.

 

quando se abre a outra página no internet explorer ele não está levando algumas session, está dando Nil, e dá erro na abertura dá página.

 

 

creio que com cookie devo resolver este problema, o dificil é que tenho que passar 5 variáveis e não estou muito entendendo a funcionabilidade dos cookie para separar estas 5, sou novato na área de web.

 

 

Agradeço desde já.

 

 

Christian

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Algoritmos & Outras Tecnologias
×

Informação importante

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

  Aceito