| 上面一章我们做了个简单的登陆页面，现在开始做我们的主界面chat.asp：
<%
name=request.form("userid")
password=request.form("password")
response.cookies("cname")=name
session("sname")=name
if name=""then
response.redirect"index.asp"
end if
%>
<frameset rows=80%,20%>
<frame name="show" src="show.asp">
<frame name="input" src="input.asp">
</frameset>
这个程序主要实现的是提取index.asp的表单数据，然后判断是否用户有填写用户名，如果没有回到登陆界面，同时设立了cookies和session变量以用于其他文件的调用。
做好了以后我们转入编写input.asp文件，也就是用户输入聊天内容的部分：
<html>
<head>
<title>欢迎光临5D小型聊天室</title>
</head>
<body>
<meta http-equiv=Content-Language content=zh-cn>
<form method="post" action="show.asp" target="show">
<p><font=ffff00><%=request.cookies("cname")%></font>
说：<input type="text" name=putword size="82">
<input type="submit" name=formsubmit value="发送">
<input type="reset" name=formreset value="重发">
</font>
</body>
</html> 这段代码很简单，有一个地方初学者可能会看不懂，target是实现将写入的内容送到show的框架，而不是被直接在自己的框架里！读者可以体会一下把target去掉
接下来我们做最后一个部分也就是show.asp部分
<%
mytalk=trim(request.form("putword"))
if mytalk<>""then
application.lock
application("show")="<font color=0000ff size=4>" &
request.cookies("cname") & "</font>:" & "<font size=3>"
& mytalk & "</font>" & "<br>" & application("show")
application.unlock
end if
%>
<html>
<head>
<title>欢迎光临5D小型聊天室</title>
</head>
<body>
<meta http-equiv=Content-Language content=zh-cn>
<pre>
<%=application("show")%>
</pre>
</body>
</html> 由于没有应用数据库，这段代码主要的部分是用application来实现对聊天内容进行共享
好了，很简单的一个聊天室做好了，呵呵！不要见笑啊！ |