求网页聊天室源代码
发布网友
发布时间：2022-04-20 13:28
我来回答
共1个回答
热心网友
时间：2023-07-11 07:20
1.创建index.asp页面
<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>
