ASP同学录设计asp+sql(一)毕业论文(4)
2013-05-29 01:14
导读：p; input name="submit" type="submit" value=" 进 入 " /form /center div align="center"/div/td /tr /table 框架主文件程序如下: html head title聊天室/title /head % Session("user_name")=Reque
p; <input name="submit" type="submit" value=" 进 入 ">
</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
（科教作文网http://zw.nseAc.com）
%>
<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>
颜色:
