web/Editnotice.aspx.vb

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

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

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports BLL
Imports Model
Imports System.Data.SqlClient
Imports System.Net.Mail


Partial Class Editnotice
    Inherits System.Web.UI.Page
    Dim sysCRF As New SystemBLL
    Dim sysTask As New NOTICEBLL
    Dim strTask As New NOTICE
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            If Request.QueryString("ID") Is Nothing Then
                txt_Crfid.Text = sysCRF.NOTICECODE
                savebtn0.Visible = False
            Else
                txt_id.Text = Request.QueryString("ID").ToString.Trim
                savebtn.Visible = False
                getdata()
            End If
        End If
    End Sub
    Private Sub getdata()
        Dim dt As DataTable = sysCRF.seachData("select * from SYSNOTICE where id=" & txt_id.Text.Trim).Tables(0)
        txt_Crfid.Text = dt.Rows(0)("NOTICEID").ToString
        txt_TTitle.Text = dt.Rows(0)("Title").ToString
        txt_Content.Value = dt.Rows(0)("TContent").ToString
    End Sub
    Protected Sub savebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn.Click
        If Page.IsValid Then

            strTask.NOTICEID = txt_Crfid.Text.Trim
            strTask.TTitle = txt_TTitle.Text.Trim
            strTask.TContent = txt_Content.Value.Trim

            strTask.Remark = ""
            strTask.Createby = Request.Cookies("sh")("userid").ToString
            'Request.Cookies("sh")("userid").ToString
            If sysTask.Add_NOTICE(strTask) > 0 Then
                Response.Write("<script>alert('添加成功');</script>")
                Response.Redirect("NOTICEMANAGE.aspx")
            Else
                Response.Write("<script>alert('添加失败');</script>")
            End If

        End If
    End Sub