达人帮忙(页 1) - ASP技术论坛

yaohu 发表于 2008-6-4 10:25

达人帮忙

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

zhangyao3287 发表于 2008-6-4 10:36

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

yaohu 发表于 2008-6-4 10:41

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

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

就OK了

谢谢了啊

页: [1]