[求助]我在“阳光白雪”主页看到的公共翻页模块怎样显示在下面 - ASP技术论坛

楼主

问题点数：0 回复次数：3

[求助]我在“阳光白雪”主页看到的公共翻页模块怎样显示在下面

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

<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 '获取的记录集

'公共翻页模块开始%>

<%
Dim RowCount
RowCount = 10 '每页显示的记录条数
Call TurnPage(rs,RowCount)
'公共翻页模块结束%>

</body>

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

搜索更多相关主题的帖子: 阳光白雪　页模块　主页　 Sql　

第 2 楼

得分: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%>

第 3 楼

得分:0

是不是<table>段

第 4 楼

得分:0

分离出来后有点问题，只有GO起作用