Archivo de la etiqueta: asp

Validar CBU en ASP

Navegando entre páginas que hice, encontré también la validación de CBU hecha en ASP, les paso las funciones. No pidan grandes validaciones, es sólo para que se orienten en como hacer una validación, si requieren mayor seguridad pueden agregarla.
[vb]
Function DigitoVerificador(Valor, Largo)

‘ Calcula el Digito Verificador de un Valor, para un largo determinado

Dim cAuxi

Dim nTotal

cAuxi = Trim(Left(Valor, Largo))

cAuxi = String(Largo – Len(cAuxi), “0″) + cAuxi

cPonderador = “97139713971397139713971397139713″

i = 1

nTotal = 0

For i = 1 To Largo

nDigito = CInt(Mid(cAuxi, i, 1))

nDigPond = CInt(Mid(cPonderador, i, 1))

nTotal = nTotal + nDigPond * nDigito – Int(nDigPond * nDigito / 10) * 10

Next

i = 0

Do While Int((nTotal + i) / 10) * 10 <> nTotal + i

i = i + 1

Loop

‘DigitoVerificador = Trim(Str(i))
DigitoVerificador = i

On Error GoTo 0

Exit Function

Function ValidoCBU(CBU)

If CBU = “” Then
ValidoCBU = false
Exit Function
End If

If not IsNumeric(CBU) Then
ValidoCBU = false
Exit Function
End If

If Trim(Mid(CBU, 8, 1)) <> Trim(DigitoVerificador(“0″ & Mid(CBU, 1, 7), 8)) Then
ValidoCBU = false
Exit Function
End If

If Trim(Right(CBU, 1)) <> Trim(DigitoVerificador(“000″ & Mid(CBU, 9, 13), 16)) Then
ValidoCBU = false
Exit Function
End If

ValidoCBU = true
End Function
[/vb]

Espacio en Discos

Muchas veces queremos saber como se encuentra la ocupación de los discos de nuestro web server. En ésta oportunidad les dejo las lineas de código para que puedan hacerlo en ASP.

Además hay una función para mostrar el tamaño en formato amigable, en MB, GB, y no en bytes como devuelve la función.


Function FormatSize(Bytes)
If Bytes >= 1073741824 Then
FormatSize = FormatNumber(Bytes / 1024 / 1024 / 1024, 0) & " GB"
ElseIf Bytes >= 1048576 Then
FormatSize = FormatNumber(Bytes / 1024 / 1024, 0) & " MB"
ElseIf Bytes >= 1024 Then
FormatSize = FormatNumber(Bytes / 1024, 0) & " KB"
ElseIf Bytes < 1024 Then
FormatSize = Fix(Bytes) & " Bytes"
End If
End Function

Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
Set objDrive = objFSO.GetDrive(“C:”)
Response.write objDrive.DriveLetter & ” ” & FormatPercent(objDrive.FreeSpace / objDrive.TotalSize) & ” | ” & FormatSize(objDrive.FreeSpace) & ” | ” & FormatSize(objDrive.TotalSize)

FileExists para archivos en otro Servidor

Hace poco me encontré con un inconveniente, necesitaba verificar la existencia de ciertos archivos que se encontraban en otro servidor web. Los servidores no eran visibles internamente, no hay directorios virtuales, por lo que tuve que hacer una función que verifique la existencia de una URL externa.

Function existeURL(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send

On Error Resume Next
If objXMLHTTP.status = 200 Then
existeURL = true
Else
existeURL = false
End If
End Function

Insertar una página dentro de otra

Muchas veces necesitamos incorporar una página dentro de otra, ya sea para mostrar el contenido de un sitio externo o de un sitio interno.

Muchas veces lo he utilizado cuando tengo sitios desarrollados en una tecnología y debo incorporar partes en otra tecnología. Por ejemplo un sitio desarrollado en ASP, que incorpora cierta funcionalidad hecha en .NET. Lo mismo vale para cualquier lenguaje.

La solución a utilizar es el tag Iframe de HTML. El mismo permite que dentro de un frame adaptable en altura y tamaño entre otras características, llamemos a otro link.

Hay que tener en cuenta que puede ser que alguna funcionalidad del sitio dentro del Iframe, a veces suele pasar con código javascript, no funcione.

Les dejo el link de W3 Schools: http://www.w3schools.com/TAGS/tag_iframe.asp