<html>
<frameset rows="60,*">
<frame name="say" src="say.asp">
<frame name="message" src="message.asp">
</frameset><noframes></noframes>
</html>
2.创建say.asp页面
<html>
<body>
<form name="form1" method="post" action="">
昵称：<input type="text" name="txtName" size="10">
发言：<input type="text" name="txtSay" size="30">
<input type="submit" value=" 发送 ">
</form>
<%
'如果提交了表单，就将发言内容添加到Application对象中
If Trim(Request.Form("txtName"))<>"" And Trim(Request.Form("txtSay"))<>"" Then
'下面先获取发言人的IP地址
User_ip=Request.ServerVariables("Remote_Addr")
'下面获取本次发言字符串，包括发言人和发言内容
Dim strSay
strSay="来自于"&User_ip&"的" &Request.Form("txtName") &"在" &Now()&"说：" &Request.Form("txtSay") &"<br>"
'下面将本次发言添加到聊天内容中
Application.Lock '先锁定
Application("strChat")=strSay &Application("strChat")
Application.Unlock '解除锁定
End if
%>
</body>
</html>
3.创建message.asp页面
<html>
<head>
<title>显示发言页面</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<% Response.Write Application("strChat") '显示聊天内容 %>
</body>
</html>
ThinkPHP内核聊天室即时通讯系统源码是一款类似微信的H5聊天系统APP源码 。
源码功能：
消息提醒：有新的消息可以提醒(数字提醒、声音提醒)。
聊天列表：显示最近所有的聊天列表，点击列表某一项可以打开聊天窗口还可以删除聊天列表项。
聊天窗口：可以发生文字消息、图片消息、表情图片可以预览。
站内公告：在顶部显示可以及时显示后台发布的公告。
添加朋友：可以搜索对方的帐号名称然后添加到通讯录添加前需要好友验证才能通过。
群聊：显示群聊信息。
列表：根据字母分组显示联系人点击联系人可以查看详情资料可以删除联系人。
游戏：可添加你的官方网站或者游戏网站其它~自定义嵌入第三方网站
个人信息：显示头像、昵称、帐号可以修改头像和昵称。
修改密码：可以修改登录密码。
朋友圈：可以发动态。
各种源码每天更新，还有各种破解软件、破解游戏、福利写真图哦~
网址 www.xqwym.com
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）