核心提示：這個程序只有一個功能，就是實現遠程Web方式刪除文件（實際上是重命名文件，但效果和刪除一樣）的操作。

這是一個很和諧很實用的網站管理程序，和我以前介紹的服務器管理程序不同的是，這個程序只有一個功能，就是實現遠程Web方式刪除文件（實際上是重命名文件，但效果和刪除一樣）的操作。功能簡單實用，適合所有的支持ASP的中文網站。

這個程序是基于這樣一個應用場景：假如工作幾個月好不容易有了一個放假的日子，周末的時候你隨旅游團去千里之外的張家界旅游，當你正在登山索道上觀賞周邊風景的時候，電話響了，你接到你托管服務器機房IDC的電話，說你的網站上有一條有害信息，需要立刻刪除，并將該信息的鏈接地址發送給你，如果半小時內不刪除的話，你的服務器就要被立刻拔網線。

而此時，你在深山老林里找到最近的一個能上網的場所也要好幾個小時，并且這會將你原來興致勃勃的旅行計劃全盤打亂，多么令人掃興和煩惱的事情啊。

如果你在網站上安裝了這個小程序就輕松多了，打開手機，輸入這個程序的地址，登錄后，輸入要處理鏈接的“相對地址”，然后點“刪除”，就可以將這個文件刪除了（實際上是重命名操作），并且留有備份，以備將來處理。

使用方法很簡單，將下面的代碼復制出來，命名為一個ASP文件，修改用戶登錄密碼為你自己記得住的一個密碼，然后上傳到你網站的根目錄下，之后就可以使用手機遠程操作了。

程序的源代碼如下：

response.charset="GB2312"
response.buffer = True
FileName = request.ServerVariables("URL")
'=====用戶登錄密碼
userpass = "password"
If request.querystring("action") = "login" Then
If request.Form("loginpass") = userpass Then
session("password") = userpass
response.redirect FileName
Else
response.write "驗證未通過."
response.end
End If
ElseIf request.querystring("action") = "do" Then

'=====重命名文件操作
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath(request.Form("filename"))
NFile = SFile & ".bak"
On Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
response.write SFile & "文件不存在."
ElseIf Err.Number <> 0 Then
response.write "發生錯誤. 請查看錯誤信息：" & Err.Number & " " & Err.Description
Err.Clear
Else
response.write "成功重命名文件 " & SFile & " 為 " & NFile & ""
End If

response.end

'=====登陸驗證密碼
Else
If session("password") <> userpass Then
response.write "<form action=" & FileName & "?action=login method='post'>需要密碼：<input name='loginpass' type='password'>&nbsp<input type='submit' value='登錄'></form>"
Else
response.write "<form action=" & FileName & "?action=do method='post'> "
response.write "<input type=text name=filename><br><input type=submit value='刪除'></form>"
End If
End If

（作者博客：www.williamlong.info）