| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 484 人关注过本帖
标题:[求助]解释一段代码
只看楼主 加入收藏
holianchao
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-25
收藏
 问题点数:0 回复次数:3 
[求助]解释一段代码
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


解释一下这段代码是啥意思,我主要是找到那个限制图片大小的代码。谢谢
搜索更多相关主题的帖子: 二进制 formdata divider datastart bncrlf 
2007-04-25 19:49
fish_
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2007-4-25
收藏
得分:0 
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
’这些是读取数据库,但是你的代码有点不完整,看起来不是很清楚,不过他的意思是用来读取数据库里的图片
2007-04-25 20:19
holianchao
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-25
收藏
得分:0 
谢谢了
2007-04-29 03:13
holianchao
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-25
收藏
得分:0 
以下是引用fish_在2007-4-25 20:19:06的发言:
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
’这些是读取数据库,但是你的代码有点不完整,看起来不是很清楚,不过他的意思是用来读取数据库里的图片

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

2007-04-29 03:14
快速回复:[求助]解释一段代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016931 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved