ASP网站制作之ASP分页手艺源码

只看该作者 · 发表于 2015-1-16 23:22:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。分页
<%本程叙文件名为：Pages.asp%>
<%包括ADO常量表文件adovbs.inc，可从"ProgramFilesCommonFilesSystemADO"目次下拷贝%>

<%＊创建数据库毗连，这里是Oracle8.05数据库
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=msdaora.1;DataSource=YourSrcName;UserID=YourUserID;Password=YourPassword;"

Setrs=Server.CreateObject("ADODB.Recordset")创立Recordset工具
rs.CursorLocation=adUseClient设定纪录集指针属性
＊设定一页内的纪录总数，可依据必要举行调剂
rs.PageSize=10
＊设置查询语句
StrSQL="SelectID,姓名,住址,德律风from通信录OrderByID"
rs.OpenStrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title>分页示例</title>
<scriptlanguage=javascript>
//点击"[第一页]"时呼应：
functionPageFirst()
{
document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
//点击"[上一页]"时呼应：
functionPagePrior()
{
document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
//点击"[下一页]"时呼应：
functionPageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
//点击"[最初一页]"时呼应：
functionPageLast()
{
document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}
//选择"第？页"时呼应：
functionPageCurrent()
{//Pages.asp是本程序的文件名
document.MyForm.action=Pages.asp?Page=+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();
}
</Script>
</HEAD>
<BODYbgcolor="#ffffcc"link="#008000"vlink="#008000"alink="#FF0000"">
<%IFrs.EofTHEN
Response.Write("<fontsize=2color=#000080>[数据库中没有纪录！]</font>")
ELSE
指定以后页码
IfRequest("CurrentPage")=""Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
EndIf
创立表单MyForm,办法为Get
Response.Write("<formmethod=Getname=MyForm>")
Response.Write("<palign=center><fontsize=2color=#008000>")
设置翻页超链接
ifrs.PageCount=1then
Response.Write("[第一页][上一页][下一页][最初一页]")
else
ifrs.AbsolutePage=1then
Response.Write("[第一页][上一页]")
Response.Write("[<ahref=javascript:PageNext()>下一页</a>]")
Response.Write("[<ahref=javascript:PageLast()>最初一页</a>]")
else
ifrs.AbsolutePage=rs.PageCountthen
Response.Write("[<ahref=javascript:PageFirst()>第一页</a>]")
Response.Write("[<ahref=javascript:PagePrior()>上一页</a>]")
Response.Write("[下一页][最初一页]")
else
Response.Write("[<ahref=javascript:PageFirst()>第一页</a>]")
Response.Write("[<ahref=javascript:PagePrior()>上一页</a>]")
Response.Write("[<ahref=javascript:PageNext()>下一页</a>]")
Response.Write("[<ahref=javascript:PageLast()>最初一页</a>]")
endif
endif
endif
创立下拉列表框，用于选择扫瞄页码
Response.Write("第<selectsize=1name=CurrentPageonchange=PageCurrent()>")
Fori=1tors.PageCount
ifrs.AbsolutePage=ithen
Response.Write("<optionselected>"&i&"</option>")以后页码
else
Response.Write("<option>"&i&"</option>")
endif
Next
Response.Write("</select>页/共"&rs.PageCount&"页共"&rs.RecordCount&"笔记录</font><p>")
Response.Write("</form>")
创立表格，用于显现
Response.Write("<tablealign=centercellspacing=1cellpadding=1border=1")
Response.Write("bordercolor=#99CCFFbordercolordark=#b0e0e6bordercolorlight=#000066>")
Response.Write("<trbgcolor=#ccccffbordercolor=#000066>")
SetColumns=rs.Fields
显现表头
Fori=0toColumns.Count-1
Response.Write("<tdalign=centerwidth=200height=13>")
Response.Write("<fontsize=2><b>"&Columns(i).name&"</b></font></td>")
Next
Response.Write("</tr>")
显现内容
Fori=1tors.PageSize
Response.Write("<trbgcolor=#99ccffbordercolor=#000066>")
Forj=0toColumns.Count-1
Response.Write("<td><fontsize=2>"&Columns(j)&"</font></td>")
Next
Response.Write("</tr>")
rs.movenext
ifrs.EOFthenexitfor
Next
Response.Write("</table>")
ENDIF
%>
</BODY>
</HTML>
<%
===程序在Win2000Server+IIS5.0+Oracle8.05下测试经由过程===
===夏春涛E-mail:bluesky_521@yeah.net===
%>

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)

只看该作者 · 发表于 2015-1-20 09:36:02

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

只看该作者 · 发表于 2015-1-27 09:37:45

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-2-5 04:11:31

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-2-11 04:08:02

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-3-1 20:54:35

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-3-10 23:31:54

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-3-17 16:07:29

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

仓酷云 · 发表于 2015-3-24 10:26:44

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之ASP分页手艺源码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子