急须帮忙~~!!!!

zigine 2003-05-06 09:09:25
<%
If rsforum.eof or rsforum.bof Then
strsqlclass="select class_id,class_name from bbs_class order by class_order"
set rsclass=conn.execute(strsqlclass)
do while not rsclass.eof
classid=rsclass("class_id")
response.write vbcrlf & forum_table1 & "<tr><td height=20"&format_bb(bg_color)&" colspan=4> <img src=images/jiantou.gif border=0> " & vbcrlf & "<font class=end><b>" & rsclass("class_name") & "</b></font></td></tr>"



strsqlforum="select forum_id,forum_name,forum_type,forum_new_info,forum_topic_num,forum_data_num,forum_power,forum_remark,forum_pic " & _
"from bbs_forum where class_id=" & classid & " and forum_hidden=0 order by forum_order,forum_id desc"

set rsforum=conn.execute(strsqlforum)
<!-----------------最后回复---------------------------->
do while not rsforum.eof
forumid=rsforum("forum_id"):forumname=rsforum("forum_name")
forum_type=rsforum("forum_type")
forum_new_info=rsforum("forum_new_info")
new_info_dim=split(forum_new_info,"|")

sql="select re_username from bbs_topic where username='"&new_info_dim(0)&"' order by id desc"
set rs=conn.execute(sql)
re_username=rs("re_username")
forum_pic=rs("forum_pic")
response.write forum_view()
rsforum.movenext
rs.movenext
loop
rsclass.movenext
response.write "</table>" & kong
loop

set rsclass=nothing:set rsforum=nothing

response.write kong & forum_table1

end if
%>

<tr><td align=center height=30<%response.write format_bb(bg_color4)%>><% response.write ip_sys() %></td></tr>
<tr><td align=center height=30<%response.write format_bb(biaoge)%>>
  网站用户图例:   <%
for i=1 to userp_num
response.write vbcrlf & img_small("icon_"&userp_code(i))&" "&userp_name(i)&"  "
next
%>
</td></tr>
<tr><td align=center height=30<%response.write format_bb(biaoge)%>>
<table border=0 width='98%'>
<tr>
<td width='20%'></td>
<td width='20%'></td>
<td width='20%'></td>
<td width='20%'></td>
<td width='20%'></td>
</tr>
<%
sql="select user_login.*,user_data.power from user_data inner join user_login on user_login.l_username=user_data.username where user_login.l_type=0 order by user_login.l_id"
set rs=conn.execute(sql)
do while not rs.eof
response.write "<tr>"
for i=1 to 5
if rs.eof then exit for
tit=rs("l_username")
response.write "<td>"&img_small("icon_"&userpower_code(rs("power")))&"<a href='user_view.asp?username="&server.urlencode(tit)&"' title='目前位置:"&rs("l_where")&"<br>来访时间:"&rs("l_tim_login")&"<br>活动时间:"&rs("l_tim_end")&"<br>真实IP:"&rs("l_ip")&"<br>"&view_sys(rs("l_sys"))&"' target=_blank>"&tit&"</a></td>"
rs.movenext
next
response.write "</tr>"
loop
rs.close:set rs=nothing
close_conn
%>
...全文
9 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zigine 2003-05-06
请要具体的要怎么做,谢谢,我也知道是找不到数据,但是现在要怎么做??谢谢
我的数据库没有这条数据,我也试着建数据,但还是一样
回复
leo1999 2003-05-06
你要控制没有搜索到数据的情况啊。
回复
zigine 2003-05-06
在前面加上if not rs.eof then輸出信息

也是不行用说,
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
/alaud/mini/forum.asp, 第 157 行

没加就不会有这个错

ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/alaud/mini/forum.asp, 第 179 行

这是错信息
回复
zigine 2003-05-06
在前面加上if not rs.eof then輸出信息

也是不行用说,
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
/alaud/mini/forum.asp, 第 157 行
回复
孟子E章 2003-05-06
什么问体?
回复
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2003-05-06 09:09
社区公告
暂无公告