在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0017181 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 ASP分页技术(源码)back to ASP forum  
作者:bluesky,3级分数:0
日期:2002/9/13 18:36:00类别:ASP, 技术问题
回复:5次浏览:2969次
状态:无分贴

<%''本程序文件名为: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=javascript>
  //点击"[第一页]"时响应:
  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=javascript:PageNext()>下一页</a>] ")
          Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")
        else
            if rs.AbsolutePage=rs.PageCount then
              Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
              Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
              Response.Write("[下一页] [最后一页] ")
            else
                Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
                Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
                Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")
                Response.Write("[<a href=javascript: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
        Response.Write("<option selected>"&i&"</option>")  ''当前页码
      else
        Response.Write("<option>"&i&"</option>")
      end if 
    Next
    Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")
    Response.Write("</form>")
   
    ''创建表格,用于显示
    Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")   
    Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")
   
    Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")
     
    Set Columns=rs.Fields
   
    ''显示表头
    For i=0 to Columns.Count-1
      Response.Write("<td align=center width=200 height=13>")
      Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>") 
    Next
    Response.Write("</tr>")
    ''显示内容
    For i=1 to rs.PageSize
      Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")
      For j=0 to Columns.Count-1
        Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")
      Next
      Response.Write("</tr>")
     
      rs.movenext
      if rs.EOF then exit for
    Next
   
    Response.Write("</table>")

  END IF
%>
</BODY>
</HTML>
<%
  ''===程序在Win2000Server+IIS5.0+Oracle8.05下测试通过===
  ''===作者:夏春涛        E-mail:bluesky_521@yeah.net===
%>

reply[F0017181]
 



 
 re [1] ASP分页技术(源码)ASP forum  
- miles02-09-13 18:40  

加入精华区。。。。

reply[F0017186]
 



 
 re [1] ASP分页技术(源码)ASP forum  
- kenphon02-11-08 16:17  

这个是javascript的分页编程,有没有vbscript的分页编程呢???

reply[F0028250]
 



 
 re [2] ASP分页技术(源码)ASP forum  
- 俞斌03-06-29 11:16  

我很菜的!我不知道你们说的分页是不是指下面包含的东西
这个是我以前问别人才做成的!里面有能把数据库中显示的数据以10条记灵为一页来分开显示并有上一页下一页等之类的东西。
感觉它不是很快如果哪位能让它快起来或者有更好有方法也请贴在这儿我也想知道下面的这个文件名叫
lyb122.asp其中包含分页同时要自已搞个lyb.mdb的数据库
xm字府型
id默认的ID号
ly字府型
yn字府型

——————————————————————————
<html>
<%@ language=vbscript%>
<%
If Time >= #0:00:00 # And Time < #5:00:00 # Then
Greeting = "这么晚你在干什么?呵和好朋友偷偷上网聊天对吗?真浪漫可以的话叫上小鱼儿我一起聊天呀!"
Else
If Time >= #5:00:00 # And Time < #8:00:00 # Then
Greeting = "Good Morning!早上多运动祝你今天有一个好的天始"
Else
If Time >= #8:00:00 # And Time < #11:30:00 # Then
Greeting = "上午好!朋友" 
Else
If Time >= #11:30:00 # And Time < #13:00:00 # Then
Greeting = "中午好,朋友吃饭了没有,我在啃方便面哟你准吃的比我好!真羡慕你"
ELse
If Time >= #13:00:00 # And Time < #17:00:00 # Then
Greeting = "朋友!下午好"
ELse
If Time >= #17:00:00 # And Time < #22:00:00 # Then
Greeting = "晚上好呀,听听音乐看看动画!希望你今晚开心" 
ELse
If Time >= #22:00:00 # And Time <= #23:59:00 # Then
Greeting = "哟很晚了哟,轻点哟邻居在睡觉,带上耳机听音乐吧"
ELse
Greeting = "午夜的钟声就要敲响了今天充实吗?还有什么没做呢想一下吧?"
End If
End If
End If
End If
End If
End If
End If
%>


<body bgcolor="#000000" text="#0000CC" link="#33FF33" vlink="#33FF33" alink="#00FF00">
<font size="2">    <%
DBPath = Server.MapPath("lyb.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Locktype = 2
rs.CursorType = 1

rs.Open "select xm,ly,id,yn from lyb", conn

'------------------
If request("page") = "" Or IsNumeric(request("page")) = false then
page = 1
else
page = request("page")
end if

rs.pagesize=10
rs.AbsolutePage=page
'------------------
%> 共有<font size="2" color="#33FF33"><%=rs.recordcount%></font>首FLASH 当前是第<font size="2" color="#33FF33"><%=page%></font>页/共有<font size="2" color="#33FF33"><%=rs.pagecount%></font>页
<% if page <> 1 then %> <a href="lyb122.asp?page=1">第一页</a> <a href="lyb122.asp?page=<%=(page-1)%>">上一页</a>
<% end if %> <% if cint(page)<>rs.pagecount then %> <a href="lyb122.asp?page=<%=(page+1)%>">下一页</a>
<a href="lyb122.asp?page=<%=rs.pagecount%>">尾页</a> <% end if %> </font>
<p align="center"><font color="#FFFFFF"><i><font size="5" face="Arial, Helvetica, sans-serif">
             FLASH</font></i><font size="5" face="Arial, Helvetica, sans-serif">
  欣赏    </font></font> <OBJECT ID=HHCtrl TYPE="application/x-oleobject"
        CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
        CODEBASE="HHCtrl.ocx#Version=4,73,8259,0">
  </OBJECT> <A HREF=JavaScript:HHCtrl.TextPopup(MyText,"Verdana,10",9,9,-1,-1)>
  Hello </A>
  <SCRIPT>MyText="<%= Greeting %>"
</SCRIPT></p>

<table width="87%" border="2" cellspacing="1" cellpadding="3" align="center" bordercolorlight="#000066" bordercolordark="#0000CC" bgcolor="#000099">
  <%
loopnum=0
do while not rs.eof and loopnum<10
loopnum=loopnum+1
c=rs("xm")
a=rs("id")
b=rs("ly")
e=rs("yn")

      %>
  <tr bgcolor="#6666FF">
    <td height="12" width="4%"><%=a%></td>
    <td height="12" width="29%"><a
      href="<%=b%>">欣赏</a></td>
    <td height="12" width="59%"><%=c%></td>
    <td height="12" width="8%"> <%=e%></td>
  </tr>
  <%     
        rs.movenext

      loop

rs.close
%>
</table>
<br>
                         <font size="2">您是在这个时候</font> <font size="2" color="#33FF33">
<%= Now %></font><font size="2"> 打开的该页</font>
</body>
</html>

reply[F0077683]
 



 
 re [1] ASP分页技术(源码)---为啥?ASP forum  
- twinkle02-12-10 14:41  


--------------------------------------------------------------------------------

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft Cursor Engine 错误 '80004005'

提供者或其他服务返回 E_FAIL 状态。

/clientserver/CustTS_service_index.asp,行206
206 行是:
Rs_all.AbsolutePage=CLng(Request("CurrentPage"))

我用此分页为什么出现这样的错误?而且我放在两个机器设置IIS浏览,
其中一个就没事,另一个就这样,这怎么了?


reply[F0035189]
 



 
 re [1] ASP分页技术(源码)---为啥?ASP forum  
- twinkle02-12-10 14:43  


--------------------------------------------------------------------------------

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft Cursor Engine 错误 '80004005'

提供者或其他服务返回 E_FAIL 状态。

/clientserver/CustTS_service_index.asp,行206
206 行是:
Rs_all.AbsolutePage=CLng(Request("CurrentPage"))

我用此分页为什么出现这样的错误?而且我放在两个机器设置IIS浏览,
其中一个就没事,另一个就这样,这怎么了?


reply[F0035191]
 



您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
118.1641