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

" & posE & "<br>"

sGo.Type = 1
sGo.Mode = 3
sGo.Open

sCome.Position = posB
sCome.CopyTo sGo,posE-posB-1

sGo.Position = 0
sGo.Type = 2
sGo.Charset = "gb2312"
strData = sGo.ReadText
sGo.Close

strContentType = mid(strData,16) '此处因为固定的，所以省略查找 :-)
'response.Write "图片类型：" & strContentType & "<hr>"

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

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