假面骑士游戏王:建立连接图片的数据库并用asp实现分页

来源:百度文库 编辑:中科新闻网 时间:2024/04/27 21:29:55
先前都提过这个问题了``但是我用网友给我介绍的数据库不能显示图片
他给我的数据库是这样的``
有两个字段 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%>"><%=i%></a>
<%next%>
分页实现了``但是却不能显示图片``

高手指教``我想要的效果请参照http://comic.kukudm.com/comic/home/kukucomic.asp?id=3824&page=1
在线等``也可加我QQ 21029686
跪谢```只有80分了``` @-@

<%
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
end if%>
</p>
<%for i=1 to zongye%>
<a href="comic_3_bleach_236_001.asp?page=<%=i%>"><%=i%></a>
<%next%>