| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 465 人关注过本帖
标题:求助高手
只看楼主 加入收藏
binbinbin
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2005-11-30
收藏
 问题点数:0 回复次数:3 
求助高手
下面是图片上传的一些代码,能帮我说详细的注释一下。这几句我看不懂:
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
%>
搜索更多相关主题的帖子: option color 图片 
2005-12-02 19:32
盖茨他爹
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:5255
专家分:0
注 册:2005-5-3
收藏
得分:0 
leftB、instrb都是自定义函数吧
2005-12-02 19:37
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
以下是引用盖茨他爹在2005-12-2 19:37:00的发言:
leftB、instrb都是自定义函数吧

版主造旨实在是。。。。高呀。。。


在VB/VBScript中很多字符串函数都有一个后面带B的函数,比如:
Len vs LenB 、Instr vs InstrB 、Left vs LeftB 、Right vs RightB 、Mid vs MidB .................

这些以B结尾 的函数作用于字符串中的字节数据,如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数,而不是返回字符串中字符的数量。如为用户自定义类型,LenB 返回在内存中的大小,包括元素之间的衬垫。


天津网站建设 http://www./
2005-12-02 21:42
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
没专门学过VB的人很难知道这样的函数,每门语言的函数都成千上万,很难都学全了的

我还学过一点点VB,也没见过这样的函数

2005-12-03 09:09
快速回复:求助高手
数据加载中...
 
   



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

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