📄 newsmanager.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Import Namespace="System.IO"%>
<%@ 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}
..special
a.special {color:#4455aa}
A.special:link,A.special:active,A.special:visited{TEXT-DECORATION:none ;Color:#000000}
A.special:hover{TEXT-DECORATION: underline;Color:#4455aa}
</style>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><mynews:main runat="server"/></td>
</tr>
<tr>
<td align="center"><strong>新闻维护</strong></td>
</tr>
<tr>
<td align="center"><a class="special" href="newsadd.aspx">添加新闻</a></td>
</tr>
<form runat="server">
<tr>
<td align="center"><asp:datagrid ID="news" AllowPaging="true" PageSize="20"
AutoGenerateColumns="false" DataKeyField="NewsID" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" OnPageIndexChanged="ChangePage"
OnDeleteCommand="news_delete" runat="server">
<columns>
<asp:boundcolumn DataField="NewsID" ReadOnly="true" HeaderText="编号"/>
<asp:HyperLinkColumn DataTextField="Title" DataNavigateUrlField="NewsID"
DataNavigateUrlFormatString="newshow.aspx?newsid={0}" Target ="_new" HeaderText="题目"/>
<asp:HyperLinkColumn HeaderText="修改" Text ="编辑"
DataNavigateUrlField="NewsID" DataNavigateUrlFormatString="newsedit.aspx?newsid={0}"/>
<asp:buttoncolumn CommandName="Delete" Text="删除" HeaderText="命令"/>
</columns>
</asp:datagrid></td>
</tr>
</form>
<tr>
<td><asp:label ID="message" 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 bindgrid()
sql="select * from News order by NewsID desc"
news.DataSource=getdataview(sql,"special")
news.DataBind()
end function
function deleteimg(str as string)
Dim result() as string
result=split(str,"[/upimg]")
Dim i as integer
i=0
while i<(result.length-1)
Dim weizhi as integer
weizhi=len(result(i))-instr(result(i),"[upimg]")-6
result(i)=right(result(i),weizhi)
File.Delete(Server.Mappath(".")&"\upload\"& result(i))
i=i+1
end while
end function
function executesql(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end function
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConn as string
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn=new OleDbConnection(strConn)
if session("user")="administrator" then
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)
news.CurrentPageIndex=e.NewPageIndex
bindgrid
end sub
sub news_delete(Sender as Object,e as DataGridCommandEventArgs)
Dim neirong as string
bianhao=news.DataKeys(e.Item.ItemIndex)
sql="select Content from News where NewsID="& Cint(bianhao)
Dim Reader as OleDbDataReader=getdatareader(sql)
while Reader.read()
neirong=Reader.Item(0)
end while
myConn.close()
deleteimg(neirong)
sql="Delete from News where NewsID="& Cint(bianhao)
executesql(sql)
message.text="新闻删除成功！"
bindgrid
end sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -