说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

谁写过ORACLE的OLE对象的分页程序??给点代码参考一下。

编辑:说三道四文库 发布时间:2018-01-23 06:28
HTML文档下载 WORD文档下载 PDF文档下载
着急啊,多谢!
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=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下测试通过

sql="select * from l_addresslist where  user_name  is not null" '默认查询条件
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if trim(request("keyword1"))="keyword" then
if trim(request("teamid"))<>""  and trim(request("keyWord"))=""  then
SQL="select * from l_addresslist where  user_name  is not null and user_group="&"'"&trim(request("teamid"))&"'"
end if
if trim(request("teamid"))=""  and trim(request("keyWord"))<>""  then
sql="select * from l_addresslist where  user_name  is not null and user_name like  "&"'%"&trim(request("keyWord"))&"%'"
end if
if trim(request("teamid"))<>""  and trim(request("keyWord"))<>""  then
sql="select * from l_addresslist where  user_name  is not null and user_name like  "&"'%"&trim(request("keyWord"))&"%'"&"and user_group="&"'"&trim(request("teamid"))&"'"
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set OraDynaset=OraDatabase.DbCreateDynaset(sql,cint(0)) 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''判断数据库中有没有记录!!
if OraDynaset.recordcount=0 then 
Response.Write("<script language='javascript'>alert('"&"没有符合条件的数据!"&"')</script>")
Response.Write("<script language='javascript'>window.location='index.asp'</script>")
response.end
else
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通过PAGESIZE计算出一共分多少页
pagesize=10
pages=int(OraDynaset.recordcount/pagesize) 
if pages*pagesize=OraDynaset.recordcount then 
pages=int(OraDynaset.recordcount/pagesize) 
else 
pages=int(OraDynaset.recordcount/pagesize)+1 
end if 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''确定当前页currentpage
if trim(request("page"))<>"" then 
currentpage=clng(request("page")) 
if currentpage>pages then 
currentpage=pages
end if 
else 
currentpage=1 
end if 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''POST提交页面数时处理
if request("PageNo")=1 then
currentpage=request("pageNum")
if cint(currentpage) > cint(pages) then
currentpage=pages
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''通过currentpage确定当前页开始记录与结束记录
startrow=(currentpage-1)*pagesize+1 
endrow=currentpage*pagesize 
OraDynaset.moveto startrow 
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''开始循环生成!!
for j=startrow to endrow 
%>
    
<tr> 
                              <td bgcolor="#FFFFFF" align="center">
<%=OraDynaset.fields("user_group").value %>                          
                              </td>
                              <td bgcolor="#FFFFFF" align="center"><a href="#" onclick="javascript:MM_openBrWindow('listDetail.asp?id=27&teamName=aaa','','scrollbars=yes,width=430,height=450')"><%=OraDynaset.fields("user_name").value %>    </a></td>
                              <td bgcolor="#FFFFFF" align="center"><%=OraDynaset.fields("user_Sex").value %>    </td>
                              <td bgcolor="#FFFFFF" align="center"><font face="Geneva, Arial, Helvetica, san-serif"><%=OraDynaset.fields("user_tel").value %></font></td>
                              <td bgcolor="#FFFFFF" align="center"><a href="mailto:999@jdkjf.com"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=OraDynaset.fields("user_email").value %>  </font></a> 
                              </td>
                              <td bgcolor="#FFFFFF" align="center"><a href="#" onclick="javascript:MM_openBrWindow('listMod.asp?id=27','','scrollbars=yes,width=430,height=560')" class="r2r">修改</a>/<a href="javascript:confirmdel(27);" class="green">删除</a></td>
                            </tr>
                            <%OraDynaset.movenext 
if OraDynaset.eof then exit for 

i=i+1'这个变量是用来判断需要不需要补空行
next %>
                   <%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''补空行开始
   if 10>i then 
   for k=1 to (10-i-1)
   %>
                      <tr> 
                              <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
                              <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
                              <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
                              <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
                              <td bgcolor="#FFFFFF" align="center"><font face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
                              <td bgcolor="#FFFFFF" align="center">&nbsp;</td>
                            </tr>    
<%
next
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''补空行结束%>   
  
  </table>
                        </td>
                      </tr>
                    </table>
<%''''''''''''''''''''''''''''''''''下面部分是用户控制当前第几页 %>

<table width="100%" border="0" cellspacing="0" cellpadding="3">
                      <tr> 
                        <td width="150" valign="middle"><a href="index.asp">首页</a> 
<a href="index.asp?page=<%
if currentpage>1 then
response.write currentpage-1
else
                        response.write currentpage
end if
%>">上一页</a> 
  <a href="index.asp?page=<%
  if currentpage>=pages then
response.write pages
else
                        response.write currentpage+1
end if
  %>">下一页</a> 
                          <a href="index.asp?page=<%=pages%>">末页</a> </td>
                        <form action="index.asp" method="post" id=form1 name=form1>
                          <td valign="middle"> 第 
                            <input type="text" name="pageNum" class="center_go" value="<%=currentpage%>">
                            页 
                            <input name="Mv" type="submit" class="center_go" value="Go">
                          </td>
<input type='hidden' name='PageNo' value="1">                          
<input type="hidden" value="" name="teamID">
<input type="hidden" value="" name="keyWord">

                        </form>
                        <td align="right"><font color="#FF6600"> 第<%=currentpage%>页 共<%=pages%>页</font></td>
                      </tr>
                    </table>
to: tigerwen01
兄弟,我要的是OLE的程序啊,不是ADO的:(

TO:: lions911
OK,THANKS!
TUP第29期:王淮、龚世海谈如何打造优秀的技术团队 一网打尽13款开源Java大数据工具,从理论到实践的剖析 从用户体验的善与恶说起,做用户爱“玩”的教育应用 三大主流开源硬件对比:Arduino vs BeagleBone vs Raspberry Pi “BlackBerry 10移动应用开发大赛”应用推荐 关于VB数据库问题!!超急!!!!谢谢各位前辈 求一SQL语句写法 谁能该我Rose2002的下在地址,我找过好多都不能下载,谢谢!!! 请问如何用程序定时重起电脑? 我的IE首页被一个网站改了。 help me !how to install eclipse on red hat8.0? 提问高手:如何改变ListView中行的高度??? 鸡毛信:这个SQL查询怎么写 "对于不返回任何基表信息的 SelectCommand 不支持动态 SQL 生成"错误如何改正 英语翻译 寻找立志文言警句!我哥快考研了,过几天他生日,我准 ( ,)这句名言告诉我们从小立志的重要性 求几句励志古文名言?励志古文名言名句,要有一定质量 乡村之夏阅读答案 文言文(古汉语)座右铭,励志的那种 谁能告诉我英文:"我给大家讲故事"的译文 有999字的作文?一定是写含羞草的 999虫草酒效果如何 俄媒体称斯诺登将供职于俄知名网站新消法规定:消费遇商家侮辱搜身可索赔律师称斯诺登将从11月起在俄大型网站直击吉林松原震区:村民“抱团”度寒夜斯诺登将为俄网站“打工”哈尔滨大火惨烈一幕 90后战士让美国炉石传说香蕉大乱斗卡组 平民T7猎拿缅甸果敢同盟军:我们心里的祖国只有中别把经济学家当股市算命先生仙剑客栈手游角色怎么觉醒 角色觉醒方网游之暴走盾战异界炉石终南启示录剽香窃玉火影之重生大蛇小野柳旅游关山风景区旅游受镇宫旅游三代木旅游姐妹潭旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘