Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Subir ficheros al servidor mediante ASP
 Foro Bloqueado  Tema Bloqueado


Autor Temas
yaningo
Starting Member


7 Posts
Mensajes - 07 Dec 2005 :  19:00:40  Ver Perfil  Enviar Email
ya eh trepado el archivoa al servidor y al ejecutarlo me marca el siguiente error:
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'right'

/saveany.asp, line 88

ya eh revisado la linea 88 y estones lo que tengo : strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)

lo unico ke hice fue copiar y pegar, no entiendo por que no funciona, espero me puedan ayudar, saludos!

Yaningo

ocgyaag
Starting Member

Chile
14 Posts
Posted - 09 Jan 2006 :  17:41:39  Ver perfil  Enviar e-mail
ok copia textual de la linea para abajo
_________________________________________

<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>
<body bgcolor="#FFFFFF">
<FORM ENCTYPE="multipart/form-data" ACTION="saveany.asp?func=2" METHOD=POST id=form1 name=form1>
<div align="center"></div>
<div align="center"></div>
<TABLE align="center" border="0" width="468">
<TR>
<TD>&nbsp;</TD>
</TR>
<TR>
<TD><font color="#000000" size="3"><b><BR>
</b><BR>
</font></TD>
</TR>
<TR>
<TD><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><BR>
<BR>
</font></TD>
</TR>
<TR>
<TD bgcolor="#CCCCCC"><STRONG></STRONG></TD>
</TR>
<TR>
<TD bordercolor="1" bgcolor="#CCCCCC">
<div align="center">
<p><font size="2">
<input name=File1 size=30 type=file>
<BR>
</font></p>
</div>
</TD>
</TR>
<TR>
<TD align=left bgcolor="#CCCCCC">
<div align="center">
<INPUT type="submit" value=" Cargar ">
<BR>
<BR>
</div>
</TD>
</TR>
<TR>
<TD><font size="2"><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 "<h1> Ha ocurrido el siguiente error:</h1>"
Response.Write "<h2>no se a seleccionado ningun archivo !!!</h2>"
Response.Write "<HR>"
Response.Write "<h3>seleccione el archivo a cargar</h3>"
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("..") & "respaldo\12\12" &_
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 cargado exitosamente"
Response.Write lngNumberUploaded & " el archivo ya está en el servidor., gracias por utilizar el sistema.<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>"
End Select
%>


=============================================
si lo editas en dreamweaver en la linea 156, esta la ruta donde caen los archivos.. no toques nada mas...

en caso de que se te haga dificil esta el la linea a modificar:

"Set f = fso.OpenTextFile(server.mappath("..") & "respaldo\12\12" &_ " modifica el 12, asi se llamaba mi directorio.


espero que te sirva


saludos

Andres Aguilar GuajardoInicio 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