达人帮忙

<%
'无组件上传
     Function GetFileName(ByVal strFile)
      If strFile <> "" Then
        GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
       Else
         GetFileName = ""
     End If
    End  function

   'dim uppath
   'uppath="D:\upload\upload\" & GetFileName(strFileName)
     strFileName = Request.Form("upload")
     Set objStream = Server.CreateObject("ADODB.Stream")
     objStream.Type = 1 ' adTypeBinary
     objStream.Open
     objStream.LoadFromFile strFileName
     objStream.SaveToFile Server.MapPath("upload\" & GetFileName(strFileName)),2
     objStream.Close
%>

<%
   '添加必要的信息
  
   paddress=server.MapPath(GetFileName(strFileName))
    rs.addnew
   rs("software-name")=cname
   rs("software-company")=ccomp
   rs("software-intro")=cintro
   rs("software-init")=pdate
   rs("software-state")=pstate
   rs("software-address")=paddress//感觉这里有错
   rs("sclass")=pclass
   rs("software-size")=csize
   rs("upload-person")=pupload
   
   rs.update


愿意是：文件上传后，并不能放到D://upsystem/upload这个目录下
总是在D://system这个目录下
达人帮忙解决一下。
在线等

你并没有给出路径D://upsystem/upload啊
D:\upload\upload\???

给了
我刚才研究后发现 把
paddress=server.MapPath(GetFileName(strFileName)) 改为

paddress=server.MapPath("upload\" & GetFileName(strFileName))

就OK了

谢谢了啊