学习用下面的代码来上传本地文件到服务器上的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>

    是这样的，我在服务端机器上打开网页，尝试上传文件，可以进行
    可到其他机器上登录该网页，上传文件就不行，这是为什么呢？
    文件夹的权限我已经开放给了来宾账户了
    网上也有人说可能是ado控件的问题
    可如果是控件的问题，服务器上测试的挺好的啊

[ 本帖最后由 jsyz_zg 于 2010-1-29 10:03 编辑 ]