到底有什么错?非常急!
我正在做一个聊天室,用的是FLUSH方法刷新,也就是说,在APPLICATION中维护一个可写且可以看到别人写的RECORDSET,然后用一个FRAME检查RECORDSET中有无新数据,有则用RESPONSE.FLUSH输出,无则在循环
但下面这段代码老是出错,说ADODB.Recordset出错!
是什么原因呢?
SUB Application_OnStart
Set DataConn = server.CreateObject ("ADODB.Connection")
DataConn.Open("Driver={SQL Server};Server=STELLA;UID=CHATUSER;password=CHATUSER;Database=MYCHAT")
Set cmd=server.CreateObject ("ADODB.Command")
cmd.ActiveConnection =DataConn
cmd.CommandText ="SELECT * FROM campus ORDER BY ID"
Set rs=server.CreateObject("ADODB.Recordset")
rs.CursorType=adOpenDynamic
rs.LockType=adLockPessimistic
Set rs=cmd.Execute
Set Application("rscampus")=rs
END SUB