设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 53|回复: 1
打印 上一主题 下一主题

求助高手

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-19 01:04:35 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
下面是图片上传的一些代码,能帮我说详细的注释一下。这几句我看不懂:
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart

option explicit
dim conn.dbpath
dim rs.sql
dim formsize,formdata,bncrlf,divider,datastart,mydata,dataend
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("db.mdb")
conn.open "driver={microsoft access driver (*.mdb)}"dbq="&dbpath
set rs=server.createobject("adodb.recordset")
sql="select*from photo"
rs.open sql,conn,3,2
formsize=request.totalbytes
formdata=requext.binaryread(formsize)
bncrlf=chrB(13)&chr(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)
rs.addnew
rs("img').appendchunk=mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect
%>
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-18 08:19 , Processed in 0.113345 second(s), 10 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表