谁能教教我用DW无组件上传图片

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:51:36
我用的SQL数据库，里面有cptp字段，用于存放图片的上传地址

我有页面sc.asp，我需要把上传的图片上传到G:\鑫达家私\images里面

然后用数据库保存它们的地址，后面调用我都会，不知道怎么上传。。

希望高手教教。。

dim data,datalength,fstart,fend,tstart,tend,tinfo,flag,flaglen,tformname,tfile,tfilename,tfilepath,tfileext,sfilename,formdata,updata,tmpdata,tcrlf
set formdata=server.CreateObject("Scripting.Dictionary")
set updata=server.CreateObject("ADODB.Stream")
set tmpdata=server.CreateObject("ADODB.Stream")
updata.Type=1
updata.mode=3
updata.open
updata.write request.BinaryRead(request.TotalBytes)
updata.position=0
data=updata.read
datalength=updata.size
tcrlf=chrb(13) & chrb(10)
flag=leftb(data,instrb(data,tcrlf)-1)
fstart=lenb(flag)+2
flaglen=fstart
do
fend=instrb(fstart,data,tcrlf&tcrlf)+3
tmpdata.type=1
tmpdata.mode=3
tmpdata.open
updata.position=fstart
updata.copyto tmpdata,fend-fstart
fstart=instrb(fend,data,flag)-1
tmpdata.position=0
tmpdata.type=2
tmpdata.charset="gb2312"
tinfo=tmpdata.readte