草根站长论坛 » 新人实习投稿 » 草根站长知道 » 用纯ASP代码实现图片上传并存入数据库中如何写呀?

地狱火 发表于 2008-1-31 00:00

用纯ASP代码实现图片上传并存入数据库中如何写呀?

以下是网上找的,可实现不了,不知它错在哪?谁有现成的发来呀.
u wu U+O
`d <% T8@Z t*_5d
response.buffer=true -z0XM,o\Ma
formsize=request.totalbytes ao'L,SJic
formdata=request.binaryread(formsize) C;V&l,{h@ {+GFc
bncrlf=chrB(13)&chrB(10)
nO\
V'sK;~;g
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
2Ju1h+F3n m datastart=instrb(formdata,bncrlf&bncrlf)+4 !?y3vP5N"r)O'M%\*q u
dataend=instrb(datastart+1,formdata,divider)-datastart 5dH\*X&}+`0p2T
mydata=midb(formdata,datastart,dataend) y!R3r\1A&{$J)]+`
set conn=server.CreateObject("adodb.connection")
4LLr oan*d+e dsn="driver={microsoft access driver (*.mdb)};"
W z'Oo1km@6q*r dsn=dsn&"dbq="&server.MapPath("ubload.mdb")WANc `2m!rS+M7d
conn.open dsn1Y7h-jT)Fk{]i3mS
set rs=server.createobject("ADODB.recordset"){'k.mIBkru
sql="SELECT * FROM imagegook"N EM2}dVT
rs.open sql,conn,1,3
No2}n0RE rs.addnew qEo/SGP j0ID
rs("img").appendchunk mydata
'y)t?*\ W+C rs.update
s O&r}[@'j rs.close @8C*P)b1~Qym3t
set rs=nothing 2py*t
D0|6k|.e6qoZ
set conn=nothing
L
\!u1O th$D %>

cvccv 发表于 2008-1-31 00:28

:38: 我是草根
2nDQy;V OO(c 等高手吧

查看完整版本: 用纯ASP代码实现图片上传并存入数据库中如何写呀?