我是我的程序 <% If Session("enter")=Empty Then Response.Redirect"enter.htm" End If %> <html> <body> 聊天看板 <hr> <% set dbconn=server.createobject("adodb.connection") dbconn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("GT.mdb")
sql="Select Top 10 * From chatroom Order By time Desc" Set rst=Server.Createobject("adodb.recordset") rst.Open sql,dbconn,cursor,2
For i=1 to 10 message=replace("" & rst("note"),vbcrlf,"<BR>") Response.Write"<font color=green>" & TimeValue(rst("time")) & "</font> " & rst("sex") & "<font color="& rst("color")&">" & rst("nick") & "说: " & message & "</font><BR>" rst.MoveNext if rst.eof then exit For next
rst.Close dbconn.Close %> </body> </html> 错误：
