process.asp

来自「超市商品信息系统」· ASP 代码 · 共 23 行

<%  '上传图片的实现(将图片处理成二进制)
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata,CID
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)''上面总共是取得图片的二进制数据
%>
<!--#include file="../Inc/Dataconn.asp" -->
<%   '将图片存进SQL
sql="select * from Images order by SPImageID desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,3
CID=rs("SPImageID")+1
rs.addnew
rs("image_data").appendchunk mydata    ''增加到数据库中
rs.update
set rs=nothing
set conn=nothing
response.redirect "index.asp"  '转到index页面
%>