首页打开的内容:
暂无公告信息!
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象
/inc/code.asp,行 278
/inc/code.asp:
267 '=================================================
268 sub ShowAnnounce(numbers)
269 set rsgg=Server.CreateObject("ADODB.recordset")
270 sqlgg="select top "&numbers&" title,id from info where bigclassname='站内信息' and smallclassname='公告'and passed=true order by id desc"
271 rsgg.open sqlgg,conn,1,1
272 if rsgg.eof then
273 response.write"暂无公告信息!"
274 rsgg.close
275 set rsgg=nothing
276 end if
277
278 do while not rsgg.eof
279 response.write "<a href='info_show.asp?id="&rsgg("id")&"' target='_blank'>"&rsgg("title")&"</a> "
280
281 rsgg.movenext
282 loop
283 rsgg.close
284 set rsgg=nothing
285 end sub
286'=================================================