ASP文件上传神功 首重（单个图片上传到数据库）

" & posE & "<br>"

sCome.Position = posB+1
sCome.CopyTo sGo,posE-posB-2
sGo.Position = 0
sGo.Type = 2
sGo.Charset = "gb2312"
strData = sGo.ReadText
sGo.Close

'response.Write strData & "<hr>"

posSB = 1
posSB = instr(posSB,strData,"filename=""") + len("filename=""")
posSE = instr(posSB,strData,"""")

if posSE > posSB then
strPath = mid(strData,posSB,posSE-posSB)
'response.Write "本地路径：" & strPath & "<br>"
'response.Write "文件名：" & getFileNamefromPath(strPath) & "<br>"

posB = posE
posE = instrb(posB+1,binData,binCrlf)
'response.Write posB & "

关键词：ASP文件上传神功 首重（单个图片上传到数据库）