大家看看这个有关图片上传到数据库的程序错在哪里

EastLin 2004-11-26 05:17:43
小图片可以正常上传但大图片(大约超过几十K吧)就传不上去了,应如何修改
<%
response.buffer=true
ID=Request("ID")
FromPage=Request("FromPage")

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)

Dim objOpen
Function OpenReadSQL(VarSQL,SJKName,BiaoName)
Set objOpen=Server.CreateObject("ADODB.Connection")
objOpen.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(SJKName)
objOpen.open
Set OpenReadSQL=Server.CreateObject("ADODB.Recordset")
OpenReadSQL.Open VarSQL,objOpen,1,3,1
End Function

IF ID="" THEN
VarSQL="SELECT * FROM Commodity"
ELSE
VarSQL="SELECT * FROM Commodity WHERE ID=" & ID
END IF
Set objRead=OpenReadSQL(VarSQL,"DNCS.mdb","Commodity")

IF ID="" THEN
objRead.addnew '有此语句是增加新记录,没有此语句是修改已存在的记录
END IF
IF FromPage="InMod" THEN
objRead("商品图片").appendchunk mydata
ELSE
objRead("原始图片").appendchunk mydata
END IF
objRead.update
ID=objRead("ID")
objRead.close:set objRead=nothing:objOpen.Close:set objOpen=nothing
%>
...全文
30 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hqcsx 2004-11-26
你可以在本版搜一下.有很多代码.
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-26 05:17
社区公告
暂无公告