f1.asp
来自「这是聊天室的源代码 很好实现的 看看吧」· ASP 代码 · 共 25 行
ASP
25 行
<!--#Include File="Config.asp"-->
<!--#Include File="Function.asp"-->
<html>
<head>
<meta http-equiv="refresh" content="<%=ReLoad%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="all.css">
</head>
<body bgcolor="#EEEEEE" bottomMargin="50">
<%
'下面从Application中获取聊天信息
Dim strSays
strSays=Application(session("chatroom"))
'下面调用函数,将不属于自己的私聊内容删除
strSays=GetPrivate(strSays,Session("username"))
'下面在页面上输出内容
Response.Write strSays
'因为从上到下显示,所以要滚动到最下边
%>
<script language="javascript">
window.scroll(0,60000);
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?