📄 fenleimanager.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="end" src="ascx/end.ascx"%>
<html>
<head>
<title>新闻分类管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style type="text/css">
body {COLOR: #000000; FONT-SIZE: 14px}
td {COLOR: #000000; FONT-SIZE: 14px}
.a { color: #9A1B1B}
a:hover { color: #9A1B1B}
a:link {color: #9A1B1B; text-decoration:none}
a:visited { color: #9A1B1B; text-decoration:none}
</style>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><mynews:main runat="server"/></td>
</tr>
<form runat="server">
<tr>
<td align="center">分类名称：
<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"><asp:label ID="message" Text="如果数据库内有新闻，请慎重删除新闻分类！随意删除分类可能引起错误！"
ForeColor="#FF0000" runat="server"/></td>
</tr>
<tr>
<td align="center"><asp:datagrid ID="fenlei" AllowPaging="true" PageSize="10"
PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" AutoGenerateColumns="false" DataKeyField="BigClassID" OnPageIndexChanged="ChangePage" runat="server"
OnEditCommand="fenlei_edit" OnCancelCommand="fenlei_cancel" OnUpdateCommand="fenlei_update"
OnDeleteCommand="fenlei_delete">
<columns>
<asp:BoundColumn DataField="BigclassID" HeaderText="分类编号" ReadOnly="true"/>
<asp:boundcolumn DataField="BigClassName" HeaderText="分类名称"/>
<asp:ButtonColumn Text="删除" CommandName="Delete"/>
<asp:editcommandcolumn
EditText="编辑"
CancelText="取消"
UpdateText="更新"
HeaderText="命令"/>
</columns>
</asp:datagrid></td>
</tr>
</form>
<tr>
<td><asp:label id="information" runat="server"/></td>
</tr>
<tr>
<td><mynews:end runat="server"/></td>
</tr>
</table>
</body>
</html>
<script language="VB" runat="server">
Dim sql,bianhao as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
function getdatareader(sql as string) as OleDbDataReader
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
end function
function getdataview(sql as string,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(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end function
function bindgrid()
information.text=""
sql="select * from BigClass order by BigClassID desc"
fenlei.DataSource=getdataview(sql,"fenlei")
fenlei.DataBind()
end function
Sub Page_Load(sender As Object, e As EventArgs)
if session("user")="administrator" then
Dim strConn as string
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/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(Sender as Object,e as DataGridPageChangedEventArgs)
fenlei.CurrentPageIndex=e.NewPageIndex
bindgrid
end sub
sub butadd_Click(Sender as Object,e as EventArgs)
sql="insert into BigClass(BigclassName) values('"& fenleiname.text &"')"
executesql(sql)
information.text="分类添加成功"
bindgrid
end sub
sub fenlei_delete(Sender as Object,e as DataGridCommandEventArgs)
bianhao=fenlei.DataKeys(e.Item.ItemIndex)
executesql("delete from BigClass where BigClassID="& cint(bianhao))
bindgrid
end sub
sub fenlei_edit(Sender as Object,e as DataGridCommandEventArgs)
fenlei.EditItemIndex=e.Item.ItemIndex
bindgrid
end sub
sub fenlei_update(Sender as Object,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 BigClass set BigClassName='"& flname &"' where BigClassID="& cint(bianhao)
executesql(sql)
fenlei.EditItemIndex=-1
bindgrid
end sub
sub fenlei_cancel(Sender as Object,e as DataGridCommandEventArgs)
fenlei.EditItemIndex=-1
bindgrid
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -