asp图片上传至数据库代码

upload_5xsoft的改进版，在页面中引用它就可以了，如果需要例子的话，请与我联系：QQ：35277427

dim user_id
user_id=GetSession()

dim Data_5xsoft

Class upload_5xsoft

dim objForm,objFile,Version

Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function

Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function

Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
'------------------------------------------------扩展功能,定义新的属性----------------------
dim RequestBin
RequestBin = Request.BinaryRead(Request.TotalBytes)

'--------------