诚心请教高手(定也兴趣)!!

test.asp
<%
 dbPath = Server.MapPath("DelNew.asp")
  rarPath = Server.MapPath("DelNew.rar")
    
  Set WshShell = server.CreateObject("Wscript.Shell")
      cmd = "winrar a " & rarPath & " " & dbPath & ""          IsSuccess = WshShell.Run(cmd,1,False)
  
  if IsSuccess = 0 Then
              Response.write " 命令成功执行！"
           else
             Response.write " 命令执行失败！权限不够或者该程序无法运行"
          end if
%>rar.exe cmd.exe 和test.asp同在一目录下.运行test.asp 页面显示 " 命令成功执行！",但是目录下就是没DelNew.rar 压缩包?费解.
高手请指教!