asp.net(vb#)聊天室

asp.net聊天室源代码， Sub page_load(ByVal sender As Object, ByVal e As EventArgs) liuyan.Text = "" If Request.QueryString("action") = "del" And Not Request.QueryString("id") = "" Then strSql = "delete from siliao where id=" + Request.QueryString("id") conn.Open() cmd = New OleDbCommand(strSql, conn) cmd.ExecuteNonQuery() conn.Close() End If strSql = "select * from siliao" conn.Open() cmd = New OleDbCommand(strSql, conn) Dim dr As OleDbDataReader = cmd.ExecuteReader() Try Do While dr.Read() If dr.Item("sender") = Session("UserName") Or dr.Item("reder") = Session("UserName") Then liuyan.Text += dr.Item("sender") + "对" + dr.Item("reder") + "说：" + dr.Item("neirong") + " " + "(" + dr.Item("posttime").ToString + ")" + "删除" Else End If Loop If liuyan.Text = "" Then liuyan.Text = "暂时没有信息！" End If Catch ex As Exception liuyan.Text = "程序出错" + ex.Message End Try conn.Close() End Sub