模板
教程
环境
性能
功能
管理
一个简单聊天试的源代码！（三）
发表于：2007-06-30来源：作者：点击数：
标签：
forum.asp % On error resume next % % KNAME=SESSION(KNAME) RESPONSE.WRITE KNAME If trim(Request.Form(content))= then talk=knamequot; 沉默是金。 Else talk=trim(Request.Form(content)) End If Application.lock Application(show)=table border=‘’
forum.asp<%
On error resume next
%>
<%
KNAME=SESSION("KNAME")
RESPONSE.WRITE KNAME
If trim(Request.Form("content"))="" then
talk=kname&" 沉默是金。"
Else
talk=trim(Request.Form("content"))
End If
Application.lock
Application("show")="<table border=‘’0‘’ cellpadding=‘’0‘’ cellspacing=‘’0‘’ width=‘’85%‘’ ><tr><td width=‘’100%‘’ bgcolor=‘’#C0C0C0‘’></td></tr><tr><td width=‘’100%‘’><font color=‘’#0000FF‘’> 来自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("KNAME")&time&" 说：</font>"&talk&"</td></tr><tr><td width=‘’100%‘’ bgcolor=‘’#C0C0C0‘’></td></tr></table><br>"&Application("show")
Application.UnLock
Response.Write Application("show")
%>
