ASP无组件上传中的目录问题

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_5xSoft_Stream.EOS then Exit for
c=ascB(upfile_5xSoft_Stream.Read(1))
If c > 127 Then
if upfile_5xSoft_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function

Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
if i>upfile_5xSoft_Stream.size then exit Function
upfile_5xSoft_Stream.Position=i-1
if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_5xSoft_Stream.EOS then
inString=0
Exit for

'我们两个人貌似用的是同样的代码
'你看一下你所指定的FullPath的值是什么
'下面的函数SaveAs貌似用来保存文件的
'FullPath是这个函数的一个参数（建议给每行代码都加上注释）是保存路径用的时候要写成相对路径，还要注意把FullPath指向的文件夹的'权限的给够不然同样写不进去文件。
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="updata" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.copyto dr,FileSize
dr.SaveToFile FullPath,2 出错行
dr.Close
set dr=nothing
SaveAs=0
end function

楼主的问题,我也曾经遇到过,请把存放图片资料夹的安全性权限设置一下,就OK喽.

ASP无组件上传中的目录问题 asp 无组件上传问题?急 ASP无组件上传出现的问题 关于ASP无组件上传的问题~ asp无组件上传图片问题 ASP无组件与有组件上传问题 asp无组件上传源码 asp无组件上传图片 化境ASP无组件上传 ★关于ASP无组件上传问题-紧急