📄 specialmanager.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="specialname" 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="special" AllowPaging="true" PageSize="10"
PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" AutoGenerateColumns="false" DataKeyField="SpecialID" OnPageIndexChanged="ChangePage" runat="server"
OnEditCommand="special_edit" OnCancelCommand="special_cancel" OnUpdateCommand="special_update"
OnDeleteCommand="special_delete">
<columns>
<asp:BoundColumn DataField="SpecialID" HeaderText="专题编号" ReadOnly="true"/>
<asp:boundcolumn DataField="SpecialName" HeaderText="专题名称"/>
<asp:ButtonColumn Text="删除" CommandName="Delete"/>
<asp:editcommandcolumn
EditText="编辑"
CancelText="取消"
UpdateText="更新"
HeaderText="命令"/>
</columns>
</asp:datagrid></td>
</tr>
</form>
<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()
sql="select * from Special order by SpecialID desc"
special.DataSource=getdataview(sql,"special")
special.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)
special.CurrentPageIndex=e.NewPageIndex
bindgrid
end sub
sub butadd_Click(Sender as Object,e as EventArgs)
sql="insert into Special(SpecialName) values('"& specialname.text &"')"
executesql(sql)
bindgrid
end sub
sub special_delete(Sender as Object,e as DataGridCommandEventArgs)
bianhao=special.DataKeys(e.Item.ItemIndex)
executesql("delete from Special where SpecialID="& cint(bianhao))
bindgrid
end sub
sub special_edit(Sender as Object,e as DataGridCommandEventArgs)
special.EditItemIndex=e.Item.ItemIndex
bindgrid
end sub
sub special_update(Sender as Object,e as DataGridCommandEventArgs)
Dim fltext as textbox=e.Item.Cells(1).Controls(0)
Dim flname as string=fltext.Text
bianhao=special.DataKeys(e.Item.ItemIndex)
sql="update Special set SpecialName='"& flname &"' where SpecialID="& cint(bianhao)
executesql(sql)
special.EditItemIndex=-1
bindgrid
end sub
sub special_cancel(Sender as Object,e as DataGridCommandEventArgs)
special.EditItemIndex=-1
bindgrid
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -