图片保存？请帮助/在线等待

[muqun]

我想把上传的图片保存在一个叫pic的文件夹里。这下这是不会存在pic里为什么？
<form method="post" action="upload.asp?act=upload" enctype="multipart/form-data" name="form1">
<input type=file name="filename" size="30" style="border:1px double rgb(88,88,88);font:9pt">
<input type="submit" name="submit" value="上传" style="border:1px double rgb(88,88,88);font:9pt">
</form>
<%
if Request("act") = "upload" then
set upload=new upfile_class ''建立上传对象
upload.GetData(104857600) '取得上传数据,限制最大上传100M
if upload.err > 0 then '如果出错
select case upload.err
case 1
response.write "请先选择你要上传的文件！"
case 2
response.write "你上传的文件总大小超出了最大限制（100M）"
end select
response.end
end if
dim filename
filename="../pic/" '''''''''''''''''这句定义是否错了。
set upfile=upload.file("filename") '生成一个文件对象,这里的filename应该是表单中file名称
if upfile.filesize<1 then '判断是否有文件上传
Response.Write("请先选择你要上传的文件！")
Response.End
end if
fileExt=lcase(upfile.FileExt) '取得文件格式
if fileEXT<>"gif" and fileEXT<>"jpg" then '检查文件格式
Response.Write("文件格式不对")
Response.End
end if
randomize
ranNum=int(900*rnd)+100 '产生一个随即数
'产生随机文件名
strName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
upfile.SaveToFile Server.mappath(strName) '保存文件
Response.Write("文件原称: "&upfile.FileName) '文件原名称
Response.Write("<br>文件原路径: "&upfile.FilePath&upfile.FileName) '文件原路径
Response.Write("<br>文件新名称: "&strName) '文件新名称
Response.Write("<br>文件新路经: "&server.Mappath(strName)) '文件新路经
Response.Write("<br>文件大小: "&upfile.FileSize) '文件大小
Response.Write("<br>文件类型: "&upfile.FileType) '文件类型
Response.Write("<br>文件扩展名: "&upfile.FileExt) '文件扩展名
Response.Write("<br><a href=upload.asp?act=del&file="&strName&">上传成功,点这里删除</a><br>")
Response.Write( "<img src="&strName&">" ) '输出图像
set upfile=nothing '释放对象
set upload=nothing '释放对象

elseif Request("act") = "del" then '删除文件
strName = Request("file")
set fso=createobject("scripting.filesystemobject")
if fso.fileexists(server.MapPath(strName)) then '检查文件是否存在
fso.Deletefile(server.MapPath(strName)) '如果存在则删除文件
Response.Write("文件删除成功")
else '否则不存在
Response.Write("文件不存在,无法删除")
end if
set fso=nothing '释放对象
end if
%>

[nbchp]

filename="../pic/" '''''''''''''''''这句定义是否错了。
改成 filename="pic/" ‘看看。

[xiaoxo]

dim path=../pic/
把(server.MapPath(strName))改为 (server.MapPath(path&strName))