单页带分页调用

<!-- #include file="../include/skin.asp" -->
<%
tit="抵押查询"
call web_head(0,0,2,0,0)
'----------------------------左边 开始----------------------------
dim topic,did,epage
did=trim(request.querystring("did"))
sql="select * from dydj where c_id="&did&" order by id desc"
rs.open sql,conn,3
rs.pagesize=35
if request("page")<>"" then
  epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0 colspan=6> 抵押查询结果</td></tr>
  <tr class=bg_tds>
<td width='5%'> 编号</td>
<td width='7%'> 抵押人</td>
<td width='25%'> 抵押权人</td>
<td width='32%'> 抵押物名称</td>
<td width='25%'> 抵押期限</td>
<td width='6%'> 备注</td>
  </tr>
</table>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<table cellspacing=1 cellpadding=4 class=table>
    <tr class=bg_td>
<td width='5%'> <%response.write rs("topic")%></td>
<td width='7%'><%response.write rs("keyes")%></td>
<td width='25%'> <%response.write rs("username")%></td>
<td width='32%'> <%response.write rs("comto")%></td>
<td width='25%'>  <%response.write rs("tima")%></td>
<td width='6%'><%
if rs("istop")=1 then
response.write "<font color=red>在抵押</font>"
else
response.write "<font color=red>已赎回</font>"
end if
%></td>
  </tr>
  
</table>
<%
rs.movenext()
next
%>

<table cellspacing=1 cellpadding=4 class=table>
<tr class=bg_td align='right'>
<td height='30'>
<a href="view.asp?did=28">首页</a> 
<a href="view.asp?did=28&page=<%=epage-1%>">前一页</a> 
<a href="view.asp?did=28&page=<%=epage+1%>">后一页</a> 
<a href="view.asp?did=28&page=<%=rs.pagecount%>">末页</a></td>
<td>现在是第<font class=red><b><%=epage%></b></font>页一共有<font class=red><b><%=rs.pagecount%></b></font>页</td></table>
<%


'----------------------------中间 结束----------------------------
call web_end(0,0)
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: