您所在位置：主题：求助?我的ASP错在了哪里?
basansiyi
[专家分：30] 发布于 2007-01-10 11:45:00
<% @ Language=VBScript %>
<html>
<%
Response.Buffer=true '设置输出缓存，用于显示不同页面。
On error resume next '忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then
'判断客户是以什么方式请求WEB页面
'-----------------
'客户登陆界面
'-----------------
%>
<body bgColor="LightGoldenrodYellow">
<% =Application("ly")
%><p>
<% Application("VisitorNum")=Application("VisitorNum")+1 %>
你是本站点的第<% =Application("VisitorNum") %>位客人。
<form method="POST" action="4-20.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><input type="hidden" name="log" size="20" value="1"><br></p>
</form>
<%
Response.End()'结束程序的处理
Else
Response.Clear '清空缓存中的内容
End If
dim talk
If Request.Form("nick")<>" "then
'判断客户是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
'-----------------
'客户聊天界面
'-----------------
%>
<form method="POST" action="4-20.asp" name=form1><p>
<% =Session("nick") %>说话：
<input name="talk" type="text" value="" size="50" />
<br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="取消" name="B2"></p>
</form>
<A HREF="4-21.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> [color=FF0000](第56行)[/color]<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
%></body>
</html>
[color=FF00FF]浏览器提示错误为[/color]
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/slp/4-20.asp, line 56
<tr><td width='100%' bgcolor='#C0C0C0'></td></tr>
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
网页：
GET /slp/4-20.asp
时间：
2007年1月10日, 23:22:51
[color=FF00FF]谁有空帮我看看 非常谢谢了[/color]
<html>
<%
Response.Buffer=true '设置输出缓存，用于显示不同页面。
On error resume next '忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then
'判断客户是以什么方式请求WEB页面
'-----------------
'客户登陆界面
'-----------------
%>
<body bgColor="LightGoldenrodYellow">
<% =Application("ly")
%><p>
<% Application("VisitorNum")=Application("VisitorNum")+1 %>
你是本站点的第<% =Application("VisitorNum") %>位客人。
<form method="POST" action="4-20.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><input type="hidden" name="log" size="20" value="1"><br></p>
</form>
<%
Response.End()'结束程序的处理
Else
Response.Clear '清空缓存中的内容
End If
dim talk
If Request.Form("nick")<>" "then
'判断客户是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
'-----------------
'客户聊天界面
'-----------------
%>
<form method="POST" action="4-20.asp" name=form1><p>
<% =Session("nick") %>说话：
<input name="talk" type="text" value="" size="50" />
<br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="取消" name="B2"></p>
</form>
<A HREF="4-21.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> [color=FF0000](第56行)[/color]<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
%></body>
</html>
[color=FF00FF]浏览器提示错误为[/color]
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/slp/4-20.asp, line 56
<tr><td width='100%' bgcolor='#C0C0C0'></td></tr>
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
网页：
GET /slp/4-20.asp
时间：
2007年1月10日, 23:22:51
[color=FF00FF]谁有空帮我看看 非常谢谢了[/color]
