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

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

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