ASP/VBScript
Elfhelm
14 de Mayo del 2008
Hola Maestros:
Ojalá me puedan ayudar a detectar por qué no me funciona el siguiente código ASP/VBScript cuando lo corro en mi Personal Web Server.
La idea es abrir un Libro Excel que se encuentra protegido con clave, validando previamente que la IP del usuario sea la correcta. Para ello utilizo una DLL que desencripta la Password, llama a Excel y abre el libro especificado, esta DLL se encuentra en el equipo del usuario y ya ha sido registrada en forma adecuada...Bueno, sin más rodeos aquí va el código:
<html><head><title>PRUEBA DE APERTURA DE ARCHIVO EXCEL (LADO DEL CLIENTE) </title></head>
<body>
SU IP ES: <%=Request.ServerVariables("REMOTE_ADDR")%><BR>
<% if Request.ServerVariables("REMOTE_ADDR") = "150.140.13.226" then
dim Password_EnCryp
' Se supone que recupero la clave desde una base
'de datos, pero para simplificar el ejemplo se la
'asigno en duro
Password_EnCryp = "clave"
' Aquí viene lo que quiero que se Ejecute por el
'lado del Cliente (Client Side)
%>
<SCRIPT LANGUAGE="VBScript">
dim nomdll
set nomdll = createobject("userdll.usuario")
' La DLL me desencripta la Password y me abre la
'Planilla desde un Disco de Red Local al que el
'Usuario tiene acceso
nomdll.OpenExcel("k:libro1.xls " & <%=Password_EnCryp%>)
set nomdll = Nothing
</SCRIPT>
<% end if %>
</body></html>
Cabe mencionar que si reemplazo el código ASP por código VBScript la página me funciona OK, sin emabrgo, al abrirla tal como está desde el PWS me dice que se han encontrado errores al cargarla y me aparece el típico triangulito amarillo con el sigo de exclamación en la esquina inferior izquiera de la barra de estado.
Agradeceré cualquier idea que tengan al respecto...
Muchas Gracias
Elfhelm
"Los cuatro puntos cardinales son tres, el Norte y el Sur"
Ojalá me puedan ayudar a detectar por qué no me funciona el siguiente código ASP/VBScript cuando lo corro en mi Personal Web Server.
La idea es abrir un Libro Excel que se encuentra protegido con clave, validando previamente que la IP del usuario sea la correcta. Para ello utilizo una DLL que desencripta la Password, llama a Excel y abre el libro especificado, esta DLL se encuentra en el equipo del usuario y ya ha sido registrada en forma adecuada...Bueno, sin más rodeos aquí va el código:
<html><head><title>PRUEBA DE APERTURA DE ARCHIVO EXCEL (LADO DEL CLIENTE) </title></head>
<body>
SU IP ES: <%=Request.ServerVariables("REMOTE_ADDR")%><BR>
<% if Request.ServerVariables("REMOTE_ADDR") = "150.140.13.226" then
dim Password_EnCryp
' Se supone que recupero la clave desde una base
'de datos, pero para simplificar el ejemplo se la
'asigno en duro
Password_EnCryp = "clave"
' Aquí viene lo que quiero que se Ejecute por el
'lado del Cliente (Client Side)
%>
<SCRIPT LANGUAGE="VBScript">
dim nomdll
set nomdll = createobject("userdll.usuario")
' La DLL me desencripta la Password y me abre la
'Planilla desde un Disco de Red Local al que el
'Usuario tiene acceso
nomdll.OpenExcel("k:libro1.xls " & <%=Password_EnCryp%>)
set nomdll = Nothing
</SCRIPT>
<% end if %>
</body></html>
Cabe mencionar que si reemplazo el código ASP por código VBScript la página me funciona OK, sin emabrgo, al abrirla tal como está desde el PWS me dice que se han encontrado errores al cargarla y me aparece el típico triangulito amarillo con el sigo de exclamación en la esquina inferior izquiera de la barra de estado.
Agradeceré cualquier idea que tengan al respecto...
Muchas Gracias
Elfhelm
"Los cuatro puntos cardinales son tres, el Norte y el Sur"
Yoni Yo
14 de Mayo del 2008
voy tai weon o que...
nunca se debe usar dll. para encriptar o desencriptar ... SON MUY INSEGUROS
nunca se debe usar dll. para encriptar o desencriptar ... SON MUY INSEGUROS