적수네 동네 - 질문과 답변

	>> Read Reply from No. 43568 article
RE: [질문]누가 ftp에 자꾸 똑같은 파일을 올려서여

등록 2002-03-02 02:45:00 조회 2
이름 JJiNEY

		그거 아마두.....
하드디스크의 빈공간을 체크하는 스크립트같습니다.
 ptf 파일은 잘 모르겠구요..
혹시 ftp에다가 익명접속 허용해노신거 아니에요 ??
 요즘 warez 하는 사람들이 어디 아무데나 공섭 찾아가지구..
자료 올리고 받고 그런짓 많이 합니다.
 그런 사람들이 공섭 찾기위해 올리는 스크립트 아닐까요 ??
 :  제가 proftp를 사용하는데여 누가 자꾸 똑같은 파일을 올리는데
: 하나는 asp파일이구여 두개는 ptf파일인데 이 두개 파일은 모하는건지여?
: asp파일의 내용은 담과 같습니다.....혹시 이 파일이 모하는 건지
: 아시는 분 있음 부탁드립니당...^^
:
: <%
: 'Drive information script by Garet Jax
: Response.Write "<html><head><title></title></head><body>"
: Response.Write "<font face=arial>Server Software:"&
Request.ServerVariables("SERVER_SOFTWARE") &"<br>Drive Information
for: "& Request.ServerVariables("SERVER_NAME") &"<br>"
: Response.Write "<table border=1 cellpadding=3 cellspacing=0
bordercolor=Black>"
: Response.Write "<tr><td nowrap><font
face=arial><b>Driveletter</td><td nowrap><font face=arial><b>Drive
Type</td><td nowrap><font face=arial><b>Volume Name</td><td
nowrap><font face=arial><b>Total Space</td><td nowrap><font
face=arial><b>Available Space</td><td nowrap><font face=arial><b>File
System</td><td nowrap><font face=arial><b>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><font face=arial size=2><A
href='dirwalkR.asp?id="& d.DriveLetter &"'>"& 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><font face=arial size=2>"& dtype
&"</td><td nowrap><font face=arial size=2>"& dname &"</td><td
nowrap><font face=arial size=2>"& Round(total,1) &" <font
size=1>Megabytes</td><td nowrap><font face=arial size=2>"& Round
(free,1) &" <font size=1>Megabytes</td><td nowrap><font face=arial
size=2>"& d.FileSystem &"</td><td nowrap><font face=arial size=2>"&
d.SerialNumber &"</td></tr>"
: Else
: 	Response.Write "<td nowrap><font face=arial size=2>"&
d.DriveLetter &"</td><td colspan=6><font face=arial size=2>Drive not
ready</td></tr>"
: End If
: End If
: Next
: Response.Write "</table>"
: Response.Write "</body></html>"
: %>
:
: --
: -------------------------------------------
: Are you linuxer?
: i am linuxer...^^
: -------------------------------------------

	이름 암호

>> 관련글


43568	[질문]누가 ftp에 자꾸 똑같은 파일을 올려서여	ddajo	2002.03.02	....1

	RE: [질문]누가 ftp에 자꾸 똑같은 파일을 올려서여	JJiNEY	2002.03.02	....1

목록보기 윗글 아랫글
글쓰기 답장쓰기 수정 삭제

페이지로딩: [ 1.54 초 ] 작업시간: [ 0.43 초 ]