Upload archivos
Gracias
30/11/2005, 10:53
| ||||
| ||||
| Trabaja un poco (tampoco mucho, ehhhhhh). Aquí tienes todo lo que necesitas: http://www.aspfacil.com/articulos/07092001.asp |
|
30/11/2005, 11:03
| ||||
| ||||
| Aqui te envio este codigo muy bueno espero te sirva. <%@LANGUAGE="VBSCRIPT"%> <HTML> <HEAD> <TITLE>SAVEANY</TITLE> <LINK REL="StyleSheet" MEDIA="screen" TYPE="text/css" HREF="estilo.css"> </HEAD> <Body topmargin="0" leftmargin=0> <%Func = Request("Func") if isempty(Func) Then Func = 1 End if Select Case Func Case 1 %> <table width="505" border="1" align="center" class="textocelda" bgcolor="#ffffff" bordercolor="006699" style="BORDER-COLLAPSE: collapse"> <tr> <td width="762" BGCOLOR="336699"> <b><font size="3" color="#ffffff">Selecciona una Archivo para subir. </font></b> </td> </tr> <tr> <td width="762"> <FORM ENCTYPE="multipart/form-data" ACTION="saveany.asp?func=2" METHOD=POST id=form1 name=form1> <TABLE height="192" bgcolor="#ffffff" width="498"> <TR> <TD height="1" width="492"></TD> </TR> <TR> <TD height="18" class="textocelda" width="492"><font color="#000000">Pulsa en el botón examinar y elige el archivo de tu ordenador.</font></TD> </TR> <TR> <TD class="textocelda" height="36" width="492"><font color="#000000">Luego pulsa el botón subir.</font></TD> </TR> <TR> <TD class="textocelda" height="18" width="492"><b>Nombre del archivo...</b></font></STRONG></TD> </TR> <TR> <TD height="31" class="textocelda" width="492"> <INPUT NAME=File1 SIZE=50 TYPE=file CLASS="DATOS"> </TD> </TR> <TR> <TD align=left height="40" width="492"> <INPUT type="submit" value="Subir" class="boton"> </TD> </TR> <TR> <TD height="20" class="textocelda" width="492"><font color="#000000">NOTA: Espera, recibirás una notificación cuando el archivo haya sido subido.</font></TD> </TR> </TABLE> </form> </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'> " 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) NomArchivo = request.querystring("FileName") '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("..") & "\administrador\archivos_administrador\docuemntos_ informacion\informacion_general\" &_ 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) & "saveany.asp" & chr(34) & "' value='<< Volver' id='button'1 name='button'1 class='boton'>" End Select Response.write (NomArchivo)%> </BODY></HTML> |
|
30/11/2005, 11:07
| ||||
| ||||
 Cita: Jajaja Ok 3pies hare caso a tu consejo.
Iniciado por 3pies Trabaja un poco (tampoco mucho, ehhhhhh). Aquí tienes todo lo que necesitas: http://www.aspfacil.com/articulos/07092001.asp Gracias por el enlace Saludos |
