Foros del Web » Programando para Internet » ASP Clásico »

Como sería esto en ASP?

Estas en el tema de Como sería esto en ASP? en el foro de ASP Clásico en Foros del Web. Hola que tal, tengo un par de codigos en PHP que me gustaria saber como seria en ASP, es decir transformar de PHP a ASP: ...
  #1 (permalink)  
Antiguo 29/04/2005, 13:08
 
Fecha de Ingreso: noviembre-2003
Mensajes: 798
Antigüedad: 20 años, 6 meses
Puntos: 8
Sonrisa Como sería esto en ASP?

Hola que tal, tengo un par de codigos en PHP que me gustaria saber como seria en ASP,
es decir transformar de PHP a ASP:

1.) si existe
Código PHP:
if (isset($_COOKIE["Acepta"])) {

echo 
"Existe cookie";}

else {echo 
"No existe cookie";} 

2.) Salto de Linea (Inserta saltos de linea HTML antes de cada salto de línea)
Código PHP:
$txt str_replace("\r\n"'<br />'$txt); 
o bien

Código PHP:
$txt nl2br($txt); 
3.) Formatear Número
Código PHP:
$precio=19800000
$precio_formato 
number_format($precio2",""."); 
Resultado 19.800.000,00

4.) for each as variable...
Código PHP:
foreach( $_GET as $variable => $valor ){ 
$_GET $variable ] = str_replace "'" "\'" $_GET $variable ]); 

5.) Evitamos que el usuario ingrese HTM
Código PHP:
$mensaje htmlentities($mensaje); 
6.) Evitamos que el usuario ingrese comilla simple
Código PHP:
$_COOKIE $variable ] = addslashes($_COOKIE $variable ]); 
7.) Esta función es útil para evitar que el texo entrado por el usuario contenga marcas HTML, como ocurre en aplicaciones de foros o libros de visita.
Código PHP:
$txt htmlspecialchars ($txt); 



gracias

SALU2
  #2 (permalink)  
Antiguo 29/04/2005, 13:23
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
HOLA, no c mucho de PHP pero con lo que pusiste en cada uno de los puntos, te puedo ayudar en unos cuantos...

1.

Código:
function NewCookie(nombre, duracion, valores)
	response.Cookies(nombre) = valores
	response.cookies(nombre).expires = date() + duracion
end function

function GetCookie(nombre)
	cookie = request.Cookies(nombre)
	if cookie <> "" then
		GetCookie = cookie
	else
		GetCookie = ""
	end if
end function

Function DeleteCookies(nombre)
	response.Cookies(nombre).expires = date() - 1
End Function

if GetCookie("nombre_del_cookie") <> "" then response.write("Existe el cookie") else response.write("no existe el cookie")

2.

Código:
texto = replace(texto, chr(13), "<br>")

o

texto = replace(texto, vbcrlf, "<br>")
depende....

3.

Código:
numero = 10000
numero = formatnumber(numero)
response.write(numero)
resultado: 10,000.00


6.

Código:
Function Apostrofe(strTexto, strAccion)
	if isnumeric(strAccion) = false then strAccion = 1
	if strTexto <> "" or isnull(strTexto) = false then
		if strAccion = 1 then
			strTexto = replace(strTexto, chr(34), """)		'"
			strTexto = replace(strTexto, "&quot;", """)		'"
			strTexto = replace(strTexto, chr(37), "%")		'%
			strTexto = replace(strTexto, "&amp;", "&")		'&
			strTexto = replace(strTexto, chr(39), "'")		''
		else
			strTexto = replace(strTexto, """, chr(34))		'"
			strTexto = replace(strTexto, "&quot;", chr(34))		'"
			strTexto = replace(strTexto, "%", chr(37))		'%
			strTexto = replace(strTexto, "&amp;", chr(38))		'&
			strTexto = replace(strTexto, "'", chr(39))		''
		end if
	else
		strTexto = ""
	end if
	
	Apostrofe = strTexto
End Function

texto = "texto's"
texto = Apostrofe(texto, 1)
response.wrirte(texto)
resultado: texto's


esto el explorer lo transforma automáticamente en comilla (') porque es el valor hexadecimal de la comilla.... asi que aqui no lo vas a poder ver, tendras que utilizarlo por ejemplo en una BD y ver el registro como queda afectado... al desplegarlo no es necesario hacerle nada,porque como te dije el explorer hace el trabajo de transofrmar de hexa a el valor orignal

con respecto a los puntos 5 y 7 yo los manejo con javascript y iframes.... si alguien conoce otra forma bienvendio sea...

BTW, puedes ir a www.w3schools.com y encontrar estas funciones con todas sus propiedades y mas

saludos
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.

Última edición por Saruman; 29/04/2005 a las 13:32
  #3 (permalink)  
Antiguo 29/04/2005, 13:59
 
Fecha de Ingreso: noviembre-2003
Mensajes: 798
Antigüedad: 20 años, 6 meses
Puntos: 8
Cita:
Iniciado por Saruman
HOLA, no c mucho de PHP pero con lo que pusiste en cada uno de los puntos, te puedo ayudar en unos cuantos...

1.

Código:
function NewCookie(nombre, duracion, valores)
	response.Cookies(nombre) = valores
	response.cookies(nombre).expires = date() + duracion
end function

function GetCookie(nombre)
	cookie = request.Cookies(nombre)
	if cookie <> "" then
		GetCookie = cookie
	else
		GetCookie = ""
	end if
end function

Function DeleteCookies(nombre)
	response.Cookies(nombre).expires = date() - 1
End Function

if GetCookie("nombre_del_cookie") <> "" then response.write("Existe el cookie") else response.write("no existe el cookie")
Gracias viejo en la 1º me referia al ISSET, que me remplaza el ISSET en ASP?,

If ISSET(variable)

Como seria esa sentencia (if isset(XXX) )en ASP?

salu2
  #4 (permalink)  
Antiguo 29/04/2005, 14:02
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
ups... ni idea viejo... apenitas estoy metiendome en el mundo PHP, primero queria dominar ASP y ya estoy cool en esto...

alguien puede ayudar a zsamer??

saludos
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #5 (permalink)  
Antiguo 29/04/2005, 14:07
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
5.) Evitamos que el usuario ingrese HTM
SinHTML = Server.HTMLEncode(Request.Form("mensaje"))

(En realidad, no evitamos que el usuario ingrese HTML sino que ese HTML ingresado se convierta en... no se como decirlo... o sea, un "<" en "& lt;" etc)


Ahhh.. y la 7 es idéntica a la 5.. ¿no?
__________________
...___...
  #6 (permalink)  
Antiguo 29/04/2005, 14:10
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
interesante....
yo lo hago con javascript utilizando innerText
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #7 (permalink)  
Antiguo 29/04/2005, 14:10
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Con lo de ISSET, "supongo" se podrá reemplazar por ésto:

If Trim(Request.Cookie("acepta")) <> ""
Response.Write "Existe cookie"
Else
Response.Write "No existe cookie"

El tema es que la cookie "acepta" en este caso puede existir pero con un valor vacñio o nulo
__________________
...___...
  #8 (permalink)  
Antiguo 29/04/2005, 14:13
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
ummm Al Zuwaga... eso mismo lo hice yo, solo que con funciones y zsamer me dijo que no era lo q pedia.....
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #9 (permalink)  
Antiguo 29/04/2005, 14:26
 
Fecha de Ingreso: noviembre-2003
Mensajes: 798
Antigüedad: 20 años, 6 meses
Puntos: 8
Gracias Saruman y Zuwaga, me quedo muy claro la 1,2,5,6,7 (5=7)

Faltaría la 3 y la 4, haber si alguien mas podría ayudarme con el formato de numero (3) y el for each as variable (4)

SALU2
zsamer
  #10 (permalink)  
Antiguo 29/04/2005, 14:31
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
precio=19800000
precio_formato = formatnumber(precio, 2)
precio_formato = replace(precio_formato, ",", ".")

respnse.write(precio_formato)

resultado: 19.800.000.00

nota. si lo quieres con las comas, solo quitale la linea de replace....
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #11 (permalink)  
Antiguo 29/04/2005, 15:06
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Mmm.. De la 4 no me queda del todo claro que es lo que está haciendo. ¿Podrías describir en castellano qué és lo que hace para traducirla?

Un for each en vbscript sería así:

for each elemento in LaColeciónDeElementos()
Response.Write LaColeciónDeElementos(elemento)
Next

Si ese foreach hace lo que me imagino, que es recoger los datos pasados por GET y hacerles un replace para escapar el caracter apóstrofe, se podría hacer así a modo de ejemplo:


for each parametro in request.queryString()
response.write replace("'", "\'", request.queryString(parametro)) & "<br>"
next
__________________
...___...
  #12 (permalink)  
Antiguo 29/04/2005, 15:10
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
Cita:
Iniciado por Al Zuwaga
Mmm.. De la 4 no me queda del todo claro que es lo que está haciendo. ¿Podrías describir en castellano qué és lo que hace para traducirla?
tienes toda la razon... yo tampoco la entendi muy bien, por eso no respondi, pero estoy de acuerdo con lo que planteas con respecto al for each...
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
  #13 (permalink)  
Antiguo 29/04/2005, 15:29
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Mmm... aunque pensándolo bien me gusta más esta opción para la 4 (si es que acerté en mi suposición anterior):

arr_variable = split(replace("lo que sea", "con lo que sea", request.querystring()), "&")

luego, manejás el array.
__________________
...___...
  #14 (permalink)  
Antiguo 29/04/2005, 16:19
 
Fecha de Ingreso: noviembre-2003
Mensajes: 798
Antigüedad: 20 años, 6 meses
Puntos: 8
Cita:
Iniciado por Al Zuwaga
Si ese foreach hace lo que me imagino, que es recoger los datos pasados por GET y hacerles un replace para escapar el caracter apóstrofe, se podría hacer así a modo de ejemplo:


for each parametro in request.queryString()
response.write replace("'", "\'", request.queryString(parametro)) & "<br>"
next
exactamente eso es, muchas gracias se pasaron ambos


salu2
  #15 (permalink)  
Antiguo 29/04/2005, 17:54
Avatar de Neuron_376  
Fecha de Ingreso: abril-2005
Mensajes: 1.051
Antigüedad: 19 años, 2 meses
Puntos: 2
Del isset

El isset lo que dice es esto.

Si esta variable ha sigo asignada/existe entonces....

Lo puedes cambiar por algo como ... SI CONTIENE DATOS

if (not IsEmpty(Var)) and (not IsNull(Var)) and (Len(Trim(Var)) > 0))
//Esta variable contiene datos
else
//Esta variable no contiene datos
end if

Es casi lo mismo que hace isset, pero en ASP no existe exactamente igual, es como Español e Ingles

Suerte!!
  #16 (permalink)  
Antiguo 29/04/2005, 18:28
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
De nada y gracias a Neurón, que explicó que demonios es ISSET!!!
__________________
...___...
  #17 (permalink)  
Antiguo 29/04/2005, 21:16
Avatar de Saruman  
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años
Puntos: 5
gracias a Dios se resolvio este tema...
saludos a todos
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:37.