急求asp的图片上传源代码。不要求写入数据库，把如片上传到服务的某个目录就可以！帮个忙啊！

<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

Function upupup(f)
dim ppp
ppp = Server.MapPath(GetFileName(f))
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile f
objStream.SaveToFile ppp,2
objStream.Close
upupup = ppp
End Function
%>

<%if Request.Form("f")<>"" then response.write( upupup(Request.Form("f")) )%>

<form name="FORM" action="" method="post">
<input type="file" name="f" style="width:400" value="">
<input type="submit" name="submit" value="