Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Insertar registros desde cliente al servidor
 Foro Bloqueado  Tema Bloqueado


Autor Temas
wichosaenz
Junior Member

Mexico
211 Posts
Mensajes - 27 Nov 2004 :  17:40:59  Ver Perfil  Enviar Email  Enviar wichosaenz un Mensaje Yahoo!
Deseo realizar la siguiente insercion de registros desde el lado del cliente al lado del servidor.
1.- Desde el lado del cliente cuento tablas de Dbase.
2.- De lado de mi servidor tengo una b.d. en MySQL.

Mi situacion actual es que de mi lado cliente, tengo una aplicacion comercial que maneja esas tablas dbase ya estandarizadas, es decir desde cualquier cliente siempre tendre las mismas tablas pero con diferente informacion.
Quiero hacer una pagina ASP tipo UpLoad, que suba la informacion de esta aplicacion X de cada cliente y concentrarla en un servidor.

Si alguien tiene una idea, se lo agradeceria mucho.

Wicho Saenz

Recuerda, lo único que te ofrezco es la verdad, nada más.
La pildora roja es para la impotencia, la azul para la diarrea.

wichosaenz
Junior Member

Mexico
211 Posts
Posted - 07 Dec 2004 :  15:34:54  Ver perfil  Enviar e-mail  Enviar wichosaenz un Mensaje Yahoo!e
Ya encontré la solucion!!!
Subir.asp

<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>

<table width="360" border="0" align="center">
<tr>
<td> <div align="center"><strong><font face="Arial, Helvetica, sans-serif">Subir
Bases de Datos de SAE</font></strong></div></td>
</tr>
</table>
<FORM ENCTYPE="multipart/form-data" ACTION="subir.asp?func=2" METHOD=POST id=form1 name=form1>
<TABLE align="center">
<TR>
<TD><font size="2" face="Arial, Helvetica, sans-serif">&nbsp;</font></TD>
</TR>
<TR>
<TD><font color="#330066" size="2" face="Arial, Helvetica, sans-serif">Pulsa
en el botón examinar y elige el archivo a subir</font></TD>
</TR>
<TR>
<TD><font color="#330066" size="2" face="Arial, Helvetica, sans-serif">Luego
pulsa el botón subir.</font></TD>
</TR>
<TR>
<TD><STRONG><font color="#330066" size="2" face="Arial, Helvetica, sans-serif">Nombre
del archivo...</font></STRONG></TD>
</TR>
<TR>
<TD> <font size="2" face="Arial, Helvetica, sans-serif">
<INPUT NAME=File1 SIZE=30 TYPE=file>
</font></TD>
</TR>
<TR>
<TD align=left> <font size="2" face="Arial, Helvetica, sans-serif">
<INPUT type="submit" value="Subir">
<BR>
</font></TD>
</TR>
<TR>
<TD><font color="#330066" size="2" face="Arial, Helvetica, sans-serif">NOTA:
Espera, recibirás una notificación cuando el archivo haya sido subido</font><font size="2" face="Arial, Helvetica, sans-serif">.
<BR>
</font></TD>
</TR>
</TABLE>
<%
Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if
'Creates a raw data file for with all da
' ta sent. Uncomment for debuging.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw.txt", ForWriting, True)
'f.Write strDataWhole
'set f = nothing
'set fso = nothing
'get the boundry indicator
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
Do While lngCurrentEnd > 0
'Get the data between current boundry an
' d remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")

'Get the full path of the current file.
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))
'Make sure they selected at least one fi
' le.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then

Response.Write "<H2> Ha ocurrido el siguiente error.</H2>"
Response.Write "Debes elegir un archivo para subir"
Response.Write "<BR><BR>Pulsa el botón volver, realiza la corrección."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Volver' id='button'1 name='button'1>"
Response.End
End if
'There could be one or more empty file b
' oxes.
if lngBeginFileName <> lngEndFileName Then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)
'Creates a raw data file with data betwe
' en current boundrys. Uncomment for debug
' ing.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw_" & lngNumberUploaded & ".txt", ForWriting, True)
'f.Write strData
'set f = nothing
'set fso = nothing

'Loose the path information and keep jus
' t the file name.
tmpLng = instr(1,strFilename,"\")
Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
Loop

FileName = right(strFilename,len(strFileName) - PrevPos)

'Get the begining position of the file d
' ata sent.
'if the file type is registered with the
' browser then there will be a Content-Typ
' e
lngCT = instr(1,strData,"Content-Type:")

if lngCT > 0 Then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End if
'Get the ending position of the file dat
' a sent.
lngEndPos = len(strData)

'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("..") & "\archivos\" &_
FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing

lngNumberUploaded = lngNumberUploaded + 1

End if

'Get then next boundry postitions if any
' .
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop


Response.Write "Archivo subido"
Response.Write lngNumberUploaded & " archivo ya está en el servidor.<BR>"
Response.Write "<BR><BR><INPUT type='button' onclick='document.location=" & chr(34) & "subir.asp" & chr(34) & "' value='<< Volver' id='button'1 name='button'1>"
End Select
%>
</BODY>
</HTML>


Lo importante para mi era subir los archivos desde el clienta al servidor, ahora solo me toca hacer una conexion a las tablas que subi, realizar una consulta (select) e insertarlos en mi otra b.d.

Todo lo anterior me base en un ejemplo de aki mismo....

Wicho Saenz

Recuerda, lo único que te ofrezco es la verdad, nada más.
La pildora roja es para la impotencia, la azul para la diarrea.Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar