帮忙,帮忙,帮帮忙,帮忙,帮忙,帮帮忙
各们好,好,好
<%
If Session("enter")=Empty Then
Response.Redirect"enter.htm"
End If
%>
<html>
<body>
聊天看板
<hr>
<%
sql="Select Top 10 * From chatroom Order By 时间 Desc"
Set dbconn=Server.Createobject("ADODB.connection")
dbconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("chat.mdb")
Set rst=Server.Createobject("ADODB.Recordset")
rst.Open sql,dbconn,cursor,2
For i=1 to 10
message=Replace(""&rst("留言"),vbcrlf,"<BR>")
Response.Write"<font color=green>" & TimeValue(rst("时间")) & "</font> " & rst("性别") & "<font color="& rst("颜色")&">" & rst("姓名") & "说: " & message & "</font><BR>"
rst.MoveNext
if rst.EOF then exit For
Next
rst.Close
dbconn.Close
%>
</body>
</html>
这是我的一个查看聊天内容的程序,可是老是提示红色字段有运行期的错误
各们帮帮手,帮我查查原因。感激不尽啊