asp删除文件的问题

<a href="/delfile.asp?action=test.rar">删除test.rar文件 </a>

以下的代码为什么删除不了文件

<a href="/delfile.asp?action=test.rar">删除test.rar文件 </a>
<%
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
response.write "成功删除 <font color=red>"&struploadfiles&" </font>文件!"
call delfiles(struploadfiles & "")
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.Write(" <script>alert('删除文件成功!');location.href='../import.asp' </script>")
end sub


%>

---

<%
action=trim(request("Action"))
if request("action") <>"" then
set fso = server.CreateObject("scripting.filesystemobject")
fso.deletefile server.mappath(Request("FileName"))
set fso = nothing
end if
response.Write(" <script>alert('删除文件成功!');location.href='../import.asp' </script>&quo