| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 699 人关注过本帖
标题:[求助]我在“阳光白雪”主页看到的公共翻页模块怎样显示在下面
只看楼主 加入收藏
zmw5112
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2005-12-11
收藏
 问题点数:0 回复次数:7 
[求助]我在“阳光白雪”主页看到的公共翻页模块怎样显示在下面

我看到的公共翻页模块测试的时候翻页在上面,我试图调整到下面,可怎么也不成功,请指点。以下是显示页面代码:

<!--#include file="inc/conn.asp" -->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
Dim Sql
Sql = "Select * from camera"
Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.Open Sql,Conn,1,3 '获取的记录集

'公共翻页模块开始%>
<!--#include file="TurnPage.asp"-->
<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(rs,RowCount)
'公共翻页模块结束%>

<table width=100%>
<tr>
<td>新闻编号</td>
<td>新闻标题</td>
<td>发布日期</td>
<tr>
<%
If Not rs.eof then
Do while Not rs.eof and RowCount>0
%>
<tr>
<td><%=rs("camera_cc")%></td>
<td><%=rs("camera_model")%></td>
<td><%=rs("camera_name")%></td>
<tr>
<%
RowCount = RowCount - 1
rs.MoveNext
Loop
End If
%>
<%
rs.close
set rs=nothing
conn.close
set conn = nothing
%>

</body>

[此贴子已经被作者于2006-1-13 22:43:01编辑过]

搜索更多相关主题的帖子: 阳光白雪 页模块 主页 Sql 
2006-01-13 22:42
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
我看要把这个函数TurnPage改了才行

2006-01-13 23:05
zmw5112
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2005-12-11
收藏
得分:0 

这是阳光白雪网站里的 函数:

<%
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转;
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页,则默认显示第一页;
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
'获取当前文件名,使得每次翻页都在当前页面进行;
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion)
%>
<link href="css/css.css" rel="stylesheet" type="text/css" />

<table border=0 width='100%'>
<tr>
<td align=left class="nr"> 总页数:<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页 总共<%=RecordCount%>条 </td>
<td align="right" class="nr"> <div align="center">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>
<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%>
</div></td>
<td class="nr"><form name="form1" method="post" action=""> 转到第 <% If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<input type="submit" name="Submit" value="Go" disabled style="background:#d3d3d3">
<%Else%>
<input type=text name=PageNo size=3 >
<input type="submit" name="Submit" value="Go">
<%End If%>
页</form>
</td>
</tr>
</table>
<%End Sub%>

2006-01-13 23:35
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
果然没错。
那你就打那个函数分解了就可以

2006-01-13 23:36
zmw5112
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2005-12-11
收藏
得分:0 
是不是&lt;table&gt;段
2006-01-13 23:50
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 


2006-01-14 08:43
sun30
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2005-12-16
收藏
得分:0 
"阳光白雪”主页?
在哪里啊?我也想去看看,学点东西!

春天来啦!万物开始生长!
2006-01-14 09:44
zmw5112
Rank: 1
等 级:新手上路
帖 子:171
专家分:0
注 册:2005-12-11
收藏
得分:0 
分离出来后有点问题,只有GO起作用
2006-01-14 16:43
快速回复:[求助]我在“阳光白雪”主页看到的公共翻页模块怎样显示在下面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015119 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved