xuemei2xiehong 2004年12月23日
分页代码到底是那错了,为什么不能显示出图片?
我运行如下代码之后,却不能显示出来图片:下一页和上一页。而且分页也显示有误,
望大家指正错误之处,并希望能帮助改正,谢谢!
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("mdb\test.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select top 6 * from news where type='新闻简讯' order by id desc",conn,1,3
if rs.eof and rs.bof then
response.write "还没有新闻~!"
else
dim i
i=1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 10 '每一页的记录条数
total = rs.RecordCount '总页数
mypagesize = rs.pagesize
rs.absolutepage = page '当前页数
end if
%>
<HTML><HEAD><TITLE>陕西高速机械化有限公司>> 新闻在线\新闻简讯</TITLE>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE width="95%" border=0 align="center" cellPadding=0 cellSpacing=0 class="wenzi-neirong">
<TBODY>
<%do while not rs.eof
ee=datevalue(rs.fields("addtime"))
%>
<TR>
<TD vAlign=bottom> <DIV style="PADDING-TOP: 5pt"><IMG
src="1ji-tu/xiao/diandian1.gif" width="6" height="10" border=0>
<A href="3ji-1.htm" target=_blank><FONT style="FONT-SIZE: 10.5pt"> <%=rs.fields("title")%>…</FONT></A><FONT
color=black> (<%=ee%>)<img src="1ji-tu/xiao/new2.gif" width="12" height="12"></FONT></DIV>
</TD>
</TR>
<%
rs.movenext
loop
%>
<%
rs.close
rs.open "select * from news where type='新闻简讯' and id not in(select top 6 id from news order by id desc) order by id desc",conn,1,1
do while not rs.eof
dd=datevalue(rs.fields("addtime"))
%>
<TR>
<TD vAlign=bottom> <DIV style="PADDING-TOP: 5pt"><IMG
src="1ji-tu/xiao/diandian1.gif" width="6" height="10" border=0>
<A href="3ji-1.htm" target=_blank><FONT style="FONT-SIZE: 10.5pt"><%=rs.fields("title")%>…</FONT></A><FONT
color=black> (<%=dd%>)</FONT></DIV>
</TD>
</TR>
<%rs.movenext
loop%>
</TBODY>
</TABLE>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="34"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" class="huise-hengxian"> </td>
</tr>
<tr>
<td width="24%" height="38"> </td>
<td width="18%">

<%if page<1 then%>
<a href="xinwen1.asp?page=<%=page+1%>">
<img src="1ji-tu/xiao/prv.gif" width="73" height="20">
</a>
<%end if%>
</td>
<td width="18%">
<%if page>1 then%>
<a href="xinwen1.asp?page=<%=page-1%>">
<img src="1ji-tu/xiao/next.gif" width="73" height="20"></a>
<%end if%>
</td>
<td width="40%">第<%=rs.absolutepage%>页/共<%=rs.pagecount%>页,转到第
<input name="textfield2" type="text" size="3" maxlength="3">
页 </td>
</tr>
</table
</BODY></HTML>
...全文
41 点赞 收藏 回复
写回复
回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告