|
蓝森林 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")
知道不?
你先看书,再问问题,好不!
|
|