设为首页收藏本站
开启辅助访问 切换到宽版

新微赢技术网

 找回密码
 注册
快捷导航
搜索
热搜: 回贴
新微赢技术网»论坛 › 学习网 知识堂 › WEB开发 › ASP › 分页程序
返回列表 发新帖
查看: 61|回复: 2
打印 上一主题 下一主题

分页程序

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-19 02:15:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<!--#include file="odbc_connection.asp"-->
<html>
<head>
<title>查看留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {
font-size: 9pt;
}
-->
</style>
<style type="text/css">
<!--
a:link {
font-size: 9pt;
color: #000000;
text-decoration: none;
}
a:hover {
font-size: 9pt;
color: #FF0000;
}
a:visited {
font-size: 9pt;
color: #000000;
text-decoration: none;
}
.样式1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<table width="625" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="96%" height="35" border="0" align="center" cellpadding="0" cellspacing="0" background="../image/zxly.jpg">
<tr>
<td width="86%" height="35" background="images/zxly.jpg">
<div align="center"></div></td>
<td width="14%"><font color="#FF3300"><strong><a href="index.asp">我 要 留 言</a></strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<%
'&Iuml;&Ouml;&Ocirc;&Uacute;&iquest;&ordf;&Ecirc;&frac14;&Iuml;&Ocirc;&Ecirc;&frac34;&Ograve;&Ntilde;&Oacute;&ETH;&Aacute;&ocirc;&Ntilde;&Ocirc;
Dim Sql,rs '&Eacute;&ugrave;&Atilde;&divide;&plusmn;&auml;&Aacute;&iquest;
Sql="Select * From guest "
Sql=Sql & " Order By submit_date desc,guest_id desc" '&Otilde;&acirc;&Agrave;&iuml;&Oacute;&Atilde;&Aacute;&Euml;&Aacute;&frac12;&cedil;&ouml;&times;&Ouml;&para;&Icirc;&Aring;&Aring;&ETH;&ograve;
SET rs=db.Execute(Sql) '&middot;&micro;&raquo;&Oslash;&Ograve;&raquo;&cedil;&ouml;Recordset&para;&Ocirc;&Iuml;&oacute;
If Not rs.Bof And Not rs.Eof Then '&Egrave;&ccedil;&sup1;&ucirc;&Oacute;&ETH;&frac14;&Ccedil;&Acirc;&frac14;&pound;&not;&frac34;&Iacute;&frac12;&Oacute;&times;&Aring;&Ouml;&acute;&ETH;&ETH;
%>
<center>
<table border="0" bordercolor="#8800FF" width="625">
<%
Do While Not rs.Eof '&Agrave;&ucirc;&Oacute;&Atilde;&Ntilde;&shy;&raquo;&middot;&Ograve;&Agrave;&acute;&Icirc;&Iuml;&Ocirc;&Ecirc;&frac34;&Euml;&ugrave;&Oacute;&ETH;&frac14;&Ccedil;&Acirc;&frac14;
%>
<tr>
<td width="619" ><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="box1">
<tr bgcolor="#4279c2">
<td width="24%" height="17">
<div align="center"><font color="#FFFFFF">客户姓名及单位：</font></div></td>
<td width="38%"><a href="mailto:<%=rs("email")%>"><font color="#FFFFFF"><%=rs("name")%></font></a></td>
<td width="13%">
<div align="left"><font color="#FFFFFF">联系方式</font></div></td>
<td width="25%"><font color="#FFFFFF"><%=rs("lxfs")%></font></td>
</tr>
<tr bgcolor="#E7F0FF">
<td><div align="center">客户留言主题：</div></td>
<td colspan="3"><%=rs("title")%></td>
</tr>
<tr bgcolor="#E7F0FF">
<td>
<div align="center">客户留言内容：</div></td>
<td colspan="3"><%=rs("body")%></td>
</tr>
<tr bgcolor="#E7F0FF">
<td>
<div align="center">客户留言时间：</div></td>
<td colspan="3"><%=rs("submit_date")%></td>
</tr>
<tr bgcolor="#e6faff">
<td>&nbsp;</td>
<td colspan="3"><% reply=rs("reply")
if reply<>"" then%>
<hr size=1>
<font color="#000000">版主回复：</font><font color=#FF0000><%=reply%></font>
<%end if%></td>
</tr>
<tr>
<td>&nbsp;</td>
<td colspan="3">
<div align="right"><font color="#FF0000"><a href="hfly.asp?id=<%=rs("guest_id")%>">回复留言</a></font>　　<font color="#000000"><a href="delete.asp?guest_id=<%=rs("guest_id")%>">删除留言</a></font>&nbsp;&nbsp;&nbsp;&nbsp; 　　</div></td>
</tr>
</table></td>
</tr>
<%
rs.MoveNext '&frac12;&laquo;&frac14;&Ccedil;&Acirc;&frac14;&Ouml;&cedil;&Otilde;&euml;&Ograve;&AElig;&para;&macr;&micro;&frac12;&Iuml;&Acirc;&Ograve;&raquo;&Igrave;&otilde;&frac14;&Ccedil;&Acirc;&frac14;
Loop
rs.Close '&Ouml;&acute;&ETH;&ETH;&Iacute;&ecirc;&plusmn;&Iuml;&pound;&not;&sup1;&Oslash;&plusmn;&Otilde;recordset&para;&Ocirc;&Iuml;&oacute;
db.Close '&Ouml;&acute;&ETH;&ETH;&Iacute;&ecirc;&plusmn;&Iuml;&pound;&not;&sup1;&Oslash;&plusmn;&Otilde;connection&para;&Ocirc;&Iuml;&oacute;
%>
</table>
</center>
<%End If %>
</td>
</tr>
</table>
</body>
</html>
想给上面这个页面加上分页的功能，怎么实现
回复

使用道具 举报

2#
发表于 2010-1-19 02:15:09 | 只看该作者
有没有帮忙看看啊，谢谢了
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-18 06:20 , Processed in 0.109725 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表