建立连接图片的数据库并用asp实现分页

来源:百度知道 编辑:UC知道 时间:2024/06/20 06:43:39
先前都提过这个问题了``但是我用网友给我介绍的数据库不能显示图片
他给我的数据库是这样的``
有两个字段 id img
类型 文本 文本
然后我的分页程序是
<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open connstr
%>
<%
exec="select * from xiangpian"
set rs=server.createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=1
zongye=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%if rs.EOF and rs.BOF then
response.wite ("无图片")
else
for i=1 to rs.PageSize
rs.MoveNext
next
end if%>
</p>
<%for i=1 to zongye%>
<a href="comic_3_bleach_236_001.asp?page=<%=i%>&quo

<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open connstr
%>
<%
exec="select * from xiangpian"
set rs=server.createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=1
zongye=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%if rs.EOF and rs.BOF then
response.wite ("无图片")
else
for i=1 to rs.PageSize

'这里,你怎么没写输出图片的语句
response.write("<img src="&rs("img")&">")
'如果你的img字段里已经包函了"<img src="这些字符则用下面的输出语句
'response.write rs("img")

rs.MoveNext
next <