28,407
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
snower01 2004-02-02
- 打赏
- 举报
up
snower01 2004-02-02
- 打赏
- 举报
up
51windows 2004-02-02
- 打赏
- 举报
演示：
http://www.51windows.net/myfile/asp/imgdata/imgdata_index.asp
代码：
http://www.51windows.net/myfile/asp/imgdata/imgdata.rar
http://www.51windows.net/myfile/asp/imgdata/imgdata_index.asp
代码：
http://www.51windows.net/myfile/asp/imgdata/imgdata.rar
snower01 2004-02-02
- 打赏
- 举报
showimg.asp代码如下：
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("images.mdb")
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from [image] where id=4" ' & trim(request("id"))测试用
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("images.mdb")
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from [image] where id=4" ' & trim(request("id"))测试用
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
