asp代码分析
来源:百度知道 编辑:UC知道 时间:2024/06/07 10:49:20
请高手帮忙每句分析说明是什么意思.谢谢
图片转为2进制数据代码
<%
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.recordset")
rs.open "SELECT * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
图片转为2进制数据代码
<%
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.recordset")
rs.open "SELECT * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<%
formsize=request.totalbytes
'从客户端获取文件的总字节数
formdata=request.binaryread(formsize)
'读取文件,将文件以二进制存入变量formdata
bncrlf=chrB(13)&chrB(10)
'chrB(10)表示换行,chrB(13)表示回车,bncrlf表示文件的结尾
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
'instrb(formdata,bncrlf)表示bncrlf在formdata中的位置
'leftB(formdata,clng(instrb(formdata,bncrlf))-1)表示截取formdata中bncrlf左边的字符串
datastart=instrb(formdata,bncrlf&bncrlf)+4
'获取文件的开头位置
dataend=instrb(datastart+1,formdata,divider)-datastart
'获取文件的结尾位置
mydata=midb(formdata,datastart,dataend)
'获取文件二进制部分
set rs=server.createobject("ADODB.recordset")
'建立数据库对象
rs.open "SELECT * FROM imgurl",conn,3,3
'打开数据库
rs.addnew
'添加新的空记录
rs("img").AppendChunk myData
'将数据写入空记录中
rs.update
'更新记录