
22/04/2003, 14:32
|
| | Fecha de Ingreso: febrero-2002
Mensajes: 442
Antigüedad: 23 años, 2 meses Puntos: 2 | |
mira.... yo lo habia armado de esta forma.... pero como tenia problemas con el browser...y no alcance a probarlo.....
--------------------------------------------------------------
Thank you for uploading your file.<br>
<% 'Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "C:\temp"
FName = Mid(upl.Form("f1").value, InstrRev(upl.Form("f1").value, "\") + 1)
FCONT = upl.ContentType
--- You can then use the Select Case Condition to restrict the file type.
Select Case LCase(FCONT)
Case "image/gif"
var = "OK"
Case "image/pjpeg"
var = "OK"
Case Else
upl.delete
Response.Write "<P>" & "You are restricted to only upload gif and Jpeg files.<BR>"
End Select
MyWebSitePath = Request.ServerVariables("APPL_Physical_Path") ' solo una prueba
Response.write(MyWebSitePath)' solo una prueba para saber el path en el que esta el servidor....
if var = "OK" then
On Error Resume Next
upl.SaveInVirtual "/wwwroot/upload"
Response.Write "<P>" & FName & " has been saved."
If Err <> 0 Then
Response.Write("An error occurred when saving the file on the server.")
end if
Total Bytes Written: <%=upl.TotalBytes%>
--------------------------------------------------------------
Pruebalo y me dices que tal te fue.... espero que bien.... ! saludos! |