PublicClass Info_ManageClass Info_Manage Inherits System.Web.UI.Page Dim SqlStr AsString="select Information.*,Catalog.Catalog_Name As Inf_Catalog_Name from Information Inner Join [Catalog] On Information.Inf_Catalog_Id=[Catalog].Id "'''用于记录Sql语句 Dim AddStr AsString=""'''用于记录Sql条件语句 PrivateConst Ord AsString=" order by Information.Id" ProtectedWithEvents Msg As System.Web.UI.WebControls.Label ProtectedWithEvents Num As System.Web.UI.WebControls.TextBox ProtectedWithEvents Button8 As System.Web.UI.WebControls.Button ProtectedWithEvents Label3 As System.Web.UI.WebControls.Label Dim Db AsNew DataAccess Web 窗体设计器生成的代码#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()>PrivateSub InitializeComponent()Sub InitializeComponent() End Sub ProtectedWithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid ProtectedWithEvents Label1 As System.Web.UI.WebControls.Label ProtectedWithEvents Label2 As System.Web.UI.WebControls.Label ProtectedWithEvents TextBox1 As System.Web.UI.WebControls.TextBox ProtectedWithEvents Button1 As System.Web.UI.WebControls.Button ProtectedWithEvents Button2 As System.Web.UI.WebControls.Button ProtectedWithEvents Button3 As System.Web.UI.WebControls.Button ProtectedWithEvents Button4 As System.Web.UI.WebControls.Button ProtectedWithEvents Button5 As System.Web.UI.WebControls.Button ProtectedWithEvents Button6 As System.Web.UI.WebControls.Button ProtectedWithEvents Button7 As System.Web.UI.WebControls.Button ProtectedWithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList '注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object PrivateSub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub #End Region '''加载分类信息 Sub AddCatalog()Sub AddCatalog() Dim Dt AsNew DataTable DropDownList1.Items.Clear() Dt = Db.RunAdpSelect("Select * from Catalog Order by Id") DropDownList1.Items.Insert(0, New ListItem("请选择信息类别", -1)) For I As Int16 =0To Dt.Rows.Count -1 DropDownList1.Items.Add(New ListItem(Dt.Rows(I)("Catalog_Name"), Dt.Rows(I)("Id"))) Next DropDownList1.DataBind() End Sub '''计算各种数据 Sub CountInfo()Sub CountInfo() ViewState("PageSize") =15 ViewState("CurrentPageIndex") =0 ViewState("Count") = Db.RunExeScale("Select Count(*) From Information"& AddStr) If ViewState("Count") Mod ViewState("PageSize") =0Then ViewState("PageCount") = ViewState("Count") / ViewState("PageSize") Else ViewState("PageCount") =Fix(ViewState("Count") / ViewState("PageSize") +1) EndIf End Sub '''定制信息 Sub BindData()Sub BindData() Dim Dt AsNew DataTable Dt = Db.RunPageSelect(SqlStr & AddStr & Ord, ViewState("PageSize") * ViewState("CurrentPageIndex"), ViewState("PageSize"), "Information") DataGrid1.DataSource = Dt DataGrid1.DataBind() Msg.Text ="<font Color=Red>信息:"& ViewState("Count") &"条---页:"& ViewState("CurrentPageIndex") +1&"/"& ViewState("PageCount") &"</font>" If ViewState("PageCount") =1Then Button2.Enabled =False Button3.Enabled =False Button4.Enabled =False Button5.Enabled =False Button6.Enabled =False Exit Sub EndIf If ViewState("CurrentPageIndex") =0Then Button2.Enabled =False Button3.Enabled =False Button4.Enabled =True Button5.Enabled =True ElseIf ViewState("CurrentPageIndex") = ViewState("PageCount") -1Then Button4.Enabled =False Button5.Enabled =False Button2.Enabled =True Button3.Enabled =True EndIf End Sub PrivateSub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load '在此处放置初始化页的用户代码 IfNot Page.IsPostBack Then ' If Session("Uid") = "" OrElse Session("Uid") Is Nothing Then ' Response.Write("<script language='javascript'>parent.parent.location.href='../WebForm1.aspx';</script>") ' Else Button7.Attributes.Add("onclick", "return Check_Set('确定删除选择项吗?将无法恢复!','请选择要删除的项!');") AddCatalog() CountInfo() BindData() ' End If EndIf End Sub '''首页 PrivateSub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ViewState("CurrentPageIndex") =0 BindData() End Sub '''末页 PrivateSub Button5_Click()Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ViewState("CurrentPageIndex") = ViewState("PageCount") -1 BindData() End Sub '''上页 PrivateSub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ViewState("CurrentPageIndex") >0Then ViewState("CurrentPageIndex") = ViewState("CurrentPageIndex") -1 EndIf BindData() End Sub '''下页 PrivateSub Button4_Click()Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If ViewState("CurrentPageIndex") < ViewState("PageCount") -1Then ViewState("CurrentPageIndex") = ViewState("CurrentPageIndex") +1 EndIf BindData() End Sub '''页面跳转 PrivateSub Button6_Click()Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click IfIsNumeric(Num.Text.Trim) =FalseOrElse (CInt(Num.Text.Trim) > ViewState("PageCount")) OrElse (CInt(Num.Text.Trim) <1) Then Response.Write("<script language='javascript'>alert('所输入内容必须为总页数内的整数数字!');</script>") Else ViewState("CurrentPageIndex") =CInt(Num.Text.Trim) -1 BindData() EndIf Num.Text ="" End Sub '''搜索 PrivateSub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AddStr =" Where Inf_Catalog_Id= "& DropDownList1.SelectedValue &" And Inf_Title like '%"& TextBox1.Text.Trim &"%' " CountInfo() BindData() End Sub '''重置 PrivateSub Button8_Click()Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click AddStr ="" CountInfo() BindData() End Sub '''删除选择的项 PrivateSub Button7_Click()Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim Ids AsString= Request.Form("CheckBox2") Db.RunInsertUpdateDelete("Delete From Information Where Id in ("& Ids &")") Response.Write("<script language='javascript'>alert('删除完毕!');</script>") CountInfo() BindData() End Sub '''添加鼠标属性 PrivateSub DataGrid1_ItemCreated()Sub DataGrid1_ItemCreated(ByVal sender AsObject, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated If e.Item.ItemIndex <>-1Then e.Item.Attributes.Add("onmouseover", "ItemOver(this)") e.Item.Attributes.Add("onmouseout", "ItemOut(this)") EndIf End Sub End Class
HTML> HEAD> title>Info_Managetitle> meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR"> meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE"> meta c