蓝森林首页 | 返回主页 | 本站地图 | 站内搜索 | 联系信箱 |
 您目前的位置:首页 > 自由软件 > 技术交流 > 应用编程


    

蓝森林 http://www.lslnet.com 2006年8月25日 8:28

[asp]关于 VB 运行时错(0x800A01A8)

我是新手,我在本地运行行遇到这样的难题。

[b]错误类型:Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/work/c2cershou20/foot.asp, 第 27 行
[/b]
代码:
<%
'网站统计
sql="SELECT * from logincount where type='day'"
[color=Red]rs.open sql,conn,1,3[/color]
   if rs("date")=date then
   rs("logincount")=cint(rs("logincount"))+1
   rs("date")=date
   rs.update
   else
   rs("logincount")=1
   rs("date")=date
   rs.update
   end if
rs.close

sql="SELECT * from logincount where type='total'"
rs.open sql,conn,1,3
   rs("logincount")=cint(rs("logincount"))+1
   rs.update
rs.close

sql="SELECT * from onlinecount where ip='"&request.servervariables("remote_addr")&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.addnew
rs("ip")=request.servervariables("remote_addr")
rs.update
else
rs("time")=now()
rs.update
end if
rs.close
conn.execute("delete * from onlinecount where time<#"&dateadd("n",-session.timeout,now)&"#")
sql="SELECT * from onlinecount where time>#"&dateadd("n",-session.timeout,now)&"#"
rs.open sql,conn,1,3
rs.close
%>


红色部分是提示的那一行。
请高手指点一下,不胜感激。

菜!先建对象!
set rs=server.createobject("adodb.recodset")
知道不?
你先看书,再问问题,好不!




Copyright © 1999-2000 LSLNET.COM. All rights reserved. 蓝森林网站 版权所有。 E-mail : webmaster@lslnet.com