📄 chat.asp
字号:
<%
session("username")=request("username")
session("usercolor")=request("usercolor")
session("userrimg")=request("userrimg")
if session("username")="" then
response.write "<p> </p><p align=center><font color=red>"
response.write "Sorry!"&"<font size=5>无名氏</font>"&",不能登录聊天室!"
response.write "</font></p>"
response.write "<p align=center><a href='index.htm'>返回登录界面</a></p> "
else
application.lock
for i=20 to 2 step -1
j=i-1
application("msg"&i)=application("msg"&j)
next
chattime="["&time&"] "
chat"<img src='"&session("userrimg")&"'width=30 height=30>"&":<font color='"& session("usercolor")&"'>"&"各位好!我是"&session("username")&",请多关照!"&chattime&"</font>"
application("msg1")=chat
application.unlock
end if
%>
<html>
<head><title>聊天室</title></head>
<frameset rows="95,*,68" cols="*" framespacing="2" frameborder="yes" border="2" bordercolor="#ff0000">
<frame src="userxx.asp?logout=no" name="top" frameborder="yes" scrolling="no" noresize bordercolor="#ff0000">
<frameset cols="150,*" framespacing="2" frameborder="yes" bordercolor="#ff0000">
<frame src="users.asp?username=<%=session("username")%>" name="lmiddle" frameborder="yes" noresize bordercolor="#ff0000">
<frame src="chatmsg.asp" name="rmiddle" frameborder="yes" noresize ordercolor="#ff0000">
</frameset>
<frame src="usermsg.asp" name="bottom" frameborder="yes" scrolling="no" noresize bordercolor="#ff0000">
</frameset>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -