求网页聊天室asp源码
1个回答
展开全部
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>
<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>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
