我用ASP做了一个上传文件的小程序,在本服务器上测试正常,可到客户机上老是上传失败,请问是什么原因呀?
这是主要程序的代码,请大家看一下。
<% language=VBScript %>
<%
call upLoad
'**********************************************************************
Private Function getFileName(ByVal strFile)
'本函数用来取得上传文件名称
If strFile <> "" Then
getFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
getFileName = ""
End If
End function
'************************************************************************
private sub upLoad()
on error resume next
'用来执行上传文件的代码
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
'保存文件到服务器
fn=cstr(month(date))+"月"+cstr(day(date))+"日"
If (CreateObject("Scripting.FileSystemObject").FolderExists("D:\商丘ftp\下传\"&fn)) Then
objStream.SaveToFile "D:\商丘ftp\下传\"& fn &"\"& getFileName(strFileName),2
objStream.Close
if err = 0 then
response.write "上传成功!"
else
response.write "上传失败!"
end if
set objStream = nothing
else
CreateObject("scripting.FileSystemObject").createfolder "d:\\商丘ftp\下传\"&fn
objStream.SaveToFile "D:\商丘ftp\下传\"&fn&"\" & getFileName(strFileName),2
objStream.Close
if err = 0 then
response.write "上传成功!"
else
response.write "上传失败!"
end if
set objStream = nothing
end if
End Sub
'**************************************************************************
%>
出错的原因好像是在客户端获取了文件路径以后,服务器执行的时候调用的是服务器上的资源,那位高手能把程序修改一下,实在可以在客户端上传的功能吗?分不够可以再加。