我做的上传图片怎么显示不了







<%
Set Conn = Server.CreateObject("ADODB.Connection")                          
        Conn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("db1.mdb")
        conn.open

%>是conn.asp

<!--#include file="conn.asp"-->
<%

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)
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM 123",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "index1.asp"
%> 是upload1.asp





<!--#include file="conn.asp"-->
<%
set rs=server.createobject("ADODB.recordset")
sql="select img from 123 where id="&trim(request("id"))
rs.open sql,conn,3,3
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(7500000)
rs.close
set rs=nothing
set conn=nothing
%>
是showing.asp

<!--#include file="conn.asp"-->
<%
strsql="select * from 123 "
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,3,3
do until rs.eof
whatid=rs("id")
%>
<img src="showimg.asp?id=<%=whatid%>" align="left" height="100"  width="100">

<%
rs.movenext
loop%>