Estoy matandome a pruebas con "window.onbeforeunload" pero tiene que devolver una cadena si o si... y la idea esq llame a la pag salir.aspx, tiene que ser algo que se hace en todas las webs del tipo, pero no lo consigo xD
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
<%--<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="index.aspx.vb" Inherits="xXx.index" %>--%>
<%@ Page Language="vb" AutoEventWireup="true" CodeFile="index.aspx.vb" Inherits="index" Title="xXx" %>
<%@ Application Codebehind="Global.asax.vb" Inherits="xxx.Global_asax" Language="vb" %>
Public Class mcls_archivosIni
' Funciones API
Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
Private Declare Ansi Function FlushPrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Integer, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer
Dim strFilename As String
' Constructor, acepta un nombre de fichero (si no existe se creará)
Public Sub New(ByVal Filename As String)
strFilename = Filename
End Sub
' Propiedad para Read-only
ReadOnly Property FileName() As String
Get
Return strFilename
End Get
End Property
Public Function ObtenerString(ByVal sección As String, ByVal Clave As String, ByVal [Default] As String) As String
' Devuelve una cadena desde tu archivo INI
Dim intCharCount As Integer
Dim objResult As New System.Text.StringBuilder(256)
intCharCount = GetPrivateProfileString(sección, Clave, [Default], objResult, objResult.Capacity, strFilename)
If intCharCount > 0 Then
'Devuelve el resultado encontrado
ObtenerString = Left(objResult.ToString, intCharCount)
Else 'En caso de que no se encuentre nada, se devuelve "".
ObtenerString = ""
End If
End Function
Public Function ObtenerInteger(ByVal sección As String, ByVal Clave As String, ByVal [Default] As Integer) As Integer
' Devuelve un número desde tu archivo INI
Return GetPrivateProfileInt(sección, Clave, [Default], strFilename)
End Function
Public Function ObtenerBoolean(ByVal sección As String, ByVal Clave As String, ByVal [Default] As Boolean) As Boolean
' Devuelve un valo lógico desde un archivo INI
Return ObtenerString(sección, Clave, [Default])
End Function
Public Sub EscrbirString(ByVal sección As String, ByVal Clave As String, ByVal Valor As String)
' Escribe una cadena a un archivo INI
WritePrivateProfileString(sección, Clave, Valor, strFilename)
Flush()
End Sub
Public Sub EscrbirInteger(ByVal sección As String, ByVal Clave As String, ByVal Valor As Integer)
' Escribe un número a un archivo INI
EscrbirString(sección, Clave, CStr(Valor))
Flush()
End Sub
Public Sub EscrbirBoolean(ByVal sección As String, ByVal Clave As String, ByVal Valor As Boolean)
' Escribe un valor logico a un arhcivo INI
EscrbirString(sección, Clave, Valor)
Flush()
End Sub
Private Sub Flush()
' Stores all the cached changes to your INI file
' Guarda todos los cambios al archivo INI
FlushPrivateProfileString(0, 0, 0, strFilename)
End Sub
End Class
Novlucker
es correcta al 100%, para mi caso al menos, el problema de después estaba en como yo trataba el javascript de flexcroll.