</form>
</center>
<div align="center"></div></td>
</tr>
</table>
框架主文件程序如下:
<html>
<head>
<title>聊天室</title>
</head>
<%
Session("user_name")=Request("user_name")
Dim sayStr
sayStr="来自" & Request.ServerVariables("Remote_Addr")& "的"
sayStr=sayStr & "<b>" & Session("user_name") & "</b>"
sayStr=sayStr & "于" & Time & "来临"
sayStr="<font color='blue'>" & sayStr & "</font>"
Application.Lock
Application("show")= sayStr & "<br>" & Application("show")
Application("user_online")=Application("user_online")+1
%>
<frameset rows="*,14%">
<frame name="main" src="main.asp" >
<frame name="input" src="input.asp">
<noframes>
<body scroll="no">
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>
输入聊天内容文件用来输入发言,并可以选择着色和表情程序如下：
<html>
<head>
<title>发言区</title>
</head>
<body bgcolor="#CCFFFF" topmargin="0" leftmargin="0" onload="document.form1.say.focus();">
<form method="post" action="" name="form1">
发言:
<input type="text" name="say" size=40 >
<input type="submit" value="发言" >
<br>
颜色:
首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/14/14
ASP同学录设计asp+sql(四)由毕业论文网（www.huoyuandh.com）会员上传。
