<%
Response.Buffer=true
On error resume next
If Request.ServerVariables("Request_Method")="GET" then
%>
<form method="POST"action="chat.asp"><p>
<input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)"><br>
<input type="submit" value=" 进入聊天室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
</p>
<p><input type="hidden" name="log" size="20" value="1"><br></p>
</form>
<%
Response.End
Else
Response.clear
dim talk
If Request.Form("nick")<>"" then
Session("nick")=Request.Form("nick")
End If
%>
<form method="POST" action="chat.asp" name=form1><p>
<%=Session("nick")%>说话：<input type="text" name="talk" size="50">
<br>
<input type="submit" value=" 提交 " name="B1">
<input type="reset" value=" 取消 " name="B2"></p>
</form>
<A HREF="/asptest/shusheng/chat.asp">离开 </a><br><br>
<%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
talk=Session("nick")&" 沉默是金。"
Else
talk=trim(Request.Form("talk"))
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("nick")&time&" 说：< /font>"&talk&"< /td>< /tr>< tr>< td width=\'100%\' bgcolor=\'#C0C0C0\'>< /td>< /tr>< /table>< br>"&Application("show")
Application.UnLock
Response.Write Application("show")
End If
End If
%>

非常不好意思 这样确实可以 而且你那个所谓的vbscript的注释方式确实没有见过 如果那样能正常运行那确实太厉害了

首先感谢aspic.确实不好意思,由于本人刚开始学习asp,这段代码不是本人写的,是从网上下载下来.因此,不得不请教各位高手,本人也摸索了很久,问题总是得不到解决.你这样修改后可以运行,只是去掉第一行,你是怎样测试呢?
还有,table border=\'0\' cellpadding=\'0\' cellspacing=\'0\' 为什么不能改为table border=0 cellpadding=0 cellspacing=0.好像在html是这样的

<%@language=VBScript%>是可加可不加的.
在IIS中可以定义ASP使用的默认脚本语言，一般都设置为默认VBS，所以这句就可以不写。
但是如果你用javascript来写ASP的话，就要声明一下了。

感谢你真诚的帮助!由于网页代码的语言多种多样,真是让人学起来有点模糊.

Response.Buffer 即缓冲一ActiveServerPage。回应只到某一页结束或Response.Flush或Response.End方法调用时才发送出去。服务器将输出送给客户端后就不能再设置Buffer属性了。