Una guardata qui

**trugs** · 27-03-2007, 22:59

Salve a tutti,avrei un piccolo problema(piccolo per chi ne sa qualcosa,enorme per me)!

Ho queste due pagine ASP per l'upload di file sul server:

upload.asp

<%Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function%>

e outputfile.asp

<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>

<head>
<title></title>
</head>

<body bgcolor="#FFCB8C">


File "<%=filename%>" ricevuto con successo
torna

Ora il mio problema è che se mando file sul server tutto ok,ma se voglio che i file vengano sovrascritti mi dà un errore!Come posso fare per far sovrascrivere i file che mando?

**pietro09** · 28-03-2007, 09:17

asp? :master: prova questo esempietto: a me non dà errore

codice:

<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Me.FileUpload1.PostedFile.SaveAs("c:\tmp\prova")
            Me.Label1.Text = "File salvato con successo"
        Catch ex As Exception
            Me.Label1.Text = "Errore: " & ex.Message()
        End Try
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Pagina senza titolo</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:FileUpload ID="FileUpload1" runat="server" />
        <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ErrorMessage="Scegli il file da spedire" ControlToValidate="FileUpload1"></asp:RequiredFieldValidator>
        

        

        <asp:LinkButton ID="LinkButton1" runat="server" OnClick="LinkButton1_Click">Invia</asp:LinkButton>

        

        <asp:Label ID="Label1" runat="server"></asp:Label>
    </div>
    </form>
</body>
</html>

**trugs** · 28-03-2007, 11:14

Ma queste pagine che mi hai dato non don da inserire in quelle che ho io giusto?Son due pagine indipendenti che devo rinominare a mio piacere?Inoltre se ne percorso inserisco la cartella public del mio sito vanno bene?Grazie Pietro

**pietro09** · 28-03-2007, 11:17

Originariamente inviato da trugs
Ma queste pagine che mi hai dato non don da inserire in quelle che ho io giusto?Son due pagine indipendenti che devo rinominare a mio piacere?Inoltre se ne percorso inserisco la cartella public del mio sito vanno bene?Grazie Pietro

Credo che tu abbia sbagliato forum. Qui siamo in asp.net non in asp. Perciò ti ho mandato un esempio in asp.net. Prova a porre la domanda nel forum giusto: io di asp non mi ricordo praticamente nulla

Discussione: Una guardata qui

Strumenti discussione

Ricerca discussione

Visualizza

Una guardata qui

Permessi di invio