有个小问题求教

2006-08-24 01:13:21 662 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

深度学习神经网络中的前向传播和反向传播算法推导深度学习神经网络中的前向传播和反向传播算法推导阅读详情

我用
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open ConStr
Sql = "SELECT * FROM shangpin where " & request.Form("select")& " like '%" & request.Form("textfield") & "%' and 名称='"&session("qiyemingcheng")&"' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,cn,1,1

建立了一个数据列表。然后项每页显示20条记录，怎么翻页呢？

翻页建立四个“首页” “下一页” “前一页” “末页”
那为大侠能告知代码如何处理？

...全文

深度学习神经网络中的前向传播和反向传播算法推导深度学习神经网络中的前向传播和反向传播算法推导阅读详情

heart_shen

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

kkk3279 2006-08-24

打赏
举报

'intPage为当前的页码
'intPageCount为总共的页码数
'intRecordCount为总共的记录数
'turnPage为要转入的页
'strSearch为页面的其它参数
'isBack为是否是在后台使用
Sub Navigate(intPage,intPageCount,intRecordCount,turnPage,strSearch,isBack)
Dim strTable,strT_1,strT_2,path
if isBack then
path="../../CommImages/"
else
path="../CommImages/"
end if
strTable=""
strT_1=""
strT_2=""
strTable="<table width=""130"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
if intPage=1 then
strT_1=strT_1&"<img border=""0"" src="""&path&"PE-N.GIF"" alt=""最前一页"" width=""20"" height=""20"">"
strT_2=strT_2&"<img src="""&path&"PB-N.gif"" alt=""前一页"" width=""20"" height=""20"" border=""0"">"
else
strT_1=strT_1&"<a href="""&turnPage&"?StrFind="&strSearch&""">"
strT_1=strT_1&"<img border=""0"" src="""&path&"PE.GIF"" alt=""最前一页"" width=""20"" height=""20"">"
strT_1=strT_1&"</a>"
strT_2=strT_2&"<a href="""&turnPage&"?page="&intPage-1&"&StrFind="&strSearch&""">"
strT_2=strT_2&"<img border=""0"" src="""&path&"Pb.GIF"" alt=""上一页"" width=""20"" height=""20"">"
strT_2=strT_2&"</a>"
end if
strTable=strTable&getTd(strT_1, "")&getTd(strT_2, "")
strT_1=""
strT_2=""
if intPageCount-intPage=0 or intRecordCount=0 then
strT_1=strT_1&"<img src="""&path&"pn-n.gif"" alt=""下一页"" width=""20"" height=""20"" border=""0"">"
strT_2=strT_2&"<img src="""&path&"pf-n.gif"" alt=""下一页"" width=""20"" height=""20"" border=""0"">"
else
strT_1=strT_1&"<a href="""&turnPage&"?page="&intPage+1&"&StrFind="&strSearch&""">"
strT_1=strT_1&"<img border=""0"" src="""&path&"Pn.GIF"" alt=""下一页"" width=""20"" height=""20"">"
strT_1=strT_1&"</a>"
strT_2=strT_2&"<a href="""&turnPage&"?page="&intPageCount&"&StrFind="&strSearch&""">"
strT_2=strT_2&"<img border=""0"" src="""&path&"Pf.GIF"" alt=""最后一页"" width=""20"" height=""20"">"
strT_2=strT_2&"</a>"
end if
strTable=strTable&getTd(strT_1, "")&getTd(strT_2, "")
strTable=strTable&"</table>"
response.write strTable
End Sub
'不显示图片的用法
Sub Navigate2(intPage,intPageCount,intRecordCount,turnPage,strSearch,isBack)
Dim strTable,strT_1,strT_2,path
if isBack then
path="../../CommImages/"
else
path="../CommImages/"
end if
strTable=""
strT_1=""
strT_2=""
strTable="<table width=""130"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbCrLf
if intPage=1 then
strT_1=strT_1&" <font color=""#999999"">首页</font>"
strT_2=strT_2&" <font color=""#999999"">上页</font>"
else
strT_1=strT_1&" <a href="""&turnPage&"?StrFind="&strSearch&""">"
strT_1=strT_1&"<font color=""#999999"">首页</font>"
strT_1=strT_1&"</a>"
strT_2=strT_2&" <a href="""&turnPage&"?page="&intPage-1&"&StrFind="&strSearch&""">"
strT_2=strT_2&"<font color=""#999999"">上页</font>"
strT_2=strT_2&"</a>"
end if
strTable=strTable&getTd(strT_1, "")&getTd(strT_2, "")
strT_1=""
strT_2=""
if intPageCount-intPage=0 or intRecordCount=0 then
strT_1=strT_1&" <font color=""#999999"">下页</font>"
strT_2=strT_2&" <font color=""#999999"">下页</font>"
else
strT_1=strT_1&" <a href="""&turnPage&"?page="&intPage+1&"&StrFind="&strSearch&""">"
strT_1=strT_1&"<font color=""#999999"">下页</font>"
strT_1=strT_1&"</a>"
strT_2=strT_2&" <a href="""&turnPage&"?page="&intPageCount&"&StrFind="&strSearch&""">"
strT_2=strT_2&"<font color=""#999999"">未页</font>"
strT_2=strT_2&"</a>"
end if
strTable=strTable&getTd(strT_1, "")&getTd(strT_2, "")
strTable=strTable&"</table>"
response.write strTable
End Sub

街头小贩 2006-08-24

打赏
举报

CSDN上有一堆这样的贴！火星贴签定完毕

leohuang 2006-08-24

打赏
举报

要用rs.Open sql,cn,1,3,才可以设置pagesize

itzhiren 2006-08-24

打赏
举报

http://blog.csdn.net/itzhiren/archive/2004/06/08/21345.aspx
这里有个例子，是我刚开始学的时候自己写的，希望对你有帮助

newskyline 2006-08-24

打赏
举报

rs.PageSize = PageSize
rs.AbsolutePage = CurrentPage
i = 0
While Not rs.Eof And i < PageSize
....
rs.Movenext
i = i + 1
Wend

penglewen 2006-08-24

打赏
举报

去网上查一下有很多翻页的.............自己再改一下就行了.........

飘零雾雨 2006-08-24

打赏
举报

先定义pagesize=20,把你的一些条件判断语句写好，然后for循环就可以了

有个小问题求教

相关推荐