Function ReplaceString(ByVal strSearch As String, ByVal strSearchFor As String, ByVal strReplaceWith As String) As String
        Try
            '--> Busca la variable del strSearch para strSearchFor y la substituye por el strReplaceWith.
            Dim lngFoundLoc As Long    ' Location of match.
            Dim lngLenRemove As Long   ' Length of string being replaced.
            '--> Fije la longitud del texto original para saltar.
            lngLenRemove = Len(strSearchFor)
            '--> Fije la localización match.
        ... Leer más »

'--> Esta funcion permite desencriptar datos que fueron encriptados con la funcion encripta.
    Public Function Decrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String
        Dim nLargo As Long
        Dim n As Long
        Dim cCaracter As String
        Dim NewCadena As String
        Dim NewNumero As Long

        nLargo = Len(cTexto)
        NewCadena = ""
        NewNumero = (nLlave / 256) * 4

        For n = 1 To nLargo
            cCaracter = Chr(Asc(Mid(cTexto, n, 1)) - NewNumero)
         &n ... Leer más »

    Public datname, bakname, tstream As Object, tempFileName As Object, strES As Object
    Public optio As Integer
    Public strOpt As Object, strFileEnd As Object
    Public i As Long
    Public j, k, l As Integer
    Public dig_number As Long
    Public row_number As Long
    Public strTempNumber, strRndNumber As Object, strElse$, ESPassword$
    Public min, max As Integer
    Public rndNumber, rndElse, diffNumber, sumNumber As Integer
    Public Lines As Long
    Public ES As Boolean

    Public Function GeneratePassword( _
      ByVal intLength As Integer, _
      Optional ByVal bolWithNumber As Boolean = False, Optional ByVal bolWithUpperCase As Boolean = False, Optional ByVal bolWithAll As Boo ... Leer más »

    Public Sub mySetFocus(ByVal sPage As Page, ByVal ctrl As String)
        Dim f As StringBuilder = New StringBuilder()
        f.Append("<script language='JavaScript'>")
        f.Append("function setFocus() {")
        f.Append("document.getElementById('")
        f.Append(ctrl)
        f.Append("').focus();}")
        f.Append(" window.onload=setFocus;")
        f.Append("</")
        f.Append("script>")
        sPage.ClientScript.RegisterClientScriptBlock(sPage.GetType(), "<Focus>", f.ToString())
    End Sub

 Public Function Validar_Email(ByVal Email As String) As Boolean
        Dim i As Integer, iLen As Integer, caracter As String
        Dim pos As Integer, bp As Boolean, iPos As Integer, iPos2 As Integer

        On Error GoTo ErrorValidar_Email

        Email = Trim$(Email)

        If Email = vbNullString Then
            Exit Function
        End If

        Email = LCase$(Email)
        iLen = Len(Email)


        For i = 1 To iLen
            caracter = Mid(Email, i, 1)

     &n ... Leer más »

    Function Dias_Naturales(ByVal fechaIni As Date, ByVal sDias As Integer) As Date
        fechaIni = Format("dd/MM/yyyy", fechaIni)
        'Dias_Naturales = DateDiff(("d"), fechaIni, fechaFin)
        Dias_Naturales = DateAdd(DateInterval.Day, sDias, fechaIni)
    End Function

 Function El_Dia_es_habil(ByVal fechaIni As Date, ByVal fechaFin As Date) As Integer
        Dim i As Integer
        Dim sDiasNoHabil As Integer
        Dim sDias As Integer
        Dim DayOfWeek As FirstDayOfWeek

        sDiasNoHabil = 0
        fechaIni = Format("dd/MM/yyyy", fechaIni)
        fechaFin = Format("dd/MM/yyyy", fechaFin)
        sDias = DateDiff(("d"), fechaIni, fechaFin)
        sDiasNoHabil = sDias

        i = 1
        Do While i <= sDias
            fechaFin = DateAdd(DateInterval.D ... Leer más »

'--> Abrir RecordSet con Ado
    Public Function AbreRS(ByVal sConsulta As String, ByVal cnSistema As ADODB.Connection, ByVal sTipoMotor As Integer) As ADODB.Recordset '--> Establecer base de datos que esta utilizando
        On Error GoTo ErrorAbrers

        AbreRS = New ADODB.Recordset
        '--> SQL Server
        If sTipoMotor = 0 Then
            With AbreRS
                .let_Source(sConsulta)
                .ActiveConnection = cnSistema
                .CacheSize = 50
      & ... Leer más »

'--> Abrir base de datos con Ado
    Public Function AbreBD(ByVal Source As String, ByVal BaseDatos As String, ByVal User As String, ByVal Contraseña As String, ByVal sTipoMotor As Integer) As ADODB.Connection '--> Abrir una base de datos
        On Error GoTo ErroresAbrirBD

        AbreBD = New ADODB.Connection
        If sTipoMotor = 0 Then
            '--> Abrir base de datos en SQL Server
            With AbreBD
                .ConnectionString = "Provider=SQLOLEDB;Password=" & Contraseña & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BaseDatos & ";Data Source=" & Source & ""
  & ... Leer más »

    '---------------------------------------------------------------------
    ' EncryptString
    ' Optimizing by Harvey T.
    ' Corregido por Miguel A. Vallejo Duran
    '---------------------------------------------------------------------
    Public Const ENCRYPT As Integer = 1, DECRYPT As Integer = 2

    Function EncryptString(ByVal Text As String, ByVal Action As Single, ByVal UserPassword As String) As String
        Dim UserKey As String
        Dim Temp As Integer
        'Dim Times As Integer
        Dim i As Integer
        Dim j As Integer
        Dim n As Integer
        Dim rtn As Stri ... Leer más »

Function EncriptaXOR(ByVal sTexto As String) As String
        Dim i As Integer
        Dim n As Integer
        Dim tmpValor As String
        Dim y As Integer
        'Expresión1     Expresión2       Resultado es
        'True               True            False
        'True               False           True
        'False            & ... Leer más »

    Public Function CargaScriptPopUp(ByVal sPagDestino As String, ByVal sVentanaPopUp As String, ByVal sPage As Page) As String
        Dim sJava As String

        sJava = "function JavaPopUp(ssLargo,ssAncho,WinWidth,WinHeight,txtCve,txtDes)  " & Chr(13) & _
               " {  " & Chr(13) & _
               " var str2 = ''; " & Chr(13) & _
               " var str1 = '';  " & Chr(13) & _
               " var Argumentos = new Array(str1, str2);  " & Chr(13) & _
               ... Leer más »

    ' Función que deshabilita la tecla intro en una página.
    '
    Public Sub Deshabilitar_Intro(ByVal pag As Page)

        Dim script As String = String.Empty
        script = "<script language = 'javascript'>"
        script &= "function keydown(){"
        script &= "var keycode = event.keyCode;"
        script &= "if (keycode == 13){"
        script &= "return false;"
        script &= "}"
        script &= "}"
        script &= "document.onkeydown = keydown;"
        script &= "</script>"

   ... Leer más »

' Función que maximiza el tamaño de la ventana del navegador hasta la resolución
    ' que tenga el cliente establecida.
    '
    '   --> Como entrada recibe la  página a la que aplicar el script.

    Public Sub MaximizarVentana_TamañoPantalla(ByVal pagina As Page)

        Dim strScript As String = ""
        strScript &= "<script language=""JavaScript1.2"">" & vbCrLf
        strScript &= "window.moveTo(0,0);" & vbCrLf
        strScript &= "if (document.all) {" & vbCrLf
        strScript &= "top.window.resizeTo(screen.availWidth,screen.availHeight);" & vbCrLf
        strScript &= "}" & vbCrLf
     ... Leer más »

' Función que Deshabilita el Click derecho del ratón en una página.
    '
    '   --> Como entrada recibe la página a la que aplicar la función.

    Public Sub Deshabilitar_ClickDerecho(ByVal pagina As Page)

        Dim strScript As String = ""
        strScript &= "<script language=JavaScript>" & vbCrLf
        strScript &= "var message="""";" & vbCrLf
        strScript &= "function clickIE() {if (document.all) {(message);return false;}}" & vbCrLf
        strScript &= "function clickNS(e) {if " & vbCrLf
        strScript &= "(document.layers||(document.getElementById&&!document.all)) {" & vbCrLf
       ... Leer más »

    ' Función para cerrar la ventana del navegador transcurrido un determinado tiempo.
    '
    ' -->> Como entrada recibe la página a la que aplicar la función y el número de segundos
    '      tras los cuales se cerrará la ventana del navegador.
    '
    Public Sub CerrarPantalla_TimeOut(ByVal pag As Page, ByVal Segundos As Integer)

        Dim strScript As String
        Segundos = Segundos * 1000

        strScript = "<script type=""text/javascript"">" & vbCrLf
        strScript &= "function cerrar() " & vbCrLf
        strScript &= "{" & vbCrLf
        strScript &= "var ventana = wind ... Leer más »

 Private Sub EnviarMail(ByVal Parametro As String)
        '----------------------------------
        'Datos del correo de GMAIL
        'Usuario:        usuarioGMAIL
        'Password:        GdyivouiIkx
        'codigo de verificación:    34757
        '----------------------------------

            Dim sCadena As Object
            Dim i As Integer

            sCadena = Split(txtListaCorreos.Text.Trim, ";", -1, 1)
            For i = 0 To UBoun ... Leer más »

Enviar correo desde una página ASPX usando ASP.NET v2.0

En este artículo vamos a ver cómo enviar correos desde páginas de ASP.NET (.aspx), usando las clases del espacio de nombres System.Net.Mail, que so ... Leer más »

Un ejemplo practico con el cual haras uso de tablas y algoritmos recursivos para recuperar tu información. Esto es aplicable a foros aunque tambien puedes usarlo para información que requiera vinculación padre-hijo en tablas de bd, además de la creacion y uso de controles en tiempo de ejecución.

La idea general parte de una tabla recursiva de la siguiente forma:

... Leer más »

Un aspecto importante en la construcción de aplicaciones Web es la navegación entra páginas y el uso de link, que en conjunto unen las páginas de nuestra aplicación haciendo de esta un todo. De lo contrario tendríamos páginas aisladas que no se podrí ... Leer más »

En este artículo se trata de mostrar de forma sencilla como pintar filas de una grilla dependiendo del cumplimiento de cierta condición.

Para empezar, utilizamos un control DataGrid para mostrar un conjunto de ... Leer más »

Para resolver este comportamiento, compruebe para valores NULL asociados a cookie como se muestra en el ejemplo siguiente de códigos:

Microsoft .NET de Visual C

        HttpCookie cookie = Request.Cookies["SomeCookie"];

		... 
		
			Leer más »
		
	

Description

This describes how to create a cookie in an ASP.NET page and then re ... Leer más »

Desde hace algun tiempo he querido aportar más a la comunidad de desarrollo, ahora que estoy trabajando en el tema de criptografía me doy cuenta que no hay mucho material sobre este tema en  panoramabox.  Aqui consigno algunas de las cosas que he aprendido sobre criptografía y espero les sea ... Leer más »

... Leer más »

Sres Desarrolladores, les envio este aporte que permitirá conocer las opciones principales del control ComboBox, en este articulo no utilizo el enlace del control a base de datos, pero les prometo que dentro de poco preparo otro con enlaces a Base de D ... Leer más »

El problema

Para la mayoría de las personas resulta confuso que, al hacer click en un link o botón, la página responda lanzando una nueva ventana del navegador. Añade otra dimensión a la complejidad de la navegación. Sin embargo, muchas veces nuestro cliente ... Leer más »

En este articulo veremos la posibilidad de pasar datos entre paginas utilizando JavaScript. La forma de hacerlo es pasando estos datos como parametros en la URL ¿Que es Esto? Facil, tenemos la direccion de la pagina y a esta le añadimos unos parametros adicionales que contendran los valores que queremos pasar y quedaria algo asi... ... Leer más »

<Mas scripts en www.creatupropiaweb.com>

<form name="velocidad"> <script> 

function calcular(peso)
		... 
		
			Leer más »
		
	

<!-- Mas trucos y scripts en http://www.creatupropiaweb.com -->

<SCRIPT language=Javascript> 

open('NOMBRE PAGINA.H
		
		... 
		
			Leer más »
		
	

Con este nombre se ha masificado la funcionalidad que se logra con Java Script de abrir una nueva ventana, genralmente sin barra de estado, de direccion, sin botones estandar, etc.

Para lograr eso se utiliza la función:

... Leer más »

<!-- pagina_origen.html -->

<HTML>

<HEAD>

		... 
		
			Leer más »
		
	

Recomendar página

<!-- Copiar este ... Leer más »

Un código para que insertes un enlace mediante un botón, y se abra una ventana del tamaño que elijas, de una forma

!-- Copiar dentro del tag BODY -->

		... 
		
			Leer más »
		
	

Hace pocos días, Haaron González publicó en este sitio un artículo titulado Control personalizado ASP.NET DataGridDesplazable en el que, de una manera muy elegante (muy al estilo .NET), propone la creación de un control personalizado, un DataGrid que no muestra en pantalla todos sus registros sino que presenta una barra de scroll vertical para poder desplazarse a lo largo ... Leer más »

Existen muchos ejemplos de como subir archivos a el servidor por medio de paginas Asp . Net pero ne he encontrado ("en lo personal") ninguno que me diga por que si se intenta subir un archivo de mas ... Leer más »