test.aspx

ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌

<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<script language="VB" runat="server">

	Dim PageSize As Integer
	Dim CurP As Integer
	Dim TotalPage As Integer

	Sub Page_Load(Sender As Object, e As EventArgs)
		PageSize=10
		CurP=CInt(pagenow.value)
		RefreshGuest
	End Sub

	Sub toFirst_OnClick(Sender As Object, e As EventArgs)
		CurP=1
		pagenow.value="1"
		RefreshGuest
	End Sub

	Sub prepage_OnClick(Sender As Object, e As EventArgs)
		If CurP>1 Then
			CurP-=1
		Else
			CurP=1
		End If
		pagenow.value=CurP.ToString()
		RefreshGuest
	End Sub

	Sub nextpage_OnClick(Sender As Object, e As EventArgs)
		If CurP<TotalPage Then
			CurP+=1
		Else
			CurP=TotalPage
		End If
		pagenow.value=CurP.ToString()
		RefreshGuest
	End Sub

	Sub RefreshGuest
		Dim MyGuest As GuestDB=New GuestDB()

		Dim MyDV As DataView=MyGuest.GetGuest(CurP,PageSize,TotalPage)
		guestbook.DataSource=MyDV
		guestbook.DataBind()

		If CurP=1 Then
			prepage.Visible=false
			toFirst.Visible=false
		Else
			prepage.Visible=true
			toFirst.Visible=true
		End If
		If CurP=TotalPage Then
			nextpage.Visible=false
		Else
			nextpage.Visible=true
		End If
	End Sub

	Function pre(Original As String) As String
		If Original.Length>300 Then
			Return Left(Original, 300)+"&nbsp; <font color=blue> ……</font>"
		Else
			Return Original
		End If
	End Function

</script>
<form runat="server">
<asp:Repeater id="guestbook" runat="server" visible="true">
	<HeaderTemplate>
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr><td width="100%" height="15" align="center">
		<table border="0" cellpadding="0" cellspacing="0" width="93%" >
	</HeaderTemplate>
	<ItemTemplate>
			<tr><td width="100%" background="images/bar2.gif" height="20">&nbsp;
			<font color="#FFFFFF"><b><%# DataBinder.Eval(Container.DataItem, "GuestTitle") %></b></font></td></tr>
			<tr><td width="100%"><%# pre(Container.DataItem("GuestContent"))%></td></tr>
			<tr><td width="100%">
			<p align="right"><a href="mailto:
			<%# DataBinder.Eval(Container.DataItem, "GuestEmail") %>">
			<%# DataBinder.Eval(Container.DataItem, "GuestName") %> </a>发表于
			<%# DataBinder.Eval(Container.DataItem, "GuestTime") %></td></tr>
	</ItemTemplate>
	<FooterTemplate>
		</table>
		</td></tr>
	</table>
	</FooterTemplate>
</asp:Repeater>
<input type="hidden" id="pagenow" runat="server" value="1">
<asp:LinkButton id="toFirst" text="转到第一页" runat="server" onClick="toFirst_OnClick" />&nbsp;
<asp:LinkButton id="prepage" text="上一页" runat="server" onClick="prepage_OnClick" />&nbsp;
<asp:LinkButton id="nextpage" text="下一页" runat="server" onClick="nextpage_OnClick" />
</form>