📄 classmanager.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@ Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql,bianhao as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
'查询数据子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'查询数据子程序
Function getdataview(ByVal sql As String, ByVal strTable As String) As DataView
Dim myDataAdapter As OleDbDataAdapter
Dim myDataSet As DataSet
myConn.Open()
myDataAdapter = New OleDbDataAdapter(sql, myConn)
myConn.Close()
myDataSet = New DataSet()
myDataAdapter.Fill(myDataSet, strTable)
getdataview = New DataView(myDataSet.Tables(strTable))
End Function
'执行查询字符串子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
End Function
'数据绑定子程序
Function bindgrid()
information.Text = ""
sql = "select * from Classes order by ClassesID desc"
fenlei.DataSource = getdataview(sql, "fenlei")
fenlei.DataBind()
End Function
'初始化数据绑定子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Session("user") = "administrator" Then
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
bindgrid()
End If
Else
Response.Redirect("login.aspx")
End If
End Sub
'翻页子程序
Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
fenlei.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
'添加分类子程序
Sub butadd_Click(ByVal Sender As Object, ByVal e As EventArgs)
sql = "insert into Classes(ClassesName) values('" & fenleiname.Text & "')"
executesql(sql)
information.Text = "分类添加成功"
bindgrid()
End Sub
'删除分类子程序
Sub fenlei_delete(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
bianhao = fenlei.DataKeys(e.Item.ItemIndex)
executesql("delete from Classes where ClassesID=" & CInt(bianhao))
bindgrid()
End Sub
'编辑分类子程序
Sub fenlei_edit(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
fenlei.EditItemIndex = e.Item.ItemIndex
bindgrid()
End Sub
'更新分类子程序
Sub fenlei_update(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
Dim fltext As TextBox = e.Item.Cells(1).Controls(0)
Dim flname As String = fltext.Text
bianhao = fenlei.DataKeys(e.Item.ItemIndex)
sql = "update Classes set ClassesName='" & flname & "' where ClassesID=" & CInt(bianhao)
executesql(sql)
fenlei.EditItemIndex = -1
bindgrid()
End Sub
'取消操作子程序
Sub fenlei_cancel(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
fenlei.EditItemIndex = -1
bindgrid()
End Sub
</script>
<html>
<head>
<title>新闻分类管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778" border="0" align="center" cellspacing="0" cellpadding="0">
<form runat="server">
<tr>
<td align="center">
<asp:datagrid ID="fenlei" AllowPaging="true" PageSize="10" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#6699FF" HeaderStyle-HorizontalAlign="Center"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#6699FF" Width="90%"
AutoGenerateColumns="false" DataKeyField="ClassesID" OnPageIndexChanged="ChangePage" runat="server"
OnEditCommand="fenlei_edit" OnCancelCommand="fenlei_cancel" OnUpdateCommand="fenlei_update"
OnDeleteCommand="fenlei_delete">
<columns>
<asp:BoundColumn DataField="ClassesID" HeaderText="分类编号" ReadOnly="true"/>
<asp:boundcolumn DataField="ClassesName" HeaderText="分类名称"/>
<asp:ButtonColumn Text="删除" HeaderText="是否删除" CommandName="Delete"/>
<asp:editcommandcolumn EditText="编辑" CancelText="取消" UpdateText="修改" HeaderText="是否修改"/>
</columns>
</asp:datagrid>
</td>
</tr>
<tr>
<td align="center"><br />
分类名称：
<asp:textbox MaxLength="20" ID="fenleiname" Columns="20" runat="server"/>
<asp:Button id="butadd" OnClick="butadd_Click" Text="添加" runat="server"/>
</td>
</tr>
<tr>
<td align="center"><br />
<asp:label ID="message" Text="(如果数据库内有新闻，请慎重删除新闻分类！随意删除分类可能引起错误！)" ForeColor="#FF0000" runat="server"/>
</td>
</tr>
</form>
<tr>
<td>
<asp:label id="information" runat="server"/>
</td>
</tr>
</table>
<mynews:footer ID="Footer1" runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -