服务器端可以，为什么客户端不行

     学习用下面的代码来上传本地文件到服务器上的upload目录下，发现在服务器上操作可以成功，但
在客户端就是不行，这是为什么，请指点，急！
<%
Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
  Else
   GetFileName = ""
  End If
End  function

Function upupup(f)
dim ppp
response.write(GetFileName(f))
ppp =Server.MapPath("./upload/")&"\"&GetFileName(f)
response.write(ppp)  
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
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")) )%>
<table>
<tr>
<td width=200></td>
<td>
<form name="FORM" action="" method="post" align=center>
 <input type="file" name="f" style="width:400"  value="">
 <input type="submit" name="submit" value="上传">
</form>
</td>
</tr>
</table>