日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

一個分頁的ASP代碼實例

作者:  來源:  發布時間:2011-6-9 11:37:48  點擊:

 本文將提供一個ASP代碼實例給大家,是關于一個分頁的ASP代碼例子,希望對大家有用。

<%''本程序文件名為:Pages.ASP%>
  <%''包含ADO常量表文件adoVBs.inc,可從"\Program Files\Common Files\System\ADO"目錄下拷貝%>
  <!--#Include File="adovbs.inc"-->
  <%''*建立數據庫連接,這里是Oracle8.05數據庫
  Set conn=Server.CreateObject("ADODB.Connection")
  conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"
  
  Set rs=Server.CreateObject("ADODB.Recordset") ''創建Recordset對象
  rs.CursorLocation=adUseClient ''設定記錄集指針屬性
  ''*設定一頁內的記錄總數,可根據需要進行調整
  rs.PageSize=10
  
  ''*設置查詢語句
  StrSQL="Select ID,姓名,住址,電話 from 通訊錄 Order By ID"
  rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
  %>
  <HTML>
  <HEAD>
  <title>分頁示例</title>
  <script language=java script>
  //點擊"[第一頁]"時響應:
  function PageFirst()
  {
  document.MyForm.CurrentPage.selectedIndex=0;
  document.MyForm.CurrentPage.onchange();
  }
  //點擊"[上一頁]"時響應:
  function PagePrior()
  {
  document.MyForm.CurrentPage.selectedIndex--;
  document.MyForm.CurrentPage.onchange();
  }
  //點擊"[下一頁]"時響應:
  function PageNext()
  {
  document.MyForm.CurrentPage.selectedIndex++;
  document.MyForm.CurrentPage.onchange();
  }
  //點擊"[最后一頁]"時響應:
  function PageLast()
  {
  document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
  document.MyForm.CurrentPage.onchange();
  }
  //選擇"第?頁"時響應:
  function PageCurrent()
  { //Pages.asp是本程序的文件名
  document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
  document.MyForm.submit();
  }
  </Script>
  </HEAD>
  <BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">
  
  <%IF rs.Eof THEN
  Response.Write("<font size=2 color=#000080>[數據庫中沒有記錄!]</font>")
  ELSE
  ''指定當前頁碼
  If Request("CurrentPage")="" Then
  rs.AbsolutePage=1
  Else
  rs.AbsolutePage=CLng(Request("CurrentPage"))
  End If
  
  ''創建表單MyForm,方法為Get
  Response.Write("<form method=Get name=MyForm>")
  Response.Write("<p align=center><font size=2 color=#008000>")
  ''設置翻頁超鏈接
  if rs.PageCount=1 then
  Response.Write("[第一頁] [上一頁] [下一頁] [最后一頁] ")
  else
  if rs.AbsolutePage=1 then
  Response.Write("[第一頁] [上一頁] ")
  Response.Write("[<a href=java script:PageNext()>下一頁</a>] ")
  Response.Write("[<a href=java script:PageLast()>最后一頁</a>] ")
  else
  if rs.AbsolutePage=rs.PageCount then
  Response.Write("[<a href=java script:PageFirst()>第一頁</a>] ")
  Response.Write("[<a href=java script:PagePrior()>上一頁</a>] ")
  Response.Write("[下一頁] [最后一頁] ")
  else
  Response.Write("[<a href=java script:PageFirst()>第一頁</a>] ")
  Response.Write("[<a href=java script:PagePrior()>上一頁</a>] ")
  Response.Write("[<a href=java script:PageNext()>下一頁</a>] ")
  Response.Write("[<a href=java script:PageLast()>最后一頁</a>] ")
  end if
  end if
  end if
  
  ''創建下拉列表框,用于選擇瀏覽頁碼
  Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")
  For i=1 to rs.PageCount
  if rs.AbsolutePage=i then
 

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 仁爱版九年级英语上册教案| 散文诗二首批注| 毕福剑说的那句话| 韩国电影解禁男女| 丁尼| 韦伦| tvb直播| 大学英语综合教程1电子书| 美女写真视频网站| 一碗泡面的热量是多少大卡| 艳肉观世音性三级| 浙江卫视回放观看入口| 蚂蚁搬豆简谱| 电影继父| 美丽女老师| 误杀2电影免费观看高清完整版| 幼儿园课题研究| 不扣纽的女孩| 高清影视图库| 惊弦电视剧完整版免费观看高清| 好好歌词| 坐月子吃什么| 东成西就| 采茶舞曲民乐合奏| 宋雨琦《tomboy》| 师奶madam 电视剧| 悬崖全部演员表详细| 《隐秘而伟大》电视剧| 儿童眼轴长度正常范围| 欲望之城电影| 谭耀文演的电影| 夜店 电影| 花开那年电影免费播放| 罗云熙的新剧《尸语者》哪里能看| 日别视频| 理发师的情人电影| 黄秋生的电影| 恶行之外电影| 永远是少年电影免费观看| 日本大片ppt免费ppt| 王亚楠|