bueno desenredemos todo esto, analizemos
el post anterior era para que tu descargaras alguno de los programas, el cual, el objetivo secundario de este programa, era leer un archivo de texto (*.inc), solo con extension diferente.... pero eso no era el caso, sino que tu vieras el codigo el cual permite leer los datos y desplegarlos, por consecuencia
funcion de lectura
Código PHP:
sub lectura(modo)
Dim fso, f1, ts, s, a, i
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")' Leer los contenidos del archivo.
select case modo
case 1
var=session("file")
Set ts = fso.OpenTextFile(server.MapPath(var), ForReading)
%><label>Lista de Contactos</label><select id="contactos" onChange="javascript:document.getElementById('para').value=this.value;document.getElementById('txto').focus();"><%
Do while not ts.AtEndOfStream
'response.Write j&"- "
a=split(ts.ReadLine,",")
%><option value="<%=a(0)%>" style="background-color:<%=a(2)%>;"><%=a(1)%></option><%
loop
%></select><%
end select
ts.Close
end sub
esta funcion permite leer un archivo de texto con una estructura de este tipo:
Cita: 127.127.127.127,Pepe,Este tipo de textos leera
denotamos las comas, ya que funcion separa las palabras o cadenas de texto si encuentra las comas
ahora con la funcion FreeASPupload
Código PHP:
<%
' ****************************************************
'FAVOR DE MODIFICAR ESTA LINEA A DONDE SE UTILIZARA ESTA APLICACION
uploadsDirVar = server.MapPath("./")
' ****************************************************
'FUNCION QUE NOS PERMITIRA SUBIR LA LISTA DE CONTACTOS A NUESTRO SISTEMA
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
' resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
session("file")=Upload.UploadedFiles(fileKey).FileName
next
else
resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function
esta funcion permitira subir archivos al servidor, pero logicamente esto podra cambiar dependiendo si ya tienes tus codigos de upload de archivos, lo pongo como ejemplo nada mas
ahora de que te sirve saber esto....
una ves que ya tienes todos los datos desplegados tambien podras crear una rutina en la cual podras actualizar todos tus datos en la tabla que mencionas de SQL, solo que tendrias que hacerle una variante a la primera funcion que esta escrita
