[問題] asp.net

看板Web_Design作者sunny6175 (你好不代表我也好)時間19年前 (2005/11/28 23:00)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串5/9 (看更多)

我要建立一個聊天室的表單主要功能都建好了可是若是要新增一個下拉式選單 ex: zzz"微笑"的說 or "生氣"的說並沒辦法跑到聊天視窗中請問我該在我程式中增加哪段 <font size="2" color="#000000">語氣:</font> <asp:DropDownList id="cc" runat="Server"> <asp:ListItem Value="1" Text="高興"/> <asp:ListItem Value="2" Text="難過"/> <asp:ListItem Value="3" Text="生氣"/> <asp:ListItem Value="4" Text="怒氣"/> <asp:ListItem Value="5" Text="想睡"/> <asp:ListItem Value="6" Text="不舒服"/> </asp:DropDownList> </td> <td width="132" valign="top"> <font size="2" color="#000000">更新頻率:</font> <asp:DropDownList id="Refresh_s" runat="Server"> <asp:ListItem Value="10" Text="10秒"/> <asp:ListItem Value="20" Text="20秒"/> <asp:ListItem Value="30" Text="30秒"/> </asp:DropDownList> </td> <td width="132" valign="top"> <font size="2" color="#000000">顏色:</font> <asp:DropDownList id="f_color" runat="Server"> <asp:ListItem Value="#FF0000" Text="紅色"/> <asp:ListItem Value="#FFFF00" Text="黃色"/> <asp:ListItem Value="#00FF00" Text="綠色"/> <asp:ListItem Value="#FFFFFF" Text="白色"/> <asp:ListItem Value="BLUE" Text="藍色"/> <asp:ListItem Value="#FF6633" Text="橘色"/> </asp:DropDownList> </td> <td width="129"> <asp:Button runat="server" Text="送出" OnClick="addmsg_click" /> </td> </tr> </table> </Form> </body> </html> <script language="VB" runat=server> Sub addmsg_click(sender As Object, e As EventArgs) Session("RefreshTime") = Refresh_s.SelectedItem.Value Session("font_color") = f_color.SelectedItem.Value If Application("ChatUser").ContainsKey ( Session("user_id") ) Then Dim chat_data As ArrayList chat_data = Application("ChatUser").Item( Session("user_id") ) Dim path As String = Server.Mappath("talkfile/" & chat_data(0) & ".txt") Dim sWrite As StreamWriter = New StreamWriter( path, True, Encoding.Default ) Dim S As string S = "<font size=3 color=" & Session("font_color") & "><small>(" & DateTime.Now & ")</small> " & Session("user_id") & "</small> " & Session("UserSay") & " 說：<font color=" & Session("font_color") & ">" & chatmsg.Text & "</font></font><br>" chat_data(4) = DateTime.Now() Application("ChatUser").Item( Session("user_id") ) = chat_data sWrite.WriteLine( S ) ' 寫入檔案 sWrite.Flush() ' 將緩衝區寫入 sWrite.Close() chatmsg.Text="" Else chatmsg.Text = "請重新登入聊天室" -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 211.74.213.174