Dim objconn As New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim comdstr As String
Dim comd, objcomd As SqlCommand
Dim newsdr As SqlDataReader
Dim adp As SqlDataAdapter
Dim ds As DataSet
Public rqid As String
Public newis As String
//当修改时页面默认的绑定信息
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Session("username") = "" Or Session("password") = "" Then
Response.Redirect("login.aspx")
End If
rqid = Request.QueryString("newidd")
If rqid <> "" Then
Button1.Visible = False
comdstr = "select newsid,bigclaname,title,newsfrom,newstime,writer,hit,newskey,content,newsis from news_article inner join news_bigclass on news_article.bigclassid=news_bigclass.bigclassid where newsid='" & rqid & "' order by newstime desc"
objcomd = New SqlCommand(comdstr, objconn)
objconn.Open()
newsdr = objcomd.ExecuteReader
If newsdr.Read() Then
title1.Value = newsdr("title").ToString
newskey1.Value = newsdr("newskey").ToString
newsfrom1.Value = newsdr("newsfrom").ToString
writer1.Value = newsdr("writer").ToString
ftb.Text = newsdr("content").ToString
Dim newis As Boolean
newis = newsdr("newsis")
If newis = True Then
newsis.Checked = True
Else
newsis1.Checked = True
End If
End If
objconn.Close()
Else
Button2.Visible = False
End If
comdstr = "select * from news_bigclass"
comd = New SqlCommand(comdstr, objconn)
objconn.Open()
adp = New SqlDataAdapter
adp.SelectCommand = comd
ds = New DataSet
adp.Fill(ds, "leibie") '填充DataSet数据集
bigclass.DataSource = ds.Tables("leibie")
bigclass.DataBind()
comd.Connection.Close()
End Sub
//添加按键的事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim newsinsert, txt, txt1 As String
If Request.Form("newsis") = "1" Then
newis = 1
'Else
' newis = 0
End If
If Request.Form("newsis1") = "0" Then
' newis = 1
'Else
newis = 0
'If newsis.Value <> "" Then
' newis = 1
'Else
' newis = 0
End If
txt = ftb.Text
txt1 = Year(Request.Form("newstime")) & "-" & Month(Request.Form("newstime")) & "-" & Day(Request.Form("newstime"))
newsinsert = "insert into news_article(bigclassid,title,writer,newskey,newstime,content,newsis,newsfrom) values('" & Request.Form("bigclass") & "','" & Request.Form("title1").Trim() & "','" & Request.Form("writer1").Trim() & "','" & Request.Form("newskey1").Trim() & "','" & txt1 & "','" & txt & "','" & newis & "','" & Request.Form("newsfrom1").Trim() & "')"
comd = New SqlCommand(newsinsert, objconn)
comd.Connection.Open()
comd.ExecuteNonQuery()
comd.Connection.Close()
Response.Write("<script language='javascript'>{window.alert('成功添加新闻信息!');window.history.go(-1);}</script>")
End Sub
//修改按键的事件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim newsup, txta, txt1 As String
txt1 = Year(Request.Form("newstime")) & "-" & Month(Request.Form("newstime")) & "-" & Day(Request.Form("newstime"))
If Request.Form("newsis") = "1" Then
newis = 1