后台代码:
<HTML>
<HEAD>
<title>asc</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<script language="javascript">
function Getsort(obj)
{
document.all.sortfield.value=obj;
if (document.all.sortstring.value == 'ASC')
{
document.all.sortstring.value = 'DESC';
}
else if (document.all.sortstring.value == 'DESC')
{
document.all.sortstring.value = 'ASC';
}
__doPostBack('LinkButton1','');
}
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<table>
<tr>
<td ondblclick="Getsort('di_id');"><b>双击此处可排序</b><INPUT type="hidden" id="sortfield" runat="server" NAME="sortfield">
<INPUT type="hidden" id="sortstring" runat="server" value="ASC" NAME="sortstring"></td>
</tr>
<tr>
<td>
<asp:Repeater id="Repeater1" runat="server">
<ItemTemplate>
<%# DataBinder.Eval(container.DataItem,"title") %>
<BR>
</ItemTemplate>
</asp:Repeater></td>
</tr>
</table>
<asp:LinkButton id="LinkButton1" runat="server">LinkButton</asp:LinkButton>
</form>
</body>
</HTML>
1 Public Function DataBindRp(ByVal sort As String)
2 Try
3 Dim strsql As String = "select top 20 * from hoo_info"
4 Dim dt As DataTable = DB.getDataTable(strsql)
5 Dim dv As DataView = dt.DefaultView
6 dv.Sort = sort
7 Me.Repeater1.DataSource = dv
8 Me.Repeater1.DataBind()
9 Catch ex As Exception
10 Return False
11 End Try
12 End Function
13
14 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
15 If Not IsPostBack Then
16 DataBindRp("di_id ASC")
17 End If
18 End Sub
19
20
21
22 Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
23 Dim sortString As String = Request.Form("sortstring").ToString()
24 Dim sortfield As String = Request.Form("sortfield").ToString()
25 Dim fullsortstring As String = sortfield + " " + sortString
26 If fullsortstring <> "" And Not fullsortstring Is Nothing Then
27 DataBindRp(fullsortstring)
28 End If
29
30 End Sub
Public Function DataBindRp(ByVal sort As String)
2
Try3
Dim strsql As String = "select top 20 * from hoo_info"4
Dim dt As DataTable = DB.getDataTable(strsql)5
Dim dv As DataView = dt.DefaultView6
dv.Sort = sort7
Me.Repeater1.DataSource = dv8
Me.Repeater1.DataBind()9
Catch ex As Exception10
Return False11
End Try12
End Function13
14
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load15
If Not IsPostBack Then16
DataBindRp("di_id ASC")17
End If18
End Sub19
20
21
22
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click23
Dim sortString As String = Request.Form("sortstring").ToString()24
Dim sortfield As String = Request.Form("sortfield").ToString()25
Dim fullsortstring As String = sortfield + " " + sortString26
If fullsortstring <> "" And Not fullsortstring Is Nothing Then27
DataBindRp(fullsortstring)28
End If29
30
End Sub<HTML> <HEAD> <title>asc</title> <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> <script language="javascript">
function Getsort(obj) {
document.all.sortfield.value=obj; if (document.all.sortstring.value == 'ASC') { document.all.sortstring.value = 'DESC'; } else if (document.all.sortstring.value == 'DESC') { document.all.sortstring.value = 'ASC'; } __doPostBack('LinkButton1',''); } </script> </HEAD> <body> <form id="Form1" method="post" runat="server"> <table> <tr> <td ondblclick="Getsort('di_id');"><b>双击此处可排序</b><INPUT type="hidden" id="sortfield" runat="server" NAME="sortfield"> <INPUT type="hidden" id="sortstring" runat="server" value="ASC" NAME="sortstring"></td> </tr> <tr> <td> <asp:Repeater id="Repeater1" runat="server"> <ItemTemplate> <%# DataBinder.Eval(container.DataItem,"title") %> <BR> </ItemTemplate> </asp:Repeater></td> </tr> </table> <asp:LinkButton id="LinkButton1" runat="server">LinkButton</asp:LinkButton> </form> </body></HTML>