newsmanager.aspx

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%@ 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)