Notifikationer

Markér alle som læst Log ud

starf Nybegynder

18. april 2001 - 19:49 Der er 10 kommentarer og
1 løsning

Lav upload del på filmanager..

Hej jeg er ved at lave en fil manager til mit admin script. og min upload del virker ikke.. den skriver følgen fejl besked
\"Der opstod en fejl under upload!
Fejl nr: 1
Filnavn:
Filtype:
Filstørrelse: 0\"

mit start script til filserver ser sådan her ud:

<%@ Language=\"VBScript\" %>
<% Option Explicit %>
<% Response.Buffer = True %>


<html>
<head>
<title>FileSystem</title>
</head>
<body>
<%
Dim fs, sAction, sFile, sPath, sFolder, sFileType, scriptname, dbfile, ReadStream, WriteStream, WriteFile, fileobject, filecollection, file, startpath, lineid, bgcolor, bgcolor_on, bgcolor_off, foldercollection, folder, errornum, errorcode

\' Reset our errorcode values
errornum = 0
errorcode = \"\"

\' Change this variable if you have installed a database access script under another name
dbfile=\"database.asp\"

scriptname=Request.ServerVariables(\"Script_Name\")
sAction = Request.Querystring(\"action\")
sFileType = Request.Querystring(\"filetype\")

If Request.Querystring(\"path\") = \"\" Then
sPath = \"/\"
Else
sPath = Request.Querystring(\"path\")
If InStr(sPath,\"../\") Then
errornum = errornum+1
errorcode = errorcode & \"<li><b>Ulovlig brug af \"\"../\"\"</b>.</li>\"
End If
End If

If sPath=\"/\" Then
If Request.Querystring(\"file\") = \"\" Then
sFile = sPath & Request.Form(\"file\")
Else
sFile = sPath & Request.Querystring(\"file\")
End If
If Request.Querystring(\"folder\") = \"\" Then
sFolder = sPath & Request.Form(\"folder\")
Else
sFolder = sPath & Request.Querystring(\"folder\")
End If
Else
If Request.Querystring(\"file\") = \"\" Then
sFile = sPath & \"/\" & Request.Form(\"file\")
Else
sFile = sPath & \"/\" & Request.Querystring(\"file\")
End If
If Request.Querystring(\"folder\") = \"\" Then
sFolder = sPath & \"/\" & Request.Form(\"folder\")
Else
sFolder = sPath & \"/\" & Request.Querystring(\"folder\")
End If
End If

\' Make sure that no errors have occurred and no illegal actions have been taken before doing our stuff...
If errornum < 1 Then
Set fs = Server.CreateObject(\"Scripting.FileSystemObject\")

Select Case sAction
Case \"editfile\"
Select Case sFileType
Case \"htm\", \"asp\", \"txt\", \"inc\", \"html\", \"shtml\", \"shtm\", \"js\", \"css\", \"log\", \"php4\", \"php3\", \"doc\", \"nfo\"
EditFile
Case \"mdb\", \"dat\"
EditDb
Case else
FileTypeUnsupported
End Select

Case \"savefile\"
SaveFile

Case \"viewfolder\"
Showlist

Case \"newfile\"
CreateFile

Case \"newfolder\"
CreateFolder

Case \"deletefile\"
DeleteFile

Case \"deletefolder\"
DeleteFolder

Case Else
Showlist
End Select
Set fs = Nothing
Else
DisplayErrors
End If
%>
<%
\'Skal formen vises?
If Request.ServerVariables(\"REQUEST_METHOD\") <> \"POST\" Then
%>
<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"uploadgfx.asp\" METHOD=\"POST\">
<P>Vælg et billede:<BR>
<INPUT NAME=\"fileupload\" TYPE=\"file\"><BR>
<INPUT NAME=\"Action\" TYPE=\"submit\" VALUE=\"Upload\">
</FORM>
<form method=\"post\" action=\"imgslet.asp\">
<input type=\"submit\" value=\"Slet Image List\">
</form>
<%
Else
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

intFileUpload = FileUpload(\"upload/Galleri/\", 900000000, Array(\"image/gif\", \"image/jpeg\", \"image/pjpeg\"), Array(\"gif\", \"jpg\"), strContentType, strFilename, intFileTotalBytes)

If intFileUpload = 0 Then
Response.Write \"Filen \" & strFilename & \" blev uploaded.<BR>\"
Response.Write \"Det er en fil af typen \" & strContentType & \" og den fylder \" & intFileTotalBytes & \" bytes:<BR>\"
Response.Write \"<IMG SRC=\"\"upload/Galleri/\" & strFilename & \"\"\"><BR>\"
Else
Response.Write \"Der opstod en fejl under upload!<BR>\"
Response.Write \"Fejl nr: \" & intFileUpload & \"<BR>\"
Response.Write \"Filnavn: \" & strFilename & \"<BR>\"
Response.Write \"Filtype: \" & strContentType & \"<BR>\"
Response.Write \"Filstørrelse: \" & intFileTotalBytes & \"<BR>\"
End If
End If
%>

</body>
</html>

min filupload.inc ser sådan her ud:

<%
\'-------------------- Start: fileupload.inc --------------------

Dim strPath
strPath = \"Billeder/\"

Function FileUpload(strPath, intMaxSize, arrAcceptType, arrAcceptExt, ByRef strContentType, ByRef strFilename, ByRef intFileTotalBytes)
\'Variable deklaration
Dim intPostTotalBytes, intStartPos, intEndPos, i
Dim bstrPostData, bstrDivider
Dim strTemp, strFileSpec
Dim arrSplit
Dim vbCrLfB
Dim bolStopLoop, bolContentTypeOK, bolExtOK
Dim fs, ts, f

\'Sæt returværdier
strContentType = \"\"
strFilename = \"\"
intFileTotalBytes = 0

\'Check: Er det faktisk POST upload?
If Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" Then

\'Dan vbCrLf som binær streng
vbCrLfB = ChrB(13) & ChrB(10)

\'Hent den binære POST fra brugeren
intPostTotalBytes = Request.TotalBytes \'Find antallet af bytes i POST

If LenB(bstrPostData) <> intPostTotalBytes Then \'Check: Er antallet af bytes i POST forskelligt fra den binære streng?
\'Returner værdi og stop
FileUpload = 1
Exit Function
End If

\'Hent delelinien inkl. vbCrLfB (altid hele første linje)
bstrDivider = LeftB(bstrPostData, InStrB(bstrPostData, vbCrLfB) + 1)

\'Default StartPos
intStartPos = 1

\'Find Content-Disposition hvor name=\"fileupload\"
bolStopLoop = False
Do
\'Find starten af denne Content del (umiddelbart efter delelinien)
intStartPos = InStrB(intStartPos, bstrPostData, bstrDivider) + LenB(bstrDivider)
If intStartPos = 0 Then
\'Ikke flere Content delere - Returner værdi og stop
FileUpload = 2
Exit Function
End If

\'Find slutningen af denne Content del (umiddelbart inden den næste delelinie)
intEndPos = InStrB(intStartPos, bstrPostData, bstrDivider)
If intEndPos = 0 Then
\'Ikke flere Content delere - Returner værdi og stop
FileUpload = 2
Exit Function
End If

\'Hent denne Content-Disposition (uden vbCrLf)
strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))

\'Er fileupload feltet i denne Content-Disposition?
If InStr(LCase(strTemp), \"name=\"\"fileupload\"\"\") > 0 Then
\'Stop løkken her
bolStopLoop = True
Else
\'Start igen umiddelbart efter denne Content, men før næste divider
intStartPos = intEndPos
End If
Loop Until bolStopLoop

\'Flyt intStartPos til efter Content-Disposition linjen
intStartPos = intStartPos + Len(strTemp) + 2

\'Ekstrakt POST filnavnet fra strTemp
arrSplit = Split(strTemp, \";\") \'Opdel strTemp ved ;: Content-Disposition: form-data; name=\"fileupload\"; filename=\"filen.txt\"

\'Find filnavnet fra filename= array
strTemp = \"\" \'Værdi ved fejl
For i = 0 To UBound(arrSplit) \'Køres for alle i denne array
If LCase(Left(Trim(arrSplit(i)), 9)) = \"filename=\" Then \'Står der filename= ?
strTemp = Trim(arrSplit(i))
Exit For
End If
Next

\'Afbryd hvis der ikke blev fundet noget filnavn
If strTemp = \"\" Or strTemp = \"filename=\"\"\"\"\" Then
FileUpload = 3
Exit Function
End If

\'Find filnavnet
arrSplit = Split(strTemp, \"\"\"\") \'Opdel streng ved \"
strTemp = arrSplit(UBound(arrSplit) - 1) \'Næstsidste indholder filnavn
arrSplit = Split(strTemp, \"\\\") \'Del ved alle \\ Så indeholder den sidste filnavn.ext\"
strFilename = arrSplit(UBound(arrSplit)) \'Hent den sidste array, der må være filnavnet

\'Dan det fulde outputfilnavn via MapPath
strFileSpec = Server.MapPath(LCase(strPath & strFilename)) \'LCase kan evt fjernes herfra

\'Hent Content-Type (uden vbCrLf)
strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))

\'Flyt intStartPos til efter Content-Type linjen
intStartPos = intStartPos + Len(strTemp) + 2

\'Ekstrakt POST Content-Type
arrSplit = Split(strTemp, \" \")
strContentType = arrSplit(UBound(arrSplit))

\'Skal Content-Type checkes?
bolContentTypeOK = False
If arrAcceptType(LBound(arrAcceptType)) <> \"\" Then
For Each strTemp In arrAcceptType
If strContentType = strTemp Then
bolContentTypeOK = True
End If
Next

\'Check: Er det en accepteret Content-Type?
If Not bolContentTypeOK Then
\'ContentType ikke fundet - Returner værdi og stop
FileUpload = 4
Exit Function
End If
End If

\'Skal ekstention checkes?
bolExtOK = False
If arrAcceptExt(LBound(arrAcceptExt)) <> \"\" Then
For Each strTemp In arrAcceptExt
If LCase(Right(strFilename, Len(strTemp))) = strTemp Then
bolExtOK = True
End If
Next

\'Check: Er det en accepteret ekstention?
If Not bolExtOK Then
\'Ekstention ikke fundet - Returner værdi og stop
FileUpload = 5
Exit Function
End If
End If

\'Find faktiske start/slut på datafilen ved at fjerne foranstillede og efterstillede vbCrLfB
intStartPos = intStartPos + 2
intEndPos = intEndPos - 2
intFileTotalBytes = intEndPos - intStartPos

\'Skal filstørrelsen checkes?
If intMaxSize > 0 Then
\'Check: Er filen for stor?
If intFileTotalBytes > intMaxSize Then
\'Filen er for stor - Returner værdi og stop
FileUpload = 6
Exit Function
End If
End If

\'Åbn, skriv og luk outputfilen
Set fs = CreateObject(\"Scripting.FileSystemObject\") \'Filsystem objekt
Set ts = fs.CreateTextFile(strFileSpec, True) \'Åbn outputfil, overskriv evt. eksisterende
For i = intStartPos To intEndPos - 1
ts.Write(Chr(AscB(MidB(bstrPostData, i, 1)))) \'Skriv data eet tegn af gangen
Next
ts.Close \'Luk outputfil

\'Check: Blev filen oprettet og har den samme størrelse?
Set f = fs.GetFile(strFileSpec)
If f.Size <> intFileTotalBytes Then
FileUpload = 7
Exit Function
End If

\'* Returner OK
FileUpload = 0
End If
End Function

\'* Funktion der oversætter en bstr binær streng til en almindelig streng
\'* Pas på med 00 værdier, da de fungerer som EOF i en almindelig streng
Function bin2str(bstrBinary)
Dim i
For i = 1 To LenB(bstrBinary)
bin2str = bin2str & Chr(AscB(MidB(bstrBinary, i, 1)))
Next
End Function

\'-------------------- Slut: fileupload.inc --------------------
%>

og min filemen_inc.asp ser sådan her ud:

<%
Sub EditDb
If fs.FileExists(server.mappath(dbfile)) Then
Response.Redirect dbfile & \"?db=\" & sFile
Else
Response.Write \"Database access er ikke instalere på server.\" &vbCrLf
End If
End Sub

Sub EditFile
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
Set ReadStream = fs.OpenTextFile(server.mappath(sFile))

Response.Write \"<p><a href=\"\"\" & Session(\"lastpage\") & \"\"\">..Tilbage...</a></p>\" &vbCrLf
Response.Write \"<form method=\"\"POST\"\" action=\"\"\" & scriptname & \"?action=savefile&path=\" & sPath & \"&file=\" & Request.Querystring(\"File\") & \"&overwrite=yes\"\">\" &vbCrLf
Response.Write \"<p><textarea rows=\"\"20\"\" cols=\"\"70\"\" name=\"\"filestuff\"\">\" & ReadStream.ReadAll & \"</textarea></p>\" &vbCrLf
Response.Write \"<p><input type=\"\"submit\"\" value=\"\"Gem\"\" name=\"\"submit\"\"> <input type=\"\"reset\"\" value=\"\"Gendan Orginal\"\" name=\"\"reset\"\"></p>\" &vbCrLf
Response.Write \"</form>\" &vbCrLf
End Sub

Sub CreateFile
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
Response.Write \"<p><a href=\"\"\" & Session(\"lastpage\") & \"\"\">..Tilbage...</a></p>\" &vbCrLf
Response.Write \"<form method=\"\"POST\"\" action=\"\"\" & scriptname & \"?action=savefile&path=\" & sPath & \"\"\">\" &vbCrLf
Response.Write \"<p><input type=\"\"text\"\" name=\"\"file\"\"></input> Skriv nyt fil navn her: (include extension)</p>\" &vbCrLf
Response.Write \"<p>type new file text here<br><textarea rows=\"\"20\"\" cols=\"\"70\"\" name=\"\"newfilestuff\"\"></textarea></p>\" &vbCrLf
Response.Write \"<p><input type=\"\"submit\"\" value=\"\"Create File\"\" name=\"\"submit\"\"></p>\" &vbCrLf
Response.Write \"</form>\" &vbCrLf
End Sub

Sub SaveFile
Response.Write sFile & \"<br>\"
If Request.Querystring(\"overwrite\") = \"yes\" Then
Set WriteFile = fs.CreateTextFile(server.mappath(Session(\"sFile\")), true)
WriteFile.Write Session(\"newfilestuff\")
WriteFile.Close
Response.Redirect(\"\" & Session(\"lastpage\") & \"\")
Else
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_Referer\")
If fs.FileExists(server.mappath(sFile)) Then
Session(\"sFile\") = sFile
Session(\"newfilestuff\") = Request.Form(\"newfilestuff\")
Response.Write \"<p>A file called <b>\" & sFile & \"</b> already exists!</p>\"
Response.Write \"<UL>\"
Response.Write \"<LI><a href=\"\"\" & scriptname & \"?action=savenewfile&overwrite=yes\"\">Overwrite Existing File</a>\"
\' We don\'t want to lose the information that the typed in the previous form if they decide NOT to overwrite the existing file, so we provide a javascript link back that works exactly the same as the browser\'s back button.
Response.Write \"<LI><a href=\"\"java script:history.back()\"\">Til sidste side</a></LI>\"
Response.Write \"</UL>\"
Else
Set WriteFile = fs.CreateTextFile(server.mappath(sFile), false)
WriteFile.Write Request.Form(\"newfilestuff\")
WriteFile.Close
Response.Redirect(\"\" & Session(\"lastpage\") & \"\")
End If
End If
End Sub

Sub CreateFolder
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
If fs.FolderExists(server.mappath(sFolder)) Then
response.write \"A folder called <b>\" & sFolder & \"</b> Findes allerede!<br>\"
Else
fs.CreateFolder(server.mappath(sFolder))
Response.Redirect(\"\" & Session(\"lastpage\") & \"\")
End If
End Sub

Sub DeleteFile
If Request.Querystring(\"commit\") <> \"yes\" Then
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
Session(\"sFile\") = sFile
Response.Write \"<p>Du skal til og slette \" & sFile & \". \"
If sFileType = \"jpg\" OR sFileType = \"gif\" Then
Response.Write \"<p><img src=\"\"http://\" & Request.ServerVariables(\"HTTP_HOST\") & sfile & \"\"\"></p>\"
End If
Response.Write \"<b>Denne handling kan ikke fortrydes.</b></p>\"
Response.Write \"<UL>\"
Response.Write \"<LI><a href=\"\"\" & scriptname & \"?action=deletefile&path=\" & sPath & \"&file=\" & sFile & \"&commit=yes\"\">Forsætte med at slette?</a></LI>\"
Response.Write \"<LI><a href=\" & Session(\"lastpage\") & \">Anulere sletning</a></LI>\"
Response.Write \"</UL>\"
Else
fs.DeleteFile(server.mappath(Session(\"sFile\")))
Response.Redirect(\"\" & Session(\"lastpage\") & \"\")
End If
End Sub

Sub DeleteFolder
If Request.Querystring(\"commit\") <> \"yes\" Then
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
Session(\"sFolder\") = sFolder
Response.Write \"<p>Du skal til og slette \" & sFolder & \". \"
Response.Write \"<b>Denne handling kan ikke fortrydes.</b></p>\"
Response.Write \"<UL>\"
Response.Write \"<LI><a href=\"\"\" & scriptname & \"?action=deletefolder&path=\" & sPath & \"&folder=\" & sFolder & \"&commit=yes\"\">Forsætte med at slette?</a></LI>\"
Response.Write \"<LI><a href=\" & Session(\"lastpage\") & \">Anulere sletning</a></LI>\"
Response.Write \"</UL>\"
Else
Response.Write sPath & \"<br>\"
Response.Write sFile & \"<br>\"
fs.DeleteFolder(server.mappath(Session(\"sFolder\")))
Response.Redirect(\"\" & Session(\"lastpage\") & \"\")
End If
End Sub

Sub FileTypeUnsupported
Session(\"lastpage\") = Request.ServerVariables(\"HTTP_REFERER\")
Response.Write \"Den fil du har valgt, kan ikke redigeres på denne server.\"
Response.Write \"<br>\"
If sFileType = \"jpg\" OR sFileType = \"gif\" Then
Response.Write \"<p><img src=\"\"http://\" & Request.ServerVariables(\"HTTP_HOST\") & sfile & \"\"\"></p>\"
End If
Response.Write \"<a href=\" & Session(\"lastpage\") & \">Return to Previous</a>\"
End Sub

Sub Size(itemsize)
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" &vbCrLf
Select case Len(itemsize)
Case \"1\", \"2\", \"3\"
Response.Write itemsize & \" bytes\"
Case \"4\", \"5\", \"6\"
Response.Write Round(itemsize/1000) & \" Kb\"
Case \"7\", \"8\", \"9\"
Response.Write Round(itemsize/100000) & \" Mb\"
End Select
Response.Write \"</td>\" &vbCrLf
End Sub

Sub ShowList
\' Create the header for each page so that we know where we are in the directory structure
If sPath = \"/\" Then
Response.Write \"<H1>Rood</H1>\" &vbCrLf
Else
Response.Write \"<H1>\" & sPath & \"</H1>\" & vbCrLf
End If

\' Create an upwards navigation link if we are not at the top level of the directory structure
If sPath <> \"/\" Then
Response.Write \"<p><a href=\"\"\" & scriptname & \"?action=viewfolder&path=\" & fs.GetParentFolderName(sPath) & \"\"\">En mappe ned</a></p>\" &vbCrLf
End If

\' Start building the table to display the information we retrieve about the files and folders in the current directory.
Response.Write \"<table cellpadding=\"\"2\"\" cellspacing=\"\"1\"\" width=\"\"100%\"\">\" &vbCrLf
Response.Write \"<tr>\" &vbCrLf
Response.Write \"<TH>Name</TH>\" &vbCrLf
Response.Write \"<TH>Type</TH>\" &vbCrLf
Response.Write \"<TH>Size</TH>\" &vbCrLf
Response.Write \"<TH>Date Created</TH>\" &vbCrLf
Response.Write \"<TH>Last Accessed</TH>\" &vbCrLf
Response.Write \"<TH>Last Modified</TH>\" &vbCrLf
Response.Write \"<TH>Attributes</TH>\" &vbCrLf
Response.Write \"<TH> </TH>\" &vbCrLf
Response.Write \"</tr>\" &vbCrLf

\' Use the GetFolder method of the filesystemobject to get the contents of the directory specified in sPath
Set fileobject = fs.GetFolder(server.mappath(sPath))

\' Use the SubFolders property to get the folders contained in the directory specified in sPath
Set foldercollection = fileobject.SubFolders

\' Start the code to alternate line colors - just to make the display a little less visually confusing.
lineid=0
bgcolor = \"\"
bgcolor_off = \"#FFFFFF\"
bgcolor_on = \"#9BC0F9\"

\' Loop through the folders contained in the foldercollection and display their information on the page
For Each folder in foldercollection
\' Apply our alternating line coloring
If lineid = 0 Then
bgcolor = bgcolor_off
lineid = 1
Else
bgcolor = bgcolor_on
lineid = 0
End if
Response.Write \"<tr bgcolor=\"\"#000000\"\">\" &vbCrLf
If Right(sPath,1)=\"/\" Then
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"left\"\" valign=\"\"bottom\"\"><a href=\"\"\" & scriptname & \"?action=viewfolder&path=\" & sPath & folder.name & \"\"\">\" & folder.name & \"</a></td>\" & vbCrLf
Else
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"left\"\" valign=\"\"bottom\"\"><a href=\"\"\" & scriptname & \"?action=viewfolder&path=\" & sPath & \"/\" & folder.name & \"\"\">\" & folder.name & \"</a></td>\" & vbCrLf
End If
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">folder</td>\"
Call Size(folder.size)
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & folder.datecreated & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & folder.datelastaccessed & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & folder.datelastmodified & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & folder.attributes & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\"><a href=\"\"\" & scriptname & \"?action=deletefolder&path=\" & sPath & \"&folder=\" & folder.name & \"\"\">Slet</a></td>\" &vbCrLf
Response.Write \"</tr>\" &vbCrLf
Next
Set foldercollection=nothing

\' Use the Files property to get the files contained in the directory specified in sPath
Set filecollection = fileobject.Files

\' Loop through the files contained in the filescollection and dislay their information on the page
For Each file in filecollection
\' Apply our alternating line coloring
If lineid = 0 Then
bgcolor = bgcolor_off
lineid = 1
Else
bgcolor = bgcolor_on
lineid = 0
End if
Response.Write \"<tr>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"left\"\" valign=\"\"bottom\"\"><a href=\"\"\" & scriptname & \"?action=editfile&path=\" & sPath & \"&file=\" & file.name & \"&filetype=\" & Lcase(fs.GetExtensionName(file.name)) & \"\"\">\" & file.name & \"</a></td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & fs.GetExtensionName(file.name) & \"</td>\" &vbCrLf
Call Size(file.size)
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & file.datecreated & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & file.datelastaccessed & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & file.datelastmodified & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\">\" & file.attributes & \"</td>\" &vbCrLf
Response.Write \"<td bgcolor=\"\"\" & bgcolor & \"\"\" align=\"\"center\"\" valign=\"\"bottom\"\"><a href=\"\"\" & scriptname & \"?action=deletefile&path=\" & sPath & \"&file=\" & file.name & \"&filetype=\" & Lcase(fs.GetExtensionName(file.name)) & \"\"\">Slet</a></td>\" &vbCrLf
Response.Write \"</tr>\" &vbCrLf
Next

\' We are done displaying information about files and folders in this directory, so close the table.
Response.Write \"</table>\" &vbCrLf

\' Create controls to allow us to create a new file in the current directory

Response.Write \"<p><a href=\"\"\" & scriptname & \"?action=newfile&path=\" & sPath & \"\"\">Opret en ny fil, i denne mappe.</a>.</p>\" &vbCrLf

\' Create controls to allow us to create a new folder in the current directory
Response.Write \"<p><b></b><br>\" &vbCrLf
Response.Write \"<form method=\"\"POST\"\" action=\"\"\" & scriptname & \"?action=newfolder&path=\" & sPath & \"\"\">\" &vbCrLf
Response.Write \"<input type=\"\"text\"\" value=\"\"Ny Mappe\"\" name=\"\"Mappe\"\"></input> \" &vbCrLf
Response.Write \"<input type=\"\"submit\"\" value=\"\"Opret en mappe\"\" name=\"\"submit\"\"></input></form></p>\" &vbCrLf
End Sub

Sub DisplayErrors
Response.Write \"Du har forsøgt \" & errornum & \" prohibited action(s).\"
Response.Write \"<ul>\" & errorcode & \"</ul>\" & vbCrlf
End Sub
%>

Synes godt om

sone Nybegynder

19. april 2001 - 09:19 #1

Siden ingen andre har kommenteret det, så gør jeg det lige:

Tror du virkelig at folk gider glo din kode igennem ??

Et par råd:
- Vis kun relevant kode.
- Beskriv hvilken linie som udskriver fejlen og henvis direkte i koden.

Synes godt om

ellebaek Nybegynder

22. april 2001 - 16:25 #2

starf din knald ...

havde du ikke slettet det i din kode, i fileupload.inc, som er væsentligt er det klart du ikke forstår det ...

sådan går det når man tager andre folks scripts ...

men kan fortælle dig at din fejl er:
* 1 Request fra bruger gik galt

Så du har enten fucket dit script up big time, eller også har du på en eller anden ¨måde fået siden til at slette dine former, inden de kom videre !

Synes godt om

ellebaek Nybegynder

22. april 2001 - 16:27 #3

På en af de her sider kan du finde scriptet der virker, men det ved du jo nok ...

http://www.activeserverpages.dk/aspdigital/kapitel6/upload_write.asp

http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=79
lad mig gætte ...
det er nok den sidste du har hentet det fra ... Men du ville få det til at se ud som om du lavede det selv ...
En typisk Wannabe handling :-)

Synes godt om

starf Nybegynder

23. april 2001 - 01:24 #4

ellebaek....
hæhæ nope havde jeg ikke.. Problemet var sku at nogle servere vil det ikke virke op, og på andre vil det... underligt.. men tror det har noget at gøre med om det er win eller linux server..

Synes godt om

ellebaek Nybegynder

23. april 2001 - 08:12 #5

det kan det sagtens have, men jeg tror at dit problem er at... du ikke har skrive rettighed på serveren !!
det er meget vigtigt at have for at kunne uploade til serveren....

Synes godt om

starf Nybegynder

23. april 2001 - 12:37 #6

Hmm det kan også godt værer...
men arg hvorfor er der ikke en luk funktion ?.. istedet for man skal oprette svar selv..

Synes godt om

ellebaek Nybegynder

24. april 2001 - 12:02 #7

æhm ...
fordi det er meningen at man ikke skal lukke et spørgsmål, men i stedet give points til en der har svaret noget du kan bruge ...

Synes godt om

starf Nybegynder

24. april 2001 - 23:15 #8

det er der jo ingen af der jer har ?..
btw syntes godt at Eksperten kunne lave nogle retnings linier over brugen...
men der er jo ingen af jer der har været tæt på mde en løsning

Synes godt om

ellebaek Nybegynder

25. april 2001 - 08:42 #9

æhm ...
det med at du ikke har skriverettigheder på serveren ... er faktisk meget tæt på !!

Synes godt om

starf Nybegynder

25. april 2001 - 13:59 #10

Tjaaa... ok... så la mig give dig dine point..
hvordan gør man så ? oprettet et nyt spørgsmål eller?

Synes godt om

ellebaek Nybegynder

26. april 2001 - 07:59 #11

ja ...

det er det nemmeste...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS