Hello, i'm working on a greeting card website, there is a page where i'm
showing
greeting cards, i have done paging on this page with using Datalist and its
working well but i have a problem is on Next button i want to disable Next
button link when user is on last page so pls tell me how can i do it in
ASP.NET, below i'm giving my page code,pls review it.
<%@ Import NameSpace="Syst em.Data" %>
<%@ Import NameSpace="Syst em.Data.oledb" %>
<html>
<head>
<title>Paging in Datalist - by Das</title>
<script language="vb" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s)
If Not Page.IsPostBack () Then
intPageSize.Tex t = "5"
intCurrIndex.Te xt = "0"
DataBind()
End If
End Sub
Private Sub DataBind()
Dim cs,d,q2 as string
Dim c,rc,i as integer
c=Request.Query String("catID")
'Response.Write (c)
q2="Select count(*) from cards where categoryID=Cint ('"& c &"') "
Dim pics as Arraylist=new Arraylist()
cs=System.confi guration.Config urationSettings .Appsettings("c onnstr")
Dim objconn as new oledbConnection (cs)
Dim objcomm as new oledbCommand(q2 ,objconn)
objconn.open()
rc=objcomm.Exec utescalar()
'Response.Write (rc)
Dim objDA As New oledbdataAdapte r("Select * from cards where
categoryID=Cint ('"& c &"')", objConn)
Dim objDS As New DataSet()
objDA.Fill(objD S)
intRecordCount. Text = CStr(objDS.Tabl es(0).Rows.Coun t)
objDS = Nothing
objDS = New DataSet()
objDA.Fill (objDS, Cint(intCurrInd ex.Text), CInt(intPageSiz e.Text), "cards")
Dim objtable as new DataTable
Dim objrow as DataRow
objtable=objDS. Tables("cards")
for i=0 to 4
objrow=objTable .rows(i)
d="<a href=form.asp?c id=" & objrow("cardID" ) & ">"& _
"<img src='Friendship/"& objrow("cardthu mbnail") &"' border=0></a>"
pics.Add(d)
Next
dList.Datasourc e=pics
dList.DataBind( )
objConn.Close()
PrintStatus()
End Sub
Public Sub ShowFirst(ByVal s As Object, ByVal e As EventArgs)
intCurrIndex.Te xt = "0"
DataBind()
End Sub
Public Sub ShowPrevious(By Val s As Object, ByVal e As EventArgs)
intCurrIndex.Te xt = Cstr(Cint(intCu rrIndex.Text) - CInt(intPageSiz e.Text))
If CInt(intCurrInd ex.Text) < 0 Then
intCurrIndex.Te xt = "0"
End If
DataBind()
End Sub
Public Sub ShowNext(ByVal s As Object, ByVal e As EventArgs)
If CInt(intCurrInd ex.Text) + 1 < CInt(intRecordC ount.Text) Then
intCurrIndex.Te xt = CStr(CInt(intCu rrIndex.Text) + CInt(intPageSiz e.Text))
End If
DataBind()
End Sub
Public Sub ShowLast(ByVal s As Object, ByVal e As EventArgs)
Dim tmpInt as Integer
tmpInt = CInt(intRecordC ount.Text) Mod CInt(intPageSiz e.Text)
If tmpInt > 0 Then
intCurrIndex.Te xt = Cstr(CInt(intRe cordCount.Text) - tmpInt)
Else
intCurrIndex.Te xt = Cstr(CInt(intRe cordCount.Text) - CInt(intPageSiz e.Text))
End If
DataBind()
End Sub
Private Sub PrintStatus()
lblStatus.Text = "Total Records:<b>" & intRecordCount. Text
lblStatus.Text += "</b> - Showing Page:<b> "
lblStatus.Text += CStr(CInt(CInt( intCurrIndex.Te xt) /
CInt(intPageSiz e.Text)+1))
lblStatus.Text += "</b> of <b>"
If (CInt(intRecord Count.Text) Mod CInt(intPageSiz e.Text)) > 0 Then
lblStatus.Text += CStr(CInt(CInt( intRecordCount. Text) /
CInt(intPageSiz e.Text)+1))
Else
lblStatus.Text += CStr(CInt(intRe cordCount.Text) / CInt(intPageSiz e.Text))
End If
lblStatus.Text += "</b>"
End Sub
</script>
</head>
<body>
<form id="Form1" method="post" runat="server">
<h2 align="center"> <font face="verdana"> Paging in DataList</font></h2>
<asp:DataList ID="dList" Runat="server" Width="100%" RepeatColumns=" 3"
BorderWidth="1" EnableViewState ="False">
<ItemTemplate >
<%# Container.DataI tem%>
</ItemTemplate>
</asp:DataList>
<table width=100% align="right">
<tr>
<td width=76% align=left> <asp:label ID="lblStatus"
Runat="server"
Font-Name="verdana"
Font-Size="10pt" /> </td>
<td width=6%> <font size="2"><a href="datalistp aging.aspx#this "
ID="hrefFirst"
onserverclick=" ShowFirst"
runat="server"> First</a> </font></td>
<td width=6%> <font size="2"><a href="datalistp aging.aspx#this "
ID="hrefPreviou s"
onserverclick=" ShowPrevious"
runat="server"> Prev</a> </font></td>
<td width=6%>
<a href="datalistp aging.aspx#this " ID="hrefNext" onserverclick=" ShowNext"
runat="server">
<font size="2">NEXT</font></a> </td>
<td width=6%> <font size="2">
<a href="datalistp aging.aspx#this "
ID="hrefLast"
onserverclick=" ShowLast"
runat="server"> Last</a> </font></td>
</tr>
</table>
<asp:label ID="intCurrInde x"
Visible="False"
Runat="server" />
<asp:label ID="intPageSize "
Visible="False"
Runat="server" />
<asp:label ID="intRecordCo unt"
Visible="False"
Runat="server" />
</form>
</body>
</html>
