Ciao ragazzi ho un piccolo problema dopo aver lottato per far girare su un hosting del .... uno script di upload non riesco ad integrarlo con il resto del sistema perche il server esegue il mio upload ma non il resto stampa solo il td immediatamente succesivo ma niente sopra
ho provato ad inserirlo in una sub ma in quel modo non gira propio
provo a postare un po di codice magari qualcuno mi sa dare una mano
<table border="1" width="353" bordercolor="#444444" bgcolor="#FFFFFF">
<tr>
<td width="337" bgcolor="#444444" align="right" colspan="2"><font class="uait">Document</font></td>
</tr><form method="POST" action="insert.asp">
<tr>
<td width="337" bgcolor="#666666" align="right"><font class=uait>DATE
</font></td>
<td width="168"><SCRIPT language=javascript>
<!--
document.write("<input type=text name=Data size=20 value=")
document.write(displayDate())
document.write(">");
//-->
</script> </td>
</tr>
<tr>
<td width="337" bgcolor="#666666" align="right"><font class=uait>LANGUAGE</font></td>
<td width="168"> <select name="Lingua"><option value="eng" >English</option><option value="German" >German</option><option value="ita" >Italian</option></select>
</td>
</tr>
<tr>
<td width="337" bgcolor="#666666" align="right"><font class=uait>TITLE</font></td>
<td width="168"> <input type="text" name="Titolo" size="20"> </td>
</tr>
<tr>
<td width="337" bgcolor="#666666" align="right"><font class=uait>AUTHOR</font></td>
<td width="168"> <input type="text" name="Autore" size="20"> </td>
</tr>
<tr>
<td width="337" bgcolor="#666666" align="right"><font class=uait>SHORT
DESCRIPTION </font></td>
<td width="168"> <Font>
<textarea rows="2" name="Descrizione" cols="20"></textarea>
</Font> </td>
</tr>
<tr> <Font>
<td width="337" bgcolor="#666666" align="right"><font class=uait>ATTACHMENT
NAME </font></td>
<td width="168">
<%
Dim folder
folder = "./files" 'directory sul server con accesso in scrittura
'fine variabili di configurazione
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
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")
'Get an object name
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
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
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"/"&filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
Response.Write "<input type=text name=Documento size=20 value=" & filename & ">"
%>
</td>
</Font> </tr>
<tr> <Font>
<td width="337" bgcolor="#666666" align="right"><font class=uait>CATEGORY </font></td>
<td width="168"> <select name="Categoria"><option>---German---</option>
<option value="Allgemeines">Allgemeines</option>
<option value="Didaktik">Didaktik</option>
<option value="Gender Haushalt">Gender Haushalt</option>
<option value="Gender Mainstreaming">Gender Mainstreaming</option>
<option value="Gender Studien">Gender Studien</option>
<option value="Gute Beispiele">Gute Beispiele</option>
<option value="Interaktion">Interaktion</option>
<option value="Politik">Politik</option>
<option value="Strategie">Strategie</option>
<option value="Weiterbildung">Weiterbildung</option>
<option>---English---[b]</option>
<option value="Didactic methods">Didactic methods</option>
<option value="Gender budgeting">Gender budgeting</option>
<option value="Gender Mainstreaming">Gender Mainstreaming</option>
<option value="Gender studies">Gender studies</option>
<option value="General">General</option>
<option value="Good practice">Good practice</option>
<option value="Interaction">Interaction</option>
<option value="Politics">Politics</option>
<option value="Strategies">Strategies</option>
<option value="Training">Training</option>
<option>---Italian---</option>
<option value="Budget">Budget</option>
<option value="Formazione">Formazione</option>
<option value="Gender Mainstreaming">Gender Mainstreaming</option>
<option value="Generale">Generale</option>
<option value="Good practice">Good practice</option>
<option value="Interazione">Interazione</option>
<option value="Metodologia didattica">Metodologia didattica</option>
<option value="Politiche">Politiche</option>
<option value="Strategie">Strategie</option>
<option value="Studi">Studi</option>
</select> </td>
</Font> </tr>
</table>
</Font>
<p align=center><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</TD></TR></TABLE></form>
L'upload viene cmq eseguito ma a me servono gli altri campi per indicizzare
Rispondi quotando
