sub photoadd
title=Trim(Request.QueryString("Title"))
picgroup=Trim(Request.QueryString("picgroup"))
readme=Trim(Request.QueryString("readme"))
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)'上面总共是取得图片的二进制数据
sql="select title,picgroup,pic,picsize,viewtype,readme from [Photo] order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs(0)=title
rs(1)=picgroup
rs(2).appendchunk mydata
rs(3)=formsize
set r=conn.execute("select viewtype from [picgroup] where title='"&picgroup&"'")
if not(r.bof and r.eof) then
rs(4)=r(0)
end if
r.close
rs(5)=readme


解释一下这段代码是啥意思，我主要是找到那个限制图片大小的代码。谢谢

sub photoadd
title=Trim(Request.QueryString("Title"))
'接受传来的字符串！
picgroup=Trim(Request.QueryString("picgroup"))
'接受传来的字符串！
readme=Trim(Request.QueryString("readme"))
'接受传来的字符串！
formsize=request.totalbytes
‘formsize接受一个二进制的代码！，
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)'上面总共是取得图片的二进制数据
sql="select title,picgroup,pic,picsize,viewtype,readme from [Photo] order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs(0)=title
rs(1)=picgroup
rs(2).appendchunk mydata
rs(3)=formsize
set r=conn.execute("select viewtype from [picgroup] where title='"&picgroup&"'")
if not(r.bof and r.eof) then
rs(4)=r(0)
end if
r.close
rs(5)=readme
’这些是读取数据库，但是你的代码有点不完整，看起来不是很清楚，不过他的意思是用来读取数据库里的图片

谢谢了

可是 你能告诉我哪儿不完整吗？ 谢谢了