文件名称：asp.net (vb#)聊天室
文件大小：139KB
文件格式：RAR
更新时间：2013-12-31 05:31:31
asp.net聊天室
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
【文件预览】：
聊天
----talk.aspx(4KB)
----6-3-2.aspx(893B)
----6-3-1.aspx(5KB)
----list.aspx(2KB)
----20.gif(42KB)
----Default1.aspx(973B)
----exit.aspx(1KB)
----6-3-3.aspx(4KB)
----function.aspx(2KB)
----send.aspx(2KB)
----Thumbs.db(9KB)
----denglu.mdb(160KB)
----send1.aspx(2KB)
----liuyanban.mdb(148KB)
----talk1.aspx(3KB)
----201.gif(60KB)
----liaotian.mdb(196KB)