麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > ASP > 正文

ASP中利用 Jauery 實現AJAX分頁效果

2024-05-04 11:07:17
字體:
來源:轉載
供稿:網友

準備工作 Jquery-man.js

需要分頁地方

<script language="javascript">
function CheckPage(pages){
$("#plShow").load("plAjax.asp?ID=<%=news_id%>&p="+pages);
}
</script>

<div id="plShow">
 <script language="javascript">
    $("#plShow").load("plAjax.asp?ID=<%=news_id%>");
 </script>
</div>
<%

'完了,就是這么簡單 ...

%>

plAjax.asp 顯示分頁

<!--#include file="inc/conn.asp"-->
<%
   ID = request.QueryString("ID")
   if ID = "" or isnull("ID") then
      response.End()
   end if
   P = request.QueryString("p")
   if P = "" or isnull("P") then
      P = 1
   end if
   if P = 1 then
      sql = "select top 5 * from pl where byID='"&ID&"' order by id desc"
   else
   pz = 5*(P-1)
      sql = "select top 5 * from pl where id not in(select top "&pz&" id from pl where byID='"&ID&"' order by id desc) and byID='"&ID&"' order by id desc"
   end if
   response.Charset="gb2312"
   set rs = conn.execute(sql)
   if rs.eof then
      response.Write "<dl><dt style='color:#FF0000'>暫無評論!</dt></dl>"
   response.End()
   end if
   while not rs.eof
%>
<dl>
   <dt><img src="Image/page/face/<%=rs("face")%>.png" />&nbsp;
   <%
      if rs("isShow") then
      response.Write "游客"
   else
      response.Write rs("name")
   end if
   %>
   &nbsp;<%=rs("adddate")%> 發表
   </dt>
   <dt><%=rs("content")%></dt>
</dl>
<%
   rs.movenext
   wend
   rs.close
%>
<div style="height:40px;">

   <ul class="Page" style="margin-top:20px;">
<%

'這里采用了仿百度分頁效果
sql = "select count(*) as maxnum from pl where byID='"&ID&"'"
rs = conn.execute(sql)
maxnum = rs("maxnum")
if maxnum mod 5 then
   pageCount = int(maxnum/5)+1
else
   pageCount = maxnum/5
end if
if P = 1 or P<1 then
   response.Write "<li>首頁</li><li>上頁</li>"
else
   response.Write "<li><a href='javascript:void(0);' onclick='CheckPage(1)'>首頁</a></li><li><a href='javascript:void(0);' onclick='CheckPage("&P-1&")'>上頁</a></li>"
end if
if P>1 then a=1
if P>2 then a=2
if P>3 then a=3
if P>4 then a=4
if P>5 then a=4
for i=(P-a) to P-1
   response.Write "<li class='dpage'><a href='javascript:void(0);' onclick='CheckPage("&i&")'>"&i&"</a></li>"
next
response.Write  "<li>"&P&"</li>"
for j=(P+1) to (P+5)
   if j>pageCount then
      exit for
   end if
   response.Write "<li class='dpage'><a href='javascript:void(0);' onclick='CheckPage("&j&")'>"&j&"</a></li>"
next
if int(P) = int(pageCount) or int(pageCount) = 0 then
   response.Write "<li>下頁</li><li>尾頁</li>"
else
   response.Write "<li><a href='javascript:void(0);' onclick='CheckPage("&P+1&")'>下頁</a></li><li><a href='javascript:void(0);' onclick='CheckPage("&pageCount&")'>尾頁</a></li>"
end if
%> 
   </ul>
</div>

 
' 樣式表

.Page{
  width:auto; height:16px;
}
.Page li{
  display:inline; height:16px; line-height:16px; padding-left:6px; text-align:center; margin-left:5px; padding-right:5px
}
.Page .dpage{
 border:1px #D6D6D6 solid; background:#F7F7F7; font-weight:bold;
}

#plShow dl{
  height:auto; border-bottom:1px #D6D6D6 dashed; margin-top:8px; clear:both; width:95%;
}
#plShow dt{
  height:24px; text-align:left; line-height:24px; color:#666;
}

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 久久久久久久久国产精品 | 欧美日韩国产成人在线观看 | 亚洲网站免费看 | 久草在线观看首页 | 欧美a级在线免费观看 | 男人的天堂色偷偷 | 牛牛视频在线 | 精品一区久久久 | 插插操 | 久久99精品久久久久久秒播放器 | 特级毛片全部免费播放器 | 色婷婷一区二区三区 | 欧美一级电影网站 | 91av在线影院 | 毛片在线视频在线播放 | 亚洲99 | 久久无毛 | 欧美精品一区二区三区在线播放 | 精精国产xxxx视频在线播放7 | 欧美成人一区二区三区 | 羞羞视频一区 | 日本高清一级片 | 国产日产精品一区二区三区四区 | 国产免费小视频在线观看 | 一级做a爱片久久毛片a高清 | 国产自在线 | 怦然心动50免费完整版 | 毛片免费观看完整版 | 免费黄色成人 | 久色免费视频 | 一级黄色影院 | 韩国美女一区 | 免费视频a| 日韩中文字幕三区 | 一级精品| 99国产精品国产免费观看 | 久久草在线看 | 少妇一级淫片免费放播放 | 国产成人高潮免费观看精品 | 久久99精品久久久久久园产越南 | 黄色网欧美|