开发工具:
文件大小: 139kb
下载次数: 0
上传时间: 2010-12-11
详细说明：
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& quot; 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
