Si pongamos que uno tiene un formulario diseñado en html y quiere que dicho formulario incluya la opción de adjuntar archivos para subirlos al servidor meidante asp, se puede mantener el diseño del formulario en html y al final incluir el miniformulario en asp que permita insertar adjuntos o se debe hacer todo el formulario en asp?
Ahora que lo pienso lo suyo sería que solo hubiese un botón de envíar.
ahora si alguno sabe alguna forma más sencilla de hacer lo mismo tambien se agradecen sugerencias.
hay alguna forma de hacerlo directamente en html?
Atención Pregunta!!
-
tonetti
- Politóxicomano en chandal
- Mensajes: 10200
- Registrado: 04 Nov 2003 11:23
- Ubicación: en el chabolo verde al lao de la panadería del chema
- Contactar:
Atención Pregunta!!
Man debío de poner garrafón
Hasta que yo no sea moderador de este subforo no te podré contestar a eso cuando lo sea tampoco así que pregunta al inutil de moderador que tenemos de momento.
Pd: has votado ya?
Pd: has votado ya?
Pleased to meet you, hope you guess my name, but what's puzzling you, is the nature of my game.
Sympathy for the devil. Rolling Stones
Sympathy for the devil. Rolling Stones
Ej que el formulario puede estar en html perfectamente, lo unico que en el action del <form> la página de destino debe ser la de asp que reciba los datos o el archivo o lo que sea.
Vamos, que el formulario en html de toda la vida.
Con lo anterior tienes el objeto para coger el archivo.
Y con esto defines el formulario con la codificación para que coja correctamente los archivos.
Ea.
Vamos, que el formulario en html de toda la vida.
Código: Seleccionar todo
<input type=file name=file size=30>Con lo anterior tienes el objeto para coger el archivo.
Código: Seleccionar todo
<form method=POST action="destino.asp" enctype=multipart/form-data></form>Y con esto defines el formulario con la codificación para que coja correctamente los archivos.
Ea.
El perrico, definiendo la HAMBROSIA a ma112nu escribió:Un curasán aceitoso y calentico chorreando en el plato, la sonrisa de un niño, las ttks, un perolo de gazpacho manchego con medio kilo de pan para mojar, las ttks, las pelis de chinos dándose hostias, los ninjas, Mr. T, Mr.T luchando contra los ninjas, cualquier animal comestible, las ttks, correr desnudo por la playa alrededor de la gente mientras silbo el opening de battlestar galactica, la shandy cruzcampo de abadía belga, los torreznos, cualquier cosa rebozada, cagar en espiral, cosas asín, manu, cosas asín.
-
tonetti
- Politóxicomano en chandal
- Mensajes: 10200
- Registrado: 04 Nov 2003 11:23
- Ubicación: en el chabolo verde al lao de la panadería del chema
- Contactar:
Pos la cosa es que estoy a punto de desistir no entiendo ni papa de las cosas que leo por ahí además el servidor en cuestion no soporta php y entoces hay que haserlo en asp total, que no he enonctrao un scrpt ya hecho que pudiera daptar con mis rudimentarios conosimientos asín que si alguién sabe de una pagina o argo donde pueda encontrar ese tipo de script se lo agradecería.
Man debío de poner garrafón
-
Grumete
- marinero de aguas brávidas
- Mensajes: 3923
- Registrado: 06 May 2003 23:51
- Ubicación: HALGUNA CHABA QUE DECE TENER SIBER SECSO?
- Contactar:
Lo mimmo te refiere a argo tar que asín...
Y lo mimmo por aquina encuentra uste mas solusione...
Minvitarás a un piquito por las molestia, ¿que no?
Código: Seleccionar todo
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = "C:\Inetpub\wwwroot\"
' ****************************************************
Function SaveFiles
Dim Upload, ks, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
If Err.Number <> 0 then Exit function
ks = Upload.UploadedFiles.keys
if (UBound(ks) = -1) then resumen = "No es un nombre valido en el sistema."
SaveFiles = resumen
end function
%>
<HTML>
<HEAD><TITLE>Test Free ASP Upload</TITLE></HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir archivos</div>
<div style='margin-left:150'>
<form name="frmSend" method="POST" enctype="multipart/form-data" action="pruebaupload.asp">
Archivo 1: <input name="attach1" type="file" size="35"><br>
Archivo 2: <input name="attach2" type="file" size="35"><br>
<br>
<input type=submit value="Upload">
</form>
<BR></div>
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write SaveFiles()
end if
%>
</BODY> </HTML>Y lo mimmo por aquina encuentra uste mas solusione...
Minvitarás a un piquito por las molestia, ¿que no?
Mu' rico tó
-
Juggernaut
- Hombre de Mundo
- Mensajes: 4904
- Registrado: 02 Ago 2003 12:35
- Ubicación: en una galaxia lejana, muy lejana
grumete, le falta el archivo que va incluido.
Yo usé esta otra:
Que aquí ya está todo el código, pero tela de colores pa entenderlo. Pero en fin, hasta te genera una base de datos con un log.
Sacado de:
http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=6569&lngWId=4
Yo usé esta otra:
Que aquí ya está todo el código, pero tela de colores pa entenderlo. Pero en fin, hasta te genera una base de datos con un log.
Sacado de:
http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=6569&lngWId=4
Código: Seleccionar todo
'**************************************
' Name: Form Based File Upload Using Pur
' e ASP
' Description:<b>This code will allow yo
' u to do form based file uploads</b>. It
' supports multiple files and uses only pu
' re ASP. It will parse form data, browse
' server folders for a save location, and
' log uploads or failed uploads into a dat
' abase There are no components to install
' so it will work on any web server that s
' upports ASP. Just paste this code into a
' text file and name it saveany.asp. I hav
' e tested it on IIS 4 and 5, with IE 4, I
' E 5 and Netscape 6. With this code you w
' ill be able to save a file in any direct
' ory that the anonymous account assigned
' to it (usually IUSER_machinename) has ac
' cess to so be careful. I should note tha
' t the server needs ADO, ADOX and the Fil
' e System Object installed on it.
' By: Karl P. Grear
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:None
'
'Side Effects:None
'This code is copyrighted and has limite
' d warranties.
'Please see http://www.Planet-Source-Cod
' e.com/xq/ASP/txtCodeId.6569/lngWId.4/qx/
' vb/scripts/ShowCode.htm
'for details.
'**************************************
<%response.buffer=false
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
'You do not need to use this form to
'send your files.
BrowseServer = Request.Form("BrowseServer")
%>
<H2>File Upload Form.</H2>
<TABLE>
<FORM ENCTYPE="multipart/form-data" ACTION="saveany.asp?func=2" METHOD=POST id=form1 name=form1>
<TR><TD><STRONG>Debug Options.</STRONG><BR></TD></TR>
<TR><TD><INPUT NAME=Options TYPE=CheckBox Value='Raw'>Create Raw File<BR></TD></TR>
<TR><TD><INPUT NAME=Options TYPE=CheckBox Value='Boundry'>Create Boundry File<BR><BR></TD></TR>
<TR><TD><STRONG>Hit the [Browse Server] button to find the folder on the server to upload to.</STRONG><BR></TD></TR>
<TR><TD><INPUT NAME=ServerPath SIZE=30 TYPE=Text value='<%= BrowseServer %>'><INPUT type=button value="Browse Server" onclick="document.location='saveany.asp?func=3'" id=button1 name=button1><BR><BR></TD></TR>
<TR><TD><STRONG>Hit the [Browse] button to find the file on your computer.</STRONG><BR></TD></TR>
<TR><TD><INPUT NAME=File1 SIZE=30 TYPE=file><BR></TD></TR>
<TR><TD><INPUT NAME=File2 SIZE=30 TYPE=file><BR></TD></TR>
<TR><TD><INPUT NAME=File3 SIZE=30 TYPE=file><BR><BR></TD></TR>
<TR><TD><STRONG>Enter security password.<STRONG><BR></TD></TR>
<TR><TD><INPUT NAME=Password SIZE=30 TYPE=Text><BR></TD></TR>
<TR><TD><STRONG>Comments<STRONG><BR></TD></TR>
<TR><TD><textarea name=TArea cols=35 rows=5>Enter Comments Here</textarea><BR></TD></TR>
<TR><TD align=left><INPUT name=submit type="submit" value="Upload File"><BR><BR></TD></TR>
<TR><TD>NOTE: Please be patient, you will not receive any notification until the file is completely transferred.<BR><BR></TD></TR>
</FORM>
</TABLE>
<%
Case 2
Server.ScriptTimeout=300
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0
'Create a database connection
set conn = server.createobject("adodb.connection")
'Create a recordset
Set rstLog = server.createobject("adodb.recordset")
on error resume next
'Open the connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\UploadLog.mdb;Persist Security Info=False"
if err.number = "-2147467259" then
'the database is missing create it
CreateDatabase
Response.Write "Create Database"
'reopen the connetion
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\UploadLog.mdb;Persist Security Info=False"
err.clear
end if
'Open recordset
rstLog.Open "Select * from Logs", conn, 3, 3, 1
'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
'get the boundry indicator
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
'ParseForm returns a dictionary object
'You can ParseForm any time after the
'Boundry indicator is set.
Set dPassword = ParseForm("Password")
Set dOptions = ParseForm("Options")
'both of these are valid
Response.Write ParseForm("Password").item(0) & "<BR>"
Response.write dPassword.item(0) & "<BR>"
'Just write the data in the TArea
response.Write ParseForm("TArea").item(0) & "<br>"
SavePath = ParseForm("ServerPath").item(0)
if SavePath = "" or isempty(SavePath) Then
Response.Write "<H2> The following Error occured.</H2>"
Response.Write "You did Not enter a server path To save your file to."
Response.Write "<BR><BR>Hit the back button, make the needed corrections and resubmit your information."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>"
Response.End
End if
intCount = dOptions.count
if intCount > 0 Then
For x = 0 To intCount
Select Case dOptions.item(x)
Case "Raw"
Raw = True
Case "Boundry"
Boundry = True
End Select
Next
Else
Raw = False
Boundry = False
End if
if dPassword.item(0) <> "oktosend" Then
'Log invalid attempt to log file.
rstLog.AddNew
'Log the date and time, the IP, the Path
rstLog(0) = Now()
rstLog(1) = request.ServerVariables("REMOTE_ADDR")
rstLog(2) = SavePath
rstLog(3) = "Invalid Logon"
rstLog.Update
Response.Write "<H2> The following Error occured.</H2>"
Response.Write "The Password you entered is invalid."
Response.Write "<BR><BR>Hit the back button, make the needed corrections and resubmit your information."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>"
Response.End
End if
'Creates a raw data file For With all
'data sent. Uncomment for debuging.
if Raw Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(SavePath & "\raw.txt", ForWriting, True)
f.Write strDataWhole
Set f = nothing
Set fso = nothing
End if
'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
countloop = 0
Do While lngCurrentEnd > 0
'Get the data between current boundry
'and remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, (lngCurrentEnd - lngCurrentBegin) + 1)
'Remove the file data from the whole
'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
'file.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then
Response.Write "<H2> The following Error occured.</H2>"
Response.Write "You must Select at least one file To upload"
Response.Write "<BR><BR>Hit the back button, make the needed corrections and resubmit your information."
response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>"
Response.End
End if
'There could be one or more empty file b
'
'
' oxes.
if lngBeginFileName <> lngEndFileName and lngBeginFileName - 10 <> 0 Then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)
'Creates a raw data file with data
'between current boundrys. Uncomment
'for debuging.
if Boundry Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(SavePath & "\raw_" & lngNumberUploaded & ".txt", ForWriting, True)
f.Write strData
Set f = nothing
Set fso = nothing
End if
'Loose the path information and keep
'just 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
'data sent.
'if the file type is registered with
'the browser then there will be a
'Content-Type
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
'data sent.
lngEndPos = len(strData)
'Calculate the file size.
lngDataLenth = (lngEndPos - lngBeginPos) -1
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(SavePath & "\" & FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing
'Log Upload Informatoin.
rstLog.AddNew
'Log the date and time, the IP, the Path, and the Filename
rstLog(0) = Now()
rstLog(1) = request.ServerVariables("REMOTE_ADDR")
rstLog(2) = SavePath
rstLog(3) = FileName
rstLog.Update
if lngNumberUploaded = 0 Then
Response.Write "<STRONG>Saving Files...</STRONG><BR><BR>"
End if
Response.Write SavePath & "\" & FileName & "<BR>"
lngNumberUploaded = lngNumberUploaded + 1
End if
'Get then next boundry postitions if
'any.
lngCurrentBegin = lngCurrentEnd
lngCurrentEnd = instr(lngCurrentBegin + 9 ,strDataWhole,strBoundry) - 1
'Prevents infinate loop.
countloop = countloop + 1
if countloop = 100 Then
Response.Write "looped 100 times terminating script!"
'Close the Log
if rstLog.State then rstLog.close
if conn.State then conn.Close
Response.End
End if
loop
'Close the Log
if rstLog.State then rstLog.close
if conn.State then conn.Close
Response.Write "<STRONG>" & lngNumberUploaded & " File(s) Uploaded</STRONG>"
Response.Write "<BR><BR><INPUT type='button' onclick='document.location=" & chr(34) & "saveany.asp" & chr(34) & "' value='<< Back to Upload' id='button'1 name='button'1>"
Case 3
'get prev path if any
path = Request.QueryString("Path")
'if Not assign one
if path = "" or isempty(path) Then
path = server.MapPath(".")'"c:\inetpub"
End if
'create filesystemobject
Set fso = CreateObject("Scripting.FileSystemObject")
'get a folder object
Set f = fso.GetFolder(path)
path = f.path
'limit access To hard drive
'if lcase(left(path,10)) <> "c:\inetpub" Then
' path = "C:\Inetpub"
' Set f = fso.GetFolder(path)
' path = f.path
'End if
Response.Write "<H2>Server Browse Form.</H2>"
Response.Write "<FORM ACTION='saveany.asp?func=1' METHOD=POST>"
Response.Write "<TABLE width=400 border=1 cellpadding=0 cellspacing=1>" & vbcrlf
Response.Write "<TR><TH colspan=2>" & path & "</TH></TR>"
Response.Write "<TR><TD colspan=2 align=left><A href='saveany.asp?func=3&path=" & path & "\..'><STRONG>Parent ..</STRONG></A></TD></TR>" & vbcrlf
'get subfolders collection
Set fc = f.subfolders
'enum subfolders
For Each folder In fc
Response.Write "<TR><TD align=left><INPUT NAME=BrowseServer TYPE=CheckBox Value='" & folder.path & "'></TD><TD style='padding-left: 20px;' align=left><A href='saveany.asp?func=3&path=" & folder.path & "'>" & folder.name & "</A></TD></TR>" & vbcrlf
Next
'if there is a folder display the Select folder button
if fc.count > 0 Then
Response.Write "<TR><TD align=left colspan=2><BR><INPUT name=submit type='submit' value='Select Folder'></TD></TR>"
End if
Response.Write"<TR><TD colspan=2><INPUT name=cancel type='Button' value='Cancel' onclick=document.location='saveany.asp?func=1'></TD></TR>"
Response.Write "</TABLE>" & vbcrlf
Response.Write "</FORM>"
End Select
%>
</BODY>
</HTML>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
function ParseForm(strFieldName)
Set strFormData = CreateObject("Scripting.Dictionary")
lngCount = -1
'Try To find the Field
lngNamePos = instr(1,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))
'Parse through data In search of fields
Do While lngNamePos <> 0
lngCount = lngCount + 1
lngBeginFieldData = instr(lngNamePos,strDataWhole,vbcrlf & vbcrlf)+4
lngEndFieldData = instr(lngBeginFieldData,strDataWhole,strBoundry)-2
strFormData.Add lngCount, mid(strDataWhole,lngBeginFieldData,lngEndFieldData-lngBeginFieldData)
lngNamePos = instr(lngEndFieldData,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))
Loop
Set ParseForm = strFormData
End function
function CreateDatabase
'on error goto 0
'create an instance of a catalog(Database)
set cat = server.createobject("ADOX.Catalog")
'create the catalog
cat.Create ("Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\inetpub\UploadLog.mdb'")
set connNew = cat.ActiveConnection
connNew.CursorLocation = 3
'get the Connection and add a Table and the following fields
connNew.execute "Create Table [Logs]"
connNew.execute "Alter Table [Logs] Add Column [DateTimeStamp] DATETIME"
connNew.execute "Alter Table [Logs] Add Column [IP Address] TEXT(15)"
connNew.execute "Alter Table [Logs] Add Column [Path] TEXT(100)"
connNew.execute "Alter Table [Logs] Add Column [File] TEXT(100)"
connNew.execute "Alter Table [Logs] Add Column [Notes] MEMO"
'clean up
connNew.close
set connNew = nothing
set cat = nothing
end function
</SCRIPT>
Este es un mundo de estúpidos, controlados por imbéciles, para beneficio de mediocres.
-
tonetti
- Politóxicomano en chandal
- Mensajes: 10200
- Registrado: 04 Nov 2003 11:23
- Ubicación: en el chabolo verde al lao de la panadería del chema
- Contactar:
guays, ahora a ver si soy capas de adaptarlo.
otra prigunta a ver si alguien sabe la respuesta. ¿Una ves subido el archivo al servidor hay alguna manera de que envíe el servidor por e-mail los datos del formulario y el archivo adjunto a una dirección determinada?
Mushas grasias churrumete, estás convidao a una servesa o lo que se tercie, pero lo que no vi a hacer es darte un piquito so guarro.
schhhhhh!!
que corra el aire, trutxaka!!!
jejejejejejej
otra prigunta a ver si alguien sabe la respuesta. ¿Una ves subido el archivo al servidor hay alguna manera de que envíe el servidor por e-mail los datos del formulario y el archivo adjunto a una dirección determinada?
Mushas grasias churrumete, estás convidao a una servesa o lo que se tercie, pero lo que no vi a hacer es darte un piquito so guarro.
schhhhhh!!
que corra el aire, trutxaka!!!
jejejejejejej
Man debío de poner garrafón
-
Grumete
- marinero de aguas brávidas
- Mensajes: 3923
- Registrado: 06 May 2003 23:51
- Ubicación: HALGUNA CHABA QUE DECE TENER SIBER SECSO?
- Contactar:
tonetti escribió:Mushas grasias churrumete, estás convidao a una servesa o lo que se tercie, pero lo que no vi a hacer es darte un piquito so guarro.
schhhhhh!!
que corra el aire, trutxaka!!!
jejejejejejej
Que no mamón, quer piquito es pa las vena, que tengo un mono que ni Marco y me comío ya sinco tranquilmasine y no man echo efesto.
O minvitas a un piquito o pego er palo a una farmasia pa mangá los valium.
En cuanto a la nueva prigunta lo desconosco. Supera los conosimientos que asqurí una ves que me colé en un aula pa' robá y tuve questar escondío seis hora en un armario paque no me pillasen porque subieron der recreo.
Mu' rico tó