UC知道大家可以告诉我这段代码说的是什么意思吗?
来源：百度知道 编辑：UC知道 时间：2024/06/03 18:23:16
Sub Send_Click(ByVal sender As Object, ByVal E As EventArgs)
Dim user_name As String
user_name = Session("user_name")
If user_name = "" Then
Response.Redirect("tishi.aspx")
Response.End()
End If
Dim Conn As OleDbConnection, Cmd As OleDbCommand
Dim SQL As String
Dim TITLES_ID As Integer = Val(Request("TITLES_ID"))
Conn = New OleDbConnection(Provider & ";" & DataBase)
Conn.Open()
SQL = "Insert Into titledetail (DETAILS_NAME, DETAILS_EMAIL, DETAILS_SUBJECT, DETAILS_CONTENT, TITLES_ID)Values (?, ?, ?, ?, ?)"
Cmd = New OleDbCommand(SQL, Conn)
Cmd.Parameters.Add(New OleDbParameter("DETAILS_NAME", OleDbType.Char, 255))
Cmd.Parameters.Add(New OleDbParameter("DETAILS_EMAIL", OleDbType.Char, 255))
Dim user_name As String
user_name = Session("user_name")
If user_name = "" Then
Response.Redirect("tishi.aspx")
Response.End()
End If
Dim Conn As OleDbConnection, Cmd As OleDbCommand
Dim SQL As String
Dim TITLES_ID As Integer = Val(Request("TITLES_ID"))
Conn = New OleDbConnection(Provider & ";" & DataBase)
Conn.Open()
SQL = "Insert Into titledetail (DETAILS_NAME, DETAILS_EMAIL, DETAILS_SUBJECT, DETAILS_CONTENT, TITLES_ID)Values (?, ?, ?, ?, ?)"
Cmd = New OleDbCommand(SQL, Conn)
Cmd.Parameters.Add(New OleDbParameter("DETAILS_NAME", OleDbType.Char, 255))
Cmd.Parameters.Add(New OleDbParameter("DETAILS_EMAIL", OleDbType.Char, 255))
user_name = Session("user_name")
If user_name = "" Then
Response.Redirect("tishi.aspx")
检测你是否登陆，不登陆就踢掉！
上半部分是向数据库提交内容，类似于论坛回复帖子
SQL = "Update titles Set TITLES_LASTPOSTDATE=Now(),TITLES_NUM=TITLES_NUM+1 Where TITLES_ID=" & TITLES_ID
这一段是把你回复的主题的最后回复时间置到Now（），回复数+1。
OpenDataBase_And_BindToDataGrid() --〉刷新数据表
Sub Send_Click(ByVal sender As Object, ByVal E As EventArgs）就是VB里面点击按钮事件
太长~你说哪里你重点不知道的吧~
要不我怎么知道你哪里不明白~