ASP如何对图片进行存储希望有详细的代码``

UploadImages.asp 这个文件是一个上传表单:
<form name="form1" enctype="multipart/form-data" method="post" action="ReadImg.asp?id=<%=id%>">
<input name="filename" type="file" size="20">
<input type="submit" name="Submit" value="上传">
</form>

ReadImg.asp 这个文件开始接受表单数据开始上传存储2进制数据:

<%
if request.QueryString("id")<>"" then
Dim pid
pid = Replace(Request.QueryString("id"),"'","");
formsize=request.totalbytes
formdata=request.binaryread(formsize)
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.recor