[問問] 關於匿名上傳區

看板FTP (FTP交流分享)作者gary1144 (KP)時間17年前 (2008/08/05 22:06)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串1/2 (看更多)

因為要讓朋友方便上傳所以有設匿名上傳區不過常常都會有不知名的電腦丟1mbtest.ptf和space.asp 後來以防電腦安全，都有鎖ip以及鎖這兩個檔案不過還是很好奇想請問一下有沒有大大知道這兩個檔案是做啥用的謝謝^_^ --------------------下面是space.asp的內容-------------------- <% 'Drive information script by Garet Jax Response.Write "<html><head><title></title></head><body>" Response.Write "Server Software: "& Request.ServerVariables("SERVER_SOFTWARE") &" Drive Information for: "& Request.ServerVariables("SERVER_NAME") &" " Response.Write "<table border=1 cellpadding=3 cellspacing=0 bordercolor=Black>" Response.Write "<tr><td nowrap>Driveletter</td><td nowrap>Drive Type</td><td nowrap>Volume Name</td><td nowrap>Total Space</td><td nowrap>Available Space</td><td nowrap>File System</td><td nowrap>Serial #</td></tr>" Set fs = CreateObject("Scripting.FileSystemObject") Set drv = fs.Drives For each d in drv If d.Driveletter <> "A" Then If d.IsReady = True Then freespace = (d.AvailableSpace / 1024) free = (freespace / 1024) totalspace = (d.TotalSize / 1024) total = (totalspace / 1024) Response.Write "<tr><td nowrap><A href='dirwalkR.asp?id="& d.DriveLetter &"'>"& d.DriveLetter &"</a></td>" If d.DriveType = 3 Then dtype = "Network" If d.ShareName = "" Then dname = " " Else dname = d.ShareName End If ElseIf d.DriveType = 0 Then dtype = "Unknown" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 1 Then dtype = "Removeable" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 2 Then dtype = "Fixed" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 4 Then dtype = "CD-Rom" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 5 Then dtype = "RAM Disk" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If End If Response.Write "<td nowrap>"& dtype &"</td><td nowrap>"& dname &"</td><td nowrap>"& Round(total,1) &" Megabytes</td><td nowrap>"& Round(free,1) &" Megabytes</td><td nowrap>"& d.FileSystem &"</td><td nowrap>"& d.SerialNumber &"</td></tr>" Else Response.Write "<td nowrap>"& d.DriveLetter &"</td><td colspan=6>Drive not ready</td></tr>" End If End If Next Response.Write "</table>" Response.Write "</body></html>" %> ※ 編輯: gary1144 來自: 122.100.107.241 (08/05 22:07)