Que tal!
No soy programador, en una ocasión un amigo me escribió el código que pongo más abajo con el fin de tener un formulario de entrada, en una página html, a un servidor de FTP, para los visitantes de nuestro sitio. el scrip funciona muy bien, sin embargo cadavez es mayor el número de personas que tienen Firefox como navegador.
Lamentablemente el escript no funciona en Firefox, sólo en IE.
Alguien puede decirme cómo modificar el código, o si tiene algun script que haga lo mismo en ámbos navegadores.
Código FTP:
Código:
<html>
<head>
<title>Entrar a cuenta de FTP</title>
<script language="VBscript">
Sub ValidarDatos()
dim cURL
if Len(Ltrim(document.FmLogin.Login.value))=0 then
msgbox "Faltan datos en el campo de Login !!!",vbExclamation
document.FmLogin.Login.focus
exit sub
elseif Len(Ltrim(document.FmLogin.Pass.value))=0 then
msgbox "Faltan datos en el campo de Password !!!",vbExclamation
document.FmLogin.Pass.focus
exit sub
end if
cURL = "ftp://" & document.FmLogin.Login.value & ":" & document.FmLogin.Pass.value & "@Poner_aqui_IP_o_ftp.server.com"
window.open(cUrl)
End sub
Sub borrarCampos()
document.FmLogin.Login.value = ""
document.FmLogin.Pass.value = ""
document.FmLogin.Login.focus
End sub
</script>
</head>
<body>
Acceso FTP
<form name="FmLogin" method="POST">
<p align="left">Usuario:
<input size=30 maxlength=256 name="Login" style="font-weight: 700">
Contraseña:
<input type=password size=30 maxlength=256 name="Pass" style="font-weight: 700">
<input type=button value="Entrar" onclick="ValidarDatos()" style="font-weight: 700">
<input type=reset value="Limpiar" onclick="BorrarCampos()" style="font-weight: 700"></p>
</form>
</html>