FTP-implementation
Jeg har en implementation af en FTP, som tilsyneladende skulle virke. Men nåt jeg kører den vha. http://b211/FtpBrowser.asp, så siger den, at der er for mange brugere på siden. Men der er kun mig. Hvorfor kan jeg ikke få siden til at fungere?<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Sub skrivDrev()
set drv = fs.Drives
Response.Write "<IMG SRC=""folder_open.gif"" border=0 align=absmiddle vspace=3>" & f.path & "<br>"
for each d in drv
Response.Write d.Sharename
Response.Write "<a href=""FtpBrowser.asp?sti=" & d.DriveLetter & ":/"">" & d.DriveLetter & "</a> "
next
Response.Write "<a href=""FtpBrowser.asp?sti=" & server.MapPath("/") & """>ROOT</A> "
Response.write "<a href=""FtpBrowser.asp?sti="
if not f.IsRootFolder then
Response.write f.ParentFolder
end If
Response.Write """>[..]</a>"
End Sub
Sub skrivSubFolder()
i = 0
Response.Write "<table border=0 cellpadding=5><tr><td valign=top>"
For Each f1 in fc
if i mod 10 = 0 then
s = s & "</td><td valign=top>"
end If
i = i + 1
s = s & "<a href=""FtpBrowser.asp?sti=" & sti & "\" & f1.name & """><IMG SRC=""folder_closed.gif"" border=0 align=absmiddle vspace=3>" & f1.name & "</a>"
s = s & "<BR>"
Next
i = i - 1
while not i mod 10 = 0
s = s & "</TD><td></td>"
i = i + 1
wend
s = s & "</TR></TABLE>"
Response.write s
End Sub
Sub skrivfiler()
ReDim fileNames(f.files.count)
ReDim fileSize(f.files.count)
ReDim fileType(f.files.count)
ReDim fileDateLastModified(f.files.count)
i = 0
For Each fldr in f.files
fileNames(i) = fldr.name
fileSize(i) = fldr.size
fileType(i) = fldr.Type
fileDateLastModified(i) = fldr.DateLastModified
i = i + 1
Next
response.write "<table bgcolor=c3c3c3><TR class=buttons><td>Name:</TD><TD>Size</TD><TD>LastModified</TD><TD>Type</TD></TR>"
For i = f.files.count - 1 to 0 step -1
response.write "<TR><td bgcolor=FFFFFF>"
response.write fileNames(i) & "</TD>"
response.write "<TD class=buttons>" & fileSize(i) & "</TD>"
response.write "<TD bgcolor=FFFFFF>" & fileDateLastModified(i) & "</TD>"
response.write "<TD bgcolor=FFFFFF>" & fileType(i) & "</TD></TR>"
Next
response.write "</TABLE>"
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Ftp</title>
<link rel="stylesheet" type="text/css" href="arkiv.css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
abc
Testing!-
<%
'if Request.QueryString("sti") > "" then
' sti = Request.QueryString("sti")
'else
' sti = Server.MapPath(".")
'End IF
'Dim fs, f, fc ,sti
'set fs = CreateObject("Scripting.FileSystemObject")
'set f = fs.GetFolder(sti)
'Set fc = f.SubFolders
'skrivDrev
'skrivSubFolder
'Response.Write "</TD></TR></TABLE>"
'Response.Write "<p><table class=beskrivelse style=""font-size: 8px""><tr><TD>"
'skrivfiler
'Response.Write "</TD></TR></TABLE>"
%>
</body>
</html>
Og fejlen kommer jo så selvfølgelig, når jeg ophæver udkommenteringerne i scriptkoden i body-delen lige efter
"abc
Testing!-".
