ASP网页编程之datarepeater分页示例
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。分页|示例<%@PageLanguage="VB"%><%@importNamespace="System.Data"%>
<scriptrunat="server">
SubPage_Load(ByValSenderAsObject,ByValeAsEventArgs)
DimPgdsAsPagedDataSource=NewPagedDataSource
Pgds.DataSource=CreateDataSource().DefaultView
Pgds.AllowPaging=True
Pgds.PageSize=6
lblTotalPage.Text=Pgds.PageCount.ToString()
DimCurrentPageAsInteger
IfNotRequest.QueryString("Page")IsNothingThen
CurrentPage=Convert.ToInt32(Request.QueryString("Page"))
Else
CurrentPage=1
EndIf
Pgds.CurrentPageIndex=CurrentPage-1
lblCurrentPage.Text=CurrentPage.ToString()
IfNotPgds.IsFirstPageThen
lnkPrev.NavigateUrl=Request.CurrentExecutionFilePath+"?Page="+Convert.ToString(CurrentPage-1)
EndIf
IfNotPgds.IsLastPageThen
lnkNext.NavigateUrl=Request.CurrentExecutionFilePath+"?Page="+Convert.ToString(CurrentPage+1)
EndIf
Repeater1.DataSource=Pgds
Repeater1.DataBind()
EndSub
FunctionCreateDataSource()AsDatatable
DimdtAsDataTable
DimdrAsDataRow
DimiAsInteger
dt=NewDataTable
dt.Columns.Add(NewDataColumn("IntegerValue",GetType(Integer)))
dt.Columns.Add(NewDataColumn("StringValue",GetType(String)))
dt.Columns.Add(NewDataColumn("DateTimeValue",GetType(DateTime)))
dt.Columns.Add(NewDataColumn("BoolValue",GetType(Boolean)))
Fori=0To50
dr=dt.NewRow()
dr(0)=i
dr(1)="Item"+i.ToString()
dr(2)=DateTime.Now.ToShortTimeString
If(iMod20)Then
dr(3)=True
Else
dr(3)=False
EndIf
dt.Rows.Add(dr)
Next
Returndt
EndFunction
</script>
<html>
<head>
<title>DataRepeater</title>
<styletype=text/css>
BODY{FONT:10pxVerdana,Arial,Helvetica,"sansserif";COLOR:#000000;}
.txt{FONT-SIZE:12px}
</style>
</head>
<body>
<formid="Form1"name=form1method=postrunat="server">
<tableclass=txtwidth="100%"border=0>
<tbody>
<tr>
<td><asp:hyperlinkid=lnkPrevrunat="server">上页</asp:hyperlink><asp:hyperlinkid=lnkNextrunat="server">下页</asp:hyperlink>
第
<asp:labelid=lblCurrentPagerunat="server"></asp:label>
页共
<asp:labelid=lblTotalPagerunat="server"></asp:label>
页</td>
</tr></tbody>
</table>
<asp:repeaterID=Repeater1runat="server">
<itemtemplate>
<hralign="left"width="60%"size="1">
<tableclass=txtwidth="100%"border="0">
<tr>
<td>OrderDate:
<%#DataBinder.Eval(Container.DataItem,"DateTimeValue","{0:d}")%></td>
<tr>
<td>Quantity:
<%#DataBinder.Eval(Container.DataItem,"IntegerValue","{0:N2}")%></td>
<tr>
<td>Item:
<%#DataBinder.Eval(Container.DataItem,"StringValue")%></td>
<tr>
<td>OrderDate:
<asp:checkboxid="chk1"checked=<%#DataBinder.Eval(Container.DataItem,"BoolValue")%>runat="server"/>
</td>
</tr>
</table>
</itemtemplate>
</asp:repeater>
<hrhight="1">
</form>
</body>
</html>
</p>缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:
页:
[1]