关于ASP上传图片到access

表中增加一个字段：imgname

然后修改UPLOAD。ASP
<%
formsize=request.totalbytes
formdata=request.binaryread(formsize)
'取得文件名
imgname=replace(request("imgurl"),"/","\") '统一路径中用\
imgnamearr=split(imgname,"\") '以\为分隔符转为数组
imgname=imgnamearr(UBound(imgnamearr)) '取最后一个

bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs("imgname")=imgname
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "index.asp"
%>

没经过测试不知道运行有没错误，但思路是对的。