I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
cwilson
cwilson
il 30 luglio 2001 alle 16:13
4 messaggi dal 14 luglio 2001
Salve a tutti,
qualcuno di voi conosce questo errore?
____________________________________________
error '83aa581c'
/Upload/ASPSimpleUpload/uploadfile.asp, line 5
---------------------------------------------

Questo è lo script:
<!--#include file="upload.asp"-->
<% Response.Buffer = True
If request("Action")="1" then
Response.Clear
byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUpload(RequestBin)

If UploadRequest.Item("blob").Item("Value") <> "" Then

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"c:\webshare\wwwroot\"))
FolderName = UploadRequest.Item("anywhere").Item("Value")
Path = Mid(Request.ServerVariables("PATH_TRANSLATED"), 1, Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(Request.ServerVariables("PATH_INFO"))) & "\"
ToFolder = Path & "c:\webshare\wwwroot\" & FolderName
value = UploadRequest.Item("blob").Item("Value")

filename = ToFolder & "c:\webshare\wwwroot\" & filename
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = MyFileObject.CreateTextFile(filename)

For i = 1 to LenB(value)
objFile.Write chr(AscB(MidB(value,i,1)))
Next
objFile.Close
Set objFile = Nothing
Set MyFileObject = Nothing
End If
Set UploadRequest = Nothing
End If%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-ca">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>MyUpload</title>
</head>

<body>

<form method="POST" enctype="multipart/form-data" action="uploadfile.asp?Action=1"
name="form1" id="form1">
<p><input type="text" name="anywhere" value="Images" size="20">    <select
name="anywhere" size="1"
style="background-color: rgb(0,0,0); color: rgb(0,255,0); font-family: Arial">
<option selected value="/esediniprojects/people/users/alearda">/esediniprojects/people/users/alearda</option>
<option value="/esediniprojects/people/users/edini">/esediniprojects/people/users/edini</option>
<option value="/esediniprojects/people/users/mdesantis">/esediniprojects/people/users/mdesantis</option>
<option selected value="/esediniprojects/people/users/cwilson">/esediniprojects/people/users/cwilson</option>
<option value="/esediniprojects/people/users/neo">/esediniprojects/people/users/neo</option>
<option value="/esediniprojects/people/users/morpheus">/esediniprojects/people/users/morpheus</option>
<option value="/esediniprojects/people/users/trinity">/esediniprojects/people/users/trinity</option>
<option value="/esediniprojects/people/users/mmystère">/esediniprojects/people/users/mmystère</option>
<option value="/esediniprojects/people/users/Moebius">/esediniprojects/people/users/Moebius</option>
<option value="/esediniprojects/people/users/pluto">/esediniprojects/people/users/pluto</option>
<option value="/esediniprojects/people/users/xcolby">/esediniprojects/people/users/xcolby</option>
</select></p>
<p>select a file to upload</p>
<p><input type="file" name="blob" value></p>
<p><input type="submit" value="Click to upload" name="Upload"><input type="reset"
value="Reset" name="B2"></p>
</form>
</body>
</html>



cwils
cwils
RispondiQuoting
Ciayko
Ciayko
il 30 luglio 2001 alle 17:40
358 messaggi dal 05 marzo 2001
Vedi la mia risposta alla domanda "Upload senza DLL?"

Ciao
Il :P ianista


RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.