200分求:一个简单的聊天室源码(VS2005/C#),最好没有页面刷新的

send.aspx
<%@ Page language="vb" Debug="true" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<Script language="vb" runat="Server">
  Dim Cnn As OleDbConnection
  Dim Cmd As OleDbCommand
  Dim Dr As OleDbDataReader
  Sub Page_Load(Sender As Object,E As EventArgs)
    Dim StrCnn As String
    Dim Sql As String
    If Not IsPostBack Then
      StrCnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lts.mdb")
      Cnn=New OleDbConnection(StrCnn)
      Cnn.open()
      Sql="select nc from userinfo where online='1'"
      Cmd=New OleDbCommand(Sql,Cnn)
      Dr=Cmd.ExecuteReader()
      While dr.read()
        drop.items.add(new listitem(dr.getstring(0)))
      End While
      dr.close
      Sql="select picaddr,disptxt from facesheet order by id"
      Cmd=New OleDbCommand(Sql,Cnn)
      Dr=Cmd.ExecuteReader()
      while dr.read()
        dim LItem as new ListItem
        LItem.text=dr.getstring(1)
        Litem.Value=dr.Getstring(0)
        Drop3.Items.Add(LItem)
      End While
      Cnn.Close()
    End If
    If Drop3.SelectedItem.Value="无" then
       Image1.ImageUrl=""
       Image1.Visible="False"
    else
       Image1.ImageUrl=drop3.selecteditem.value
       image1.visible="True"
    end if
  End Sub  Sub Sure_Click(Sender As Object,E As Eventargs)
    Dim StrCnn As String
    Dim Sql As String
    Dim theText As String
    Dim theObj As String
    Dim theFace As String
    Dim theFont As String
    Dim FacePic As String
    theText=T1.Text
    theObj=Drop.SelectedItem.Text
    theFace=Drop1.SelectedItem.Text
    theFont=Drop2.SelectedItem.Value
    FacePic=Drop3.SelectedItem.Value
    StrCnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lts.mdb")
    Cnn=New OleDbConnection(StrCnn)
    Cnn.open()
    Sql="insert into content(talker,toobj,color,content,facestr,facepic) values('" & session("username") & "','" & theobj & "','" & theFont & "','" & theText & "','" & theFace & "','" & facepic & "')"
    Cmd=New OleDbCommand(sql,Cnn)
    Cmd.ExecuteNonquery
    Cnn.Close()
    T1.Text=""
  End Sub
</Script>
<html>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
Sub window_onunload
dim w,h
        window.open "exit.aspx","exit","fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=1,height=1,top=200,left=200"
End Sub
</script>
<head>
<title></title>
<style type="text/css">

</style>
</head>
<body topmargin="0">
<Form Runat="Server">
  <Table border="0" width="98%" cellspacing="0" cellpadding="0">
    <Tr height="30">
      <Td><font style="font-size:10pt">对象 
        <asp:dropdownlist id="drop" Runat="Server">
          <asp:ListItem>大家</asp:ListItem>
        </asp:Dropdownlist>
          表情 
        <asp:dropdownlist id="drop1" font-size="9" Runat="Server">
          <asp:ListItem Selected="true">无</asp:ListItem>
          <asp:ListItem>甜甜地</asp:ListItem>
          <asp:ListItem>笑眯眯地</asp:ListItem>
          <asp:ListItem>酸酸地</asp:ListItem>
          <asp:ListItem>苦苦地</asp:ListItem>
          <asp:ListItem>暧昧地</asp:ListItem>
          <asp:ListItem>撒娇地</asp:ListItem>
          <asp:ListItem>恨恨地</asp:ListItem>
          <asp:ListItem>无情地</asp:ListItem>
          <asp:ListItem>含情脉脉地</asp:ListItem>
        </asp:dropdownlist>
          颜色 
        <asp:dropdownlist id="drop2" font-size="9" Runat="Server">
          <asp:ListItem Selected="true" value="#000000">黑色</asp:ListItem>
          <asp:ListItem value="#00FF00">绿色</asp:ListItem>
          <asp:ListItem value="#FF0000">红色</asp:ListItem>
          <asp:ListItem value="#0000FF">蓝色</asp:ListItem>
          <asp:ListItem value="#00FFFF">天蓝色</asp:ListItem>
          <asp:ListItem value="#C0C0C0">灰色</asp:ListItem>
          <asp:ListItem value="#FFFF00">黄色</asp:ListItem>
          <asp:ListItem value="#800080">酱色</asp:ListItem>
          <asp:ListItem value="#008080">蓝绿色</asp:ListItem>
          <asp:ListItem value="#800000">褐色</asp:ListItem>
        </asp:dropdownlist>
          贴图 
        <asp:dropdownlist id="drop3" AutoPostBack="True" Runat="Server">
          <asp:ListItem value="无" selected="true" >无</asp:ListItem>
        </asp:Dropdownlist>
        <asp:image id="image1" imageurl="" visible="false" width="20" height="20" runat=server />
       </font>
      </Td>
    </tr>
    <Tr height="30">
      <Td><font style="font-size:10pt":>信息 </font>
        <Asp:TextBox id="T1" Columns="60" font-size="10pt" Runat="Server" />  
        <Asp:Button Id="Sure" class="btnstyle" Text="发送" OnClick="Sure_Click" Runat="Server" /></Td>
    </Tr>
  </table>
</form>
</body></html>
talk.aspx
<%@ Page language="vb" Debug="true" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<Script language="vb" runat="Server">
  Dim StrCnn As String
  Dim Sql As String
  Dim Cnn As OleDbConnection
  Dim Cmd As OleDbCommand
  Dim Dr As OleDbDataReader
  Sub Page_Load(Sender As Object,E As EventArgs)
    StrCnn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lts.mdb")
    Cnn=New OleDbConnection(StrCnn)
    Cnn.open()
    Sql="select theTime,Talker,toObj,Color,Content,Facestr,facepic from content order by thetime"
    Cmd=New OleDBCommand(Sql,Cnn)
    Dr=Cmd.ExecuteReader()
  End Sub
</Script>
<html><head>
<meta http-equiv="refresh" content="10">
<title></title>
</head>
<body>
<p style="font-size:11pt"><font color="#848484">★</font><font color="#008cff">欢迎光临</font><font color="#00a510">『快乐天地』</font><font color="#008cff">聊天室，敬请文明聊天</font><font color="#848484">★</font></p>
<font style="font-size:10pt">
<%
  While Dr.Read()
    Response.Write ("<font style='color:gray'>[" & formatdatetime(Dr.getDatetime(0),DateFormat.Longtime) & "]</font>  ")
    Response.Write ("[<font style='color:blue'>" & dr.getstring(1) & "</font>]")
    Response.Write ("对[<font style='color:green'>" & dr.getstring(2) & "</font>]")
    If trim(Dr.GetString(5))<>"无" then
      Response.Write ("<i><font style='color:#800080'>" & dr.getstring(5) & "</font></i>")
    End If
    Response.Write ("说：<font style='color:" & dr.getstring(3) & "'>" & dr.getstring(4) & "</font>")
    if trim(dr.getstring(6))<>"无" then
       response.write (" <img src='" & dr.getstring(6) & "' width='20' height='20' />")
    end if
    response.write ("<br>")
  End While
  Cnn.Close()
%>
</font>
</body></html>
如果楼主觉的主不到
很简单
使用UpdatePanel（只是先与新人）

调试易

200分求:一个简单的聊天室源码(VS2005/C#),最好没有页面刷新的

解决方案 »