Como sería esto en ASP?

[zsamer]

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($precio, 2, ",", ".");  
   

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

[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")

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

[zsamer]

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

[Saruman]

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

[AlZuwaga]

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?

[Saruman]

interesante....
yo lo hago con javascript utilizando innerText

[AlZuwaga]

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

[Saruman]

ummm Al Zuwaga... eso mismo lo hice yo, solo que con funciones y zsamer me dijo que no era lo q pedia.....

[zsamer]

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

[Saruman]

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....

[AlZuwaga]

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

[Saruman]

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...

[AlZuwaga]

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.

[zsamer]

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

[Neuron_376]

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!!

[AlZuwaga]

De nada y gracias a Neurón, que explicó que demonios es ISSET!!!

[Saruman]

gracias a Dios se resolvio este tema...
saludos a todos