'=====重命名文件操作
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