服务器端可以,为什么客户端不行
学习用下面的代码来上传本地文件到服务器上的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>