asp上传图片到Access数据库

[zxzxzxzxzxzxzxzxzxzx]

1.asp上传图片到Access数据库。
2.把数据库的图片在网页中显示出来。

[ybfqlyq]

圖片上傳代碼：
addpic.asp
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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="conn.asp"-->
<%
sql="select * from pic order by id desc"
set rs=conn.execute(sql)
id=rs("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
rs("big").appendchunk mydata
rs.update
set rs=nothing
set conn=nothing
response.redirect "sendphoto.asp"
%>

display.asp
<!--#include file="conn.asp"-->
<%
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("big")
rs.close
set rs=nothing
set connGraph=nothing

%>


<a href="displaypic.asp?id=<%=rs("id")%>">脤艘</a>


computer 裡面的。。
<%if request("action")="save" then%>

<%
dim id
dim rs
dim sql

id=request("id")
a=split(id,"")

FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
Image=ImageUp (FormSize,Formdata)
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM photo"
rs.Open sql,cn,1,3
rs.AddNew
rs("title")=a(0)
rs("content")=a(1)
rs("image") = NULL
rs("image").appendchunk Image
rs("time") = now()
rs("date")=date()
if a(2)="cut" then
rs("sizecut")=true
else
rs("sizecut")=false
end if
rs.Update
response.write "您已经成功的添加了一张图片!"
%>
<%
rs.Close
set rs=nothing
%>

<%
function ImageUp(formsize,formdata)
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
%>

<%if request("action")="del" then
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from photo ",cn,1,3
while not rs1.eof
if(strcomp(rs1.fields("id"),request.form("id"),1)=0) then
rs1.delete
end if
rs1.movenext
wend
set rs1=nothing
response.Write"恭喜！你已经成功的删除了这张图片！"
response.Redirect"manage_photo.asp"
%>

<% if rs1("sizecut")=true then
response.write "<img src=image.asp?id="&rs1("id")&" width=450><br>"
else
response.write "<img src=image.asp?id="&rs1("id")&"><br>"
end if %>
image.asp
<%
dim rs
dim adr
dim sql
dim id
id = request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM photo WHERE id ="&id
rs.Open sql,cn,3,1
response.contenttype="image/*"
Response.BinaryWrite rs("image")
rs.Close
cn.close
%>

[小安安]

想问一下数上的，在addpic.asp中，如果有别的文本字段，又如何添加呢？