核心提示：这个程序只有一个功能，就是实现远程Web方式删除文件（实际上是重命名文件，但效果和删除一样）的操作。 这是一个很和谐很实用的网站管理程序，和我以前介绍的服务器
|
|
核心提示：这个程序只有一个功能，就是实现远程Web方式删除文件（实际上是重命名文件，但效果和删除一样）的操作。
这是一个很和谐很实用的网站管理程序，和我以前介绍的服务器管理程序不同的是，这个程序只有一个功能，就是实现远程Web方式删除文件（实际上是重命名文件，但效果和删除一样）的操作。功能简单实用，适合所有的支持ASP的中文网站。
这个程序是基于这样一个应用场景：假如工作几个月好不容易有了一个放假的日子，周末的时候你随旅游团去千里之外的张家界旅游，当你正在登山索道上观赏周边风景的时候，电话响了，你接到你托管服务器机房IDC的电话，说你的网站上有一条有害信息，需要立刻删除，并将该信息的链接地址发送给你，如果半小时内不删除的话，你的服务器就要被立刻拔网线。
而此时，你在深山老林里找到最近的一个能上网的场所也要好几个小时，并且这会将你原来兴致勃勃的旅行计划全盘打乱，多么令人扫兴和烦恼的事情啊。
如果你在网站上安装了这个小程序就轻松多了，打开手机，输入这个程序的地址，登录后，输入要处理链接的“相对地址”，然后点“删除”，就可以将这个文件删除了（实际上是重命名操作），并且留有备份，以备将来处理。
使用方法很简单，将下面的代码复制出来，命名为一个ASP文件，修改用户登录密码为你自己记得住的一个密码，然后上传到你网站的根目录下，之后就可以使用手机远程操作了。
程序的源代码如下：
response.charset="GB2312"
response.buffer=True
FileName=request.ServerVariables("URL")
'=====用户登录密码
userpass="password"Ifrequest.querystring("action")="login"Then
Ifrequest.Form("loginpass")=userpassThen
session("password")=userpass
response.redirectFileName
Else
response.write"验证未通过."
response.end
EndIf
ElseIfrequest.querystring("action")="do"Then
'=====重命名文件操作
Setfs=Server.CreateObject("Scripting.FileSystemObject")
SFile=Server.MapPath(request.Form("filename"))
NFile=SFile&".bak"
OnErrorResumeNext
fs.MoveFileSFile,NFile
IfErr.Number=53Then
response.writeSFile&"文件不存在."
ElseIfErr.Number<>0Then
response.write"发生错误.请查看错误信息："&Err.Number&""&Err.Description
Err.Clear
Else
response.write"成功重命名文件"&SFile&"为"&NFile&""
EndIf
response.end
'=====登陆验证密码
Else
Ifsession("password")<>userpassThen
response.write"<formaction="&FileName&"?action=loginmethod='post'>需要密码：<inputname='loginpass'type='password'> <inputtype='submit'value='登录'></form>"
Else
response.write"<formaction="&FileName&"?action=domethod='post'>"
response.write"<inputtype=textname=filename><br><inputtype=submitvalue='删除'></form>"
EndIf
EndIf
（作者博客：www.williamlong.info）
(责任编辑：admin)
