Growmedia.net

Función para cortar una cadena de texto hasta donde lo limitemos:

Variables: texto - Cadena a cortar (texto - string)
                   max  - Número de carácteres a mostrar (númerico - int)

function cortarcadena (texto,max)
m = 0
Maximo = max       ' Tamaño máximo permitido'
Cadena = texto
If len ( Cadena ) > Maximo Then
    Cadena2 = Split ( Cadena, " " )
    Cadena = ""
    Do While len ( Cadena ) + len ( Cadena2 ( m ) ) < Maximo
       Cadena = Cadena & " " & Cadena2 (m )
       m = m + 1
    Loop
End if
response.write ( Cadena )
end function

Hace tiempo que decidí empezar con un blog. Ya se que llego tarde, pero quería hacerlo yo, a mi manera, y con la tecnología que conozco, que actualmente y desde hace muchos años, es el asp. Harto de ver que hacer un blog desde 0 es muy costoso y que no me ponía del todo, descubrí la magía del wordpress, drupal y muchos otros que están programados en PHP. Debo añadir que el PHP es en comparación con asp mucho más potente pero el desconocimiento de esta tecnología me tiraba hacia atrás a la espera de poder aprender PHP. Y un día descubrí el Dblog, un blog con motor en asp, y después de hacer algún cambio y traducirlo (casi todo) al castellano, he decidido subirlo ya para empezar a poner todo lo que se me ocurra aquí.

Desde mis proyectos, mis scripts asp, y hasta, por que no, poner está versión del Dblog en castellano, ya que no la encontré por ninguna parte.

Nos veremos en las calles.

Debido a las limitaciones del asp 3.0, y si no podemos instalar algun componente .dll en nuestro servidor para hacer un sistema de comprobación de dominios, en la web de www.forosdelweb.com encontré un gran script que, mediante el objeto "Microsoft.XMLHTTP" nos permite extraer el html de la web de internic i hacer las comprobaciones pertinentes.

Lo podéis encontrar en http://www.growmedia.net/dblog/labs/?seccion=whois

He creado el apartado "Labs" en la parte superior para ejemplos y experimentos varios que he recogido a través de la web y que pueden ser útiles. El primero de éstos es:

Como ordenar un Array en asp bidimensional

 http://www.growmedia.net/dblog/labs/?seccion=arraySort

Bien, esta mañana me he dado cuenta que en una web que tengo, habían desaparecido todas las imagenes que tenía en una base de datos.

Lo primero es pensar que alguien ha accedido a la base de datos y lo ha borrado, pero todo lo demás estaba intacto, así que mirando los logs del servidor he descubierto una cosa alucinante. Para eliminar una imagen, lo tengo en una página .asp que le paso el nombre de la imágen por la url y el googlebot, que es muy listo, me lo ha indexado todo, y a la vez, me lo ha borrado.

Solución: Implementar un robots.txt (que yo pensaba que no servía para nada) y decirle que por esas carpetas no pase... Lo que no me sorprenda ya...

Hace tiempo que necesitaba un script que me permitiera saber cual era la altura y anchura de una imagen. Navengando navengando (como no) y via www.forosdelweb.com encontré ese script que me permitiría saber esos datos para luego (por ejemplo) abrir una ventana pop-up con la medida justa de la imágen.

asp:

'Para coger anchura de la imagen
Private Function GetImageWidth(byVal strPath)
dim myImg, fs 
Set fs= CreateObject("Scripting.FileSystemObject") 
if not fs.fileExists(strPath) then Exit Function 
set myImg = loadpicture(strPath) 
GetImageWidth = round(myImg.width / 26.4583) 
set myImg = nothing 
End Function

'Coger altura de la imagen
Private Function GetImageHeight(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageHeight = round(myImg.height / 26.4583) 
set myImg = nothing 
End Function

Via: forosdelweb.com

Función muy útil para saber cual es el último día del mes que le pasamos a la función. 

'Función para saber cuál es el último día del mes'
'Variables: imonth - variable númerica del mes (Ej: Enero = 0, Febrero = 1 ...)'
'           iyear  - variable númerica del año (Ej: 2009, 2010 ...)'
function ultimDiaMes(imonth, iyear)
   nextmonth = dateadd("m", 1, dateserial(iyear, imonth, "01"))
   ultimDiaMes = day(dateadd("d", -1, nextmonth))
end function

Uso:

ultimDia = ultimDiaMes(mes,any)
'Imprimir en pantalla el último dia del mes (númerico)'
response.write ultimDia

Hoy me encontrado con otro problema que tiene asp, no permite hacer arrays multidimensionales y menos ordenarlos, así que me ha tenido que buscar la vida por google, mi santo particular.

Via http://www.geocities.com/doc_iacobus/sort.html es una web donde el autor crea arrays multidimensionales en Javascript con sus métodos de ordenación. Así que he imprimido todas mis variables del array del asp y las he pasado al Javascript para trabajar mejor... Me voy a tener que pasar al PHP que creo que si tiene estos metodos de forma nativa y así dejaré de hacer guarradas como esta... jejeje

Durante esta noche he estado buscando un script que me permitiera hacer lo que hace un plugin para wordpress llamado iG:Syntax Hiliterel , via blog.un...nte-en-tu-blog/

Este plugin permite colorear y poner la numeración en los códigos que aparecen en los posts de wordpress. Me pareció una maravilla y me puse a buscar algo para implementarlo a este blog. El resultado de la busqueda lo encontré en el mismo blog que he señalado antes, http://blog.un...digo-en-html/ y se trata de Google Code Prettify, una librería de Google (que no harán estos XD), para resaltar los códigos que aparecen en un post. De momento me quedo con el de google, pero seguiré buscando a ver si algún otro puede llegar a superarlo.

El resultado lo podéis ver en mi post de como saber...a imagen con asp

Alguien sabe de alguno otro mejor?

En breve sacaré para descargar esta versión de Dblog en castellano, aún tengo que pulir un poco la cosa, ya que hay partes que salen en italiano aún.

He de añadir que esta versión del Dblog no es la "oficial" sino un mod que saqué de esta web, para mi gusto un poco mejor con un skin que lo podéis encontrar si seguís los links de abajo del todo de la web.

Hoy me he encontrado que los meses no me salían en castellano, he buscado por toda la web con el maravilloso botón del Dreamweaver "Buscar y reeemplazar" (que haría sin él), y no lo encontraba por ningún lado. Hasta he buscado por la base de datos por si estaban por allí y nada. Al fin he encontrado en la página inc_funzioni.asp un Session.LCID = 1040 y modificando el último número por 1034 (que es para poner los textos que te imprime el asp en el idioma que tu quieras (el 1040 es italiano, el 1034 castellano)) he solucionado el problema.

Ala, a dormir!!

Hoy he visto que algunas opciones no funcionaban bien y habían errores, y visitando la web del mod de Dblog he visto que han lanzado la versión 1.5.3 que corregía los errores que tenía mi versión la 1.5.1 y la he actualizado...

Pronto en castellano!!!