请大家帮忙分析一下这段代码!

wangbin20190101 2006-11-23 10:14:10
从网上找到的,get.asp部分有点疑惑,请高手指教

asp图片上传到数据库的方法
============上传============
<html>
<body>
<center>
<!--以下 form 中的 enctype="multipart/form-data" 是得到数据的关键-->
<form name="mainform" enctype="multipart/form-data" action="get.asp" method=post>
<input type=file name=mefile><br/>
<input type=submit name=ok value="上传">
</form>
</center>
</body>
</html>

==============get.asp===============
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrb(13) & chrb(10) '这4行
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 conn=server.createobject("adodb.connection")
conn.connectionstring="driver={ microsoft access driver (*.mdb) };dbq=" & server.mappath("xxx.mdb")
conn.open

set rs=server.createobject("adodb.recordset")
rs.open "select * from [images] where id is null",conn,1,3
rs.addnew
rs("img").appendchunk mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
%>

如果还有很多相关的字段,比如说明,备注等等
例:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Function f_Bin2Str(ByVal sBin) '这个函数做什么用?
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Else
iRe = iRe & Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function

response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
iStr = f_Bin2Str(formdata) '这3
textfield_start = instr(iStr,"Content-Disposition: form-data;name="" textfield """) + 52 '行不
textfield_end = instr(textfield_start,iStr,chr(13) & chr(10)) - textfield_start '明白?
response.write iStr

Response.Write "<br>textfield_start-->" & textfield_start

Response.Write "<br>textfield_end-->" & textfield_end

Response.Write "<br>textfield_内容-->" & mid(iStr,textfield_start,textfield_end)

%>
 

...全文
48 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangbin20190101 2006-11-23
  • 打赏
  • 举报
回复
能具体讲一下么?
jingxiaoping 2006-11-23
  • 打赏
  • 举报
回复
bncrlf=chrb(13) & chrb(10) '这4行
divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1) '不
datastart=instrb(formdata,bncrlf & bncrlf)+4 '明
dataend=instrb(datastart+1,formdata,divider)-datastart '白?

跟图像编码有关系。

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧