📄 简单聊天时.txt
字号:
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Application对象实例</title>
</head>
<frameset rows="*,60">
<frame name="message" src="4-15.aspx" />
<frame name="say" src="4-14.aspx" />
</frameset>
</html>
---------------保存发言人的信息------------------
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub Enter_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim username As String
username = "娟子"
Session("username") = username
Application.Lock()
Application("show") = Now().ToString & username & ":" & pronunciation.Text & "<br>" & Application("show")
Application.UnLock()
pronunciation.Text = ""
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head2" runat="server">
<title>保存发言人的信息</title>
</head>
<body>
<form id="form1" runat="server">
请发言:<asp:TextBox ID="pronunciation" Columns="30" runat="server" />
<asp:Button ID="enter" runat="server" OnClick="Enter_Click" Text="发送" />
</form>
</body>
</html>
-----------------------读取发言信息---------------------
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Sub Page_load(ByVal Sender As Object, ByVal E As EventArgs)
message.Text = Application("show")
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head3" runat="server">
<title>读取发言信息</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<form id="form2" runat="server">
<div>
<asp:Label ID="message" runat="server" ></asp:Label></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -