Object Moved - Asp

8 04 2008

Otro problema con asp con solución encontrada aquí

SafeRedir “http://www.motobit.com”

Sub SafeRedir(ByVal URL)
  Response.Buffer = True
  Response.Status = “302 Object moved”
  Response.AddHeader “Location”, URL
  Response.Write “<HTML><Head>”
  Response.Write “<META HTTP-EQUIV=Refresh CONTENT=”“0;URL=” & URL & “”“>”
  Response.Write “<Script>window.location=‘” & URL & “‘;</Script>”
  Response.Write “</Head>”
‘  Response.Write “<Body> This page was moved <A href=”“” & URL & “”“>here</A>”
  Response.Write “</HTML>”
End Sub
Comments : No Comments »
Categories : ASP, Programación, Software

De número a Letras, Number to words, ASP

21 03 2008

Basado en http://www.forosdelweb.com/f15/funcion-para-convertir-numeros-letras-387197/

 

Modifico la función para que muestre también con palabras los decimales ;), y alguna optimización.

<%
response.Write number2word(1000.101)

output: mil con diez

function number2word(byval numero)’convierte un número a palabras
Dim decimales

number2word=oneNumberToWord(Cdbl(Int(numero)))’lo pasamos a palabras

decimales = (numero - Cdbl(Int(numero))) * 100′obtenemos si tenia decimales
If decimales <> 0 Then number2word = number2word & ” con ” & CStr(oneNumberToWord(Round(decimales))) ’si tiene decimales convertimos los decimales a palabras

end function Read the rest of this entry »

Comments : No Comments »
Categories : ASP, Internet, Software, Tecnologia

Obtener último día del mes - ASP

23 01 2008

Pues eso!! le pasas una fecha y te devuelve el último día del mes que puede tener esa fecha ;)

Function lastMonthDay(byval sDate)'obtiene el ultimo dia del mes
dim nextMonth
sDate = DateSerial(Year(sDate), Month(sDate), "01")
nextMonth = DateAdd("m", 1, SDate)
lastMonthDay = Day(DateAdd("d", -1, nextMonth))
End Function

Comments : No Comments »
Categories : ASP, Programación

Evita el SQL injection en ASP

16 01 2008

Esta función ya os la presenté anteriormente pero ayer me decidí a mejorarla basándome en este pdf

function limpia(text,encode)
dim banned,i
limpia=text
banned = array("""","'","&","--","select","insert","update","delete","drop")
for i = 0 to uBound(banned)
limpia = replace(limpia, banned(i),"")
next
if encode=true then
limpia=server.htmlencode(limpia)
end if
end function

Comments : No Comments »
Categories : ASP, Internet, Software, Tecnologia

Funciones para recoger datos ASP

15 01 2008

Bueno otro golpe de genialidad como el response.write, pero ahora con el request.querystring y el request.form, harto estaba de escribir esto!! así que monto estas dos chorras/funciones, que ademas me limpian lo que me hayan pasado ;)

function rf(s)'hace el request form
rf=limpia(request.form(s),false)
end function

function rq(s)'hace el request query
rq=limpia(request.QueryString(s),false)
end function

Comments : No Comments »
Categories : ASP, Programación, Software, Tecnologia

Meta keywords ASP

7 01 2008

El otro día expliqué como hacer el meta description de html con ASP (por cierto mejorado), el de keywords no lo he puesto aún por que lo estaba mejorando ;)

Lo ideal es pasar le un texto no demasiado largo, yo le paso el description, ya que el meta keyword, cuanto mas parezca al contenido de la web, mucho mejor ;)

function getKeywords(texto)'convierte un texto a keywords
dim i,banned
getKeywords=lcase(texto)'todo a minusuclas
getKeywords=quitarHtml(getKeywords)’quitamos el html
banned = array(”;”,”:”,”.”,” from “,” ante ” , ” bajo “,” cabe “,” contra “,” desde “,” entre “,” hacia “,” hasta “,” para “,” según “,” sobre “,” tras “,”,,”,” “)’palabras de mas de 3 caracteres que no queremos y los espacios los substituimos por comas
for i = 0 to uBound(banned)
getKeywords = replace(getKeywords, banned(i),”,”)’reemplazamos
next
getKeywords=delMenoresDe(3,getKeywords,”,”)’quitamos palabras menores de 3, esto es configurable
getKeywords=delDuplicados(getKeywords,”,”)’eliminamos las palabras duplicadas
end function

También necesitareis estas tres funciones, la primera elimina todas las palabras menores de X, la segunda las palabras duplicadas, y la tercera te dice si un elemento esta en un array Read the rest of this entry »

Comments : No Comments »
Categories : ASP, Internet, Programación, Software, Tecnologia

Meta description ASP

27 12 2007

El otro día ya os presente el limpiador de html…pues mas que nada era para hacer el meta description como dios manda ;)

function getDescriptionMeta(desc)'le pasas un texto y te lo formatea para la descripcion del meta
dim i,banned
getDescriptionMeta = left(desc,200)
getDescriptionMeta = limpia(getDescriptionMeta,false)
getDescriptionMeta = quitarHtml(getDescriptionMeta)
end function

Comments : 1 Comment »
Categories : ASP, Internet, Programación, Software, Tecnologia

Quitar etiquetas Html de un texto ASP

20 12 2007

Muy útil!

Imaginad tenéis un texto con multitud de etiquetas html…pero claro…no siempre deben de ser buenas para insertar y mantener una estructura de una web.

Pues con esto lo arreglamos :D


function quitarHtml(str)'con regex nos cargamos todos los tags html
quitarHtml=replaceExpresion(str,"","<[^>]*?>")
end function

function replaceExpresion(str,reem,pat)'hace un regExp
dim oER:set oER = New RegExp
oER.Pattern = pat
oER.IgnoreCase = True
oER.Global = True
replaceExpresion = oER.replace(str, reem)
set oER = nothing
end function

Comments : 1 Comment »
Categories : ASP, Internet, Programación, Software

La paradoja Python - ASP

4 11 2007

Primero mi experiencia: Mas vale malo conocido que malo por conocer….

Y no me refiero a que ASP sea malo, pero en mi caso, es el que mejor conozco y mas rendimiento le saco, de que me serviría programar en otro lenguaje si resulta que no podré sacar el mismo rendimiento, con la perdida de tiempo que conlleva?

Y esto la paradoja:

A falta de un nombre mejor lo llamaré la paradoja Python: si una compañía decide escribir su software en un lenguaje poco utilizado comparativamente, serán capaces de contratar a mejores programadores, porque atraerán sólo a aquellos que se molestaron en aprenderlo…

Hasta ahora sólo unas pocas compañías han sido suficientemente inteligentes para darse cuenta de esto. Pero hay una especie de selección natural trabajando: son exactamente las mismas compañías en las que a los programadores les gustaría trabajar. Google, por ejemplo. Cuando ofertan puestos para programar en Java, también piden experiencia con Python.

– Paul Graham

vía mundogeek

Comments : 2 Comments »
Categories : ASP, Varios