admin_system.aspx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Configuration
Imports flyangel.article.twotipclass

Public Class admin_system
    Inherits System.Web.UI.Page

    Protected WithEvents Weburl As System.Web.UI.WebControls.TextBox
    Protected WithEvents WebTitle As System.Web.UI.WebControls.TextBox
    Protected WithEvents copyright As System.Web.UI.WebControls.TextBox
    Protected WithEvents webmastermail As System.Web.UI.WebControls.TextBox
    Protected WithEvents addreadme As System.Web.UI.WebControls.TextBox
    Protected WithEvents opentime As System.Web.UI.WebControls.TextBox
    Protected WithEvents badword As System.Web.UI.WebControls.TextBox
    Protected WithEvents SMTPServer As System.Web.UI.WebControls.TextBox

    Protected WithEvents iflockip As System.Web.UI.WebControls.DropDownList
    Protected WithEvents uploadFlag As System.Web.UI.WebControls.DropDownList
    Protected WithEvents EmailFlag As System.Web.UI.WebControls.DropDownList
    Protected WithEvents htmlurl As System.Web.UI.WebControls.DropDownList

    Protected WithEvents system_edit As System.Web.UI.WebControls.Button
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents ipstart As System.Web.UI.WebControls.TextBox
    Protected WithEvents ipend As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Session("KEY") <> "super" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If

        copyright.Text = Application("copyright")
        WebTitle.Text = Application("WebTitle")
        Weburl.Text = Application("weburl")
        addreadme.Text = Application("addreadme")
        SMTPServer.Text = Application("SMTPServer")
        opentime.Text = Application("opentime")
        webmastermail.Text = Application("webmastermail")
        badword.Text = Application("badword")

        If Application("iflockip") = 0 Then
            iflockip.SelectedIndex = 0
        Else
            iflockip.SelectedIndex = 1
        End If

        If Application("uploadFlag") = 0 Then
            uploadFlag.SelectedIndex = 0
        Else
            uploadFlag.SelectedIndex = 1
        End If

        If Application("EmailFlag") = 0 Then
            EmailFlag.SelectedIndex = 0
        Else
            EmailFlag.SelectedIndex = 1
        End If

        If Application("htmlurl") = 0 Then
            htmlurl.SelectedIndex = 0
        Else
            htmlurl.SelectedIndex = 1
        End If

        ipstart.Text = Application("interipstar")
        ipend.Text = Application("interipend")

        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码



    End Sub


    Private Sub system_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles system_edit.Click

        Dim ipstart As String = Trim(Request.Form("ipstart"))
        Dim ipend As String = Request.Form("ipend")
        Dim copyright As String = Request.Form("copyright")
        Dim WebTitle As String = Request.Form("WebTitle")
        Dim weburl As String = Trim(Request.Form("weburl"))
        Dim opentime As String = Trim(Request.Form("opentime"))
        Dim badword As String = Trim(Request.Form("badword"))
        Dim SMTPServer As String = Request.Form("SMTPServer")
        Dim webmastermail As String = Request.Form("webmastermail")
        Dim addreadme As String = Request.Form("addreadme")

        Dim iflockip As Integer = Request.Form("iflockip")
        Dim uploadFlag As Integer = Request.Form("uploadFlag")
        Dim EmailFlag As Integer = Request.Form("EmailFlag")
        Dim htmlurl As Integer = Trim(Request.Form("htmlurl"))

        'UpdateCommand
        Dim updatastring As String
        Dim message As String
        updatastring = "UPDATE websystem set copyright='" & copyright & "',WebTitle='" & WebTitle & "'," & _
        "weburl='" & weburl & "',opentime='" & opentime & "',badword='" & badword & "'," & _
        "SMTPServer='" & SMTPServer & "',webmastermail='" & webmastermail & "',addreadme='" & addreadme & "'," & _
        "iflockip=" & iflockip & ",uploadFlag=" & uploadFlag & "," & _
        "EmailFlag=" & EmailFlag & ",htmlurl=" & htmlurl & ",interipstar='" & ipstart & "',interipend='" & ipend & "'"

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")

        If dpfly.OneSelect_doDBRecoder(updatastring) Then
            message = "更新系统设置成功！"
            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
            dplog.Log_Add_cache("更新系统设置", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "更新系统设置失败，请重新修改！"
        End If

        Application("copyright") = Request.Form("copyright")
        Application("WebTitle") = Request.Form("WebTitle")
        Application("addreadme") = Request.Form("addreadme")
        Application("weburl") = Trim(Request.Form("weburl"))
        Application("htmlurl") = Request.Form("htmlurl")
        Application("webmastermail") = Request.Form("webmastermail")
        Application("EmailFlag") = Request.Form("EmailFlag")
        Application("SMTPServer") = Request.Form("SMTPServer")
        Application("opentime") = Request.Form("opentime")
        Application("badword") = Request.Form("badword")
        Application("uploadFlag") = Request.Form("uploadFlag")
        Application("iflockip") = Request.Form("iflockip")
        Application("interipstar") = Request.Form("ipstart")
        Application("interipend") = Request.Form("ipend")

        Response.Redirect("admin_system.aspx?message=" & message)

    End Sub
End Class