达人帮忙

<%
 '无组件上传
     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这个目录下
达人帮忙解决一下。
在线等