📄 newsmanager.aspx
字号:
<%@ Page Language="VB" 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="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 bindgrid()
sql = "select * from News order by NewsID desc"
news.DataSource = getdataview(sql, "special")
news.DataBind()
End Function
'删除新闻中包含的图片子程序
Function deleteimg(ByVal 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(ByVal sql As String)
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
End Function
'初始判断用户是否能够管理
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/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(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
news.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
'删除子程序
Sub news_delete(ByVal Sender As Object, ByVal 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)
MsgBox("你确定要删除这条新闻吗！", 0, "提示")
bindgrid()
End Sub
</script>
<html>
<head>
<title>新闻管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<form id="Form1" runat="server">
<asp:datagrid ID="news" AllowPaging="true" PageSize="10"
AutoGenerateColumns="false" DataKeyField="NewsID" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#6699FF" HeaderStyle-HorizontalAlign="Center"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#6699FF" OnPageIndexChanged="ChangePage"
OnDeleteCommand="news_delete" Width="90%" 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>
</form>
</td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -