<!--#include file="include/conn.asp"-->
<%
a=request("TopicId")
page=fix(request("page"))
topicid=request("topicid")
formid=request("formid")
'response.Write request(request("TopicId"))
set rs=server.createobject("adodb.recordset")
sql="select topicname,formtitle,ReplyDate,ip from topic inner join form on topic.formid=form.formid where topicid="&a
rs.open sql,conn,3,3
if err then
response.Write(sql)
end if
if page=1 then'当前页
sql="update topic set clicknum=clicknum+1 where Topicid="&topicid
conn.execute(sql)
end if
set rs1=server.createobject("adodb.recordset")
sql="select * from Topic where Topicid="&topicid
rs1.open sql,conn,1,1
%>
<html>
<head>
<title><%=rs("formtitle")%></title>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<BR>
<!--------------------发帖回帖--------------------->
<TABLE width="780" border=0 align="center" cellPadding=0 cellSpacing=0 class=tableborder1 >
<TBODY>
<TR >
<TD height="24" colspan="2" align=left vAlign=center background=""></TD>
</TR>
<TR>
<TD align=left vAlign=center noWrap bgcolor="#FFFFFF">
<A href="bbs_do.asp?action=">
<IMG alt=发表一个新帖子 src="pic/postnew.gif" border=0></A>
<A href="bbs_do.asp?action=">
<IMG alt=回复本主题 src="pic/mreply.gif" border=0></A> </TD>
<TD align=right vAlign=center noWrap bgcolor="#FFFFFF">您是本帖的第 <B><%=rs1("clicknum")%></B> 个阅读者</TD>
</TR>
</TBODY>
</TABLE>
<!-------------主题标题-------------->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" class=tableborder1>
<tr>
<td width="733" height="24" background="pic/title_bg.gif">
<font color="#FFFFFF"><strong><IMG src="pic/Forum_nav.gif" align=absMiddle>标题: </strong></font>→
<strong><font color="#FFFFFF"><%=rs("topicname")%> </font></strong></td>
</tr>
</table>
<!-------------------回复内容------------------>
<%if page=1 then%>
<TABLE class=tableborder1 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
cellSpacing=1 cellPadding=5 align=center xmlns:z="#RowsetSchema"
xmlns:rs="urn:schemas-microsoft-com:rowset">
<TBODY>
<TR>
<TD class=tablebody1 vAlign=top width=90>
<table>
<tr>
<td><IMG src="userpic/01.gif"></td></tr><tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select *from Userinfo"
On Error Resume Next
rs.open sql,conn,3,3
if err then
response.Write(sql)
end if
%>
<td>姓名:<%=rs("UsenName")%><br>
等级:<img src="pic/level1.gif"><br>
注册时间:<%=rs("Enorol")%>
</td>
</tr>
</table>
</TD>
<!--主题内容-->
<TD class=tablebody1 vAlign=top>
<TABLE
width="95%" height="157" border=0 align=center style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all">
<TBODY>
<TR>
<TD height="33"><%=rs("Topicname")%></TD>
<TD width="10%"><div align="right">楼主</div></TD>
</TR>
<TR>
<TD colspan="2" vAlign=top><%=rs("TopicTitle")%></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD class=tablebody1 vAlign=center align=middle width=82>
<IMG alt=发贴IP已设置保密 src="pic/ip.gif" align=absMiddle border=0><%=rs("ReplyDate")%></TD>
<TD class=tablebody1 vAlign=center width=850><TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD vAlign=center align=left width=*> IP: <%=rs("ip")%></TD>
<TD vAlign=bottom align=left width=130 nowarp="true"></TD>
<!----编辑----->
<TD vAlign=center align=right width=170>
<A href="bbs_do.asp?action=bbsmodify&boardid=<%=formid%>&bbsid=<%=rs1("Topicid")%>">
<IMG src="pic/edit.gif" align=absMiddle border=0></A>
<A href="#"><IMG src="pic/p_up.gif" align=absMiddle border=0></A></TD>
<TD vAlign=center align=left></TD>
</TR>
<!-----帖子管理-删除帖子-删除回复-置顶-取消置顶-精华-取消精华-锁定-取消锁定IP--------------->
<%if session(boardid)=fix(formid) then%>
<TR>
<TD colspan="4" align=left vAlign=center><div align="right"><strong><font color="#FF0000">管理：</font></strong>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsdel">删除帖子</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsreplydel">删除回复</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=puttop&bbsset=1">置顶</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=puttop&bbsset=0">取消置顶</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=ditillate&bbsset=1">精华</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=ditillate&bbsset=0">取消精华</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=lock&bbsset=1">锁定</a>
<a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs1("bbsid")%>&action=bbsset&assort=lock&bbsset=0">取消锁定</a>
IP: </div></TD>
</TR>
<%end if%>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%end if%>
<!---------帖子回复------>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Topic where rootid="& Topicid &" order by Replydate asc"
rs.open sql,conn,1,1
if not rs.eof then
dim page
rs.pagesize=10
otalrs=rs.RecordCount
totalpage=rs.pageCount
mypagesize=rs.pagesize
rs.absolutepage=page
end if
while not rs.eof and mypagesize>0
i = i + 1
%>
<TABLE class=tableborder1 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
cellSpacing=1 cellPadding=5 align=center xmlns:z="#RowsetSchema"
xmlns:rs="urn:schemas-microsoft-com:rowset">
<TBODY>
<TR>
<TD width=90 height="79" vAlign=top class=tablebody1> <IMG
src="pic/level1.gif"></TD>
<TD class=tablebody1 vAlign=top>
<TABLE style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
width="95%" align=center border=0>
<TBODY>
<TR>
<TD height="34"> </TD>
<TD width="10%"><div align="right">第<%=Rs.pagesize*(page-1)+i%> 楼</div></TD>
</TR>
<TR>
<TD colspan="2" vAlign=top> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD class=tablebody1 vAlign=center align=middle width=82><IMG
alt=发贴IP已设置保密 src="pic/ip.gif" align=absMiddle border=0></TD>
<TD class=tablebody1 vAlign=center width=850> <TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD vAlign=center align=left width=*>
IP:</TD>
<TD vAlign=bottom align=left width=130 nowarp="true"></TD>
<TD vAlign=center align=right width=170><A
href="bbs_do.asp?action=bbsmodify&boardid=<%=boardid%>&bbsid=<%=rs("bbsid")%>"><IMG
src="pic/edit.gif" align=absMiddle border=0></A> <A
href="#"><IMG
src="pic/p_up.gif" align=absMiddle border=0></A></TD>
<TD vAlign=center
align=left></TD>
</TR>
<%if session(boardid)=fix(boardid) then%>
<TR>
<TD colspan="4" align=left vAlign=center><div align="right"><strong><font color="#FF0000">管理：</font></strong><a href="admin_bbsdo.asp?boardid=<%=boardid%>&bbsid=<%=rs("bbsid")%>&action=bbsdel">删除</a>
IP:</div></TD>
</TR>
<%end if%>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%
rs.movenext
mypagesize=mypagesize-1
wend
%>
<!-------------分页显示帖子---------->
<table border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td valign="top"><div align="right">
<a href="?boardid=<%=boardid%>&bbsid=<%=bbsid%>&page=1">第一页</a>
<a href='?boardid=<%=boardid%>&bbsid=<%=bbsid%>&page=<%=page-1%>'>上一页</a>
<a href='?boardid=<%=boardid%>&bbsid=<%=bbsid%>&page=<%=page+1%>'>下一页</a>
<a href="?boardid=<%=boardid%>&bbsid=<%=bbsid%>&page=<%=totalpage%>">最后一页</a>
页次： / 页</div></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<form name="form1" method="post" action="jczx.asp"><td width="100%">
<select name="page" size="1" class=smallselsect id="select" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%for i=1 to totalpage
response.write "<option value="&filename&"?boardid="&boardid&"&bbsid="&bbsid&"&page="& i
if page=i then
response.write " selected"
end if
response.write ">转到第"& i &"页</option>"
next
%>
</select></td>
</form>
</tr>
</table></td>
</tr>
</table>
<p> </p>
<!-------------------发表帖子--------------->
<table width="600" border="1" align="center" cellspacing="0" bordercolorlight='#6C89A3' bordercolordark="#F0F8FF" bgcolor="#F7FBFF">
<form action="bbs_do.asp?action=bbsreplysave&boardid=<%=request("boardid")%>&bbsid=<%=request("bbsid")%>" method="POST" name="form1">
<tr align="center" bgcolor="#D2E2F9">
<td height="25" colspan="2"><strong>帖 子 回 复</strong></td>
</tr>
<tr>
<td width="59" align="right">主 题：</td>
<td width="531"><input name="title" class="smallInput" value="回复：<%=rs("topicname")%>" size="50" maxlength="50">
<font color="red"><strong>*</strong></font> (100字以内)</td>
</tr>
<!--------表 情---------->
<tr>
<td width="59" align="right" valign="top"><span class="smallFont">表 情：</span></td>
<td><input type="radio" value="smiley" name="pic" checked>
<img src="IMAGES/smiley.gif" width="15" height="15">
<input type="radio" name="pic"value="sad">
<img src="IMAGES/sad.gif" width="16" height="16">
<input type="radio"name="pic" value="angry">
<img src="IMAGES/angry.gif" width="15" height="15">
<input type="radio" name="pic" value="13">
<img src="IMAGES/13.gif" width="15" height="15">
<input type="radio" name="pic" value="14">
<img src="IMAGES/14.gif" width="15" height="15">
<input type="radio" name="pic" value="15">
<img src="IMAGES/15.gif" width="15" height="15">
<input type="radio" name="pic" value="16"> <img src="IMAGES/16.gif" width="15" height="15"> <br>
<input type="radio" value="18" name="pic">
<img src="IMAGES/18.gif" width="15" height="15">
<input type="radio" name="pic" value="17"> <img src="IMAGES/17.gif" width="15" height="15">
<input type="radio" name="pic" value="19">
<img src="IMAGES/19.gif" width="15" height="15">
<input type="radio" name="pic" value="20">
<img src="IMAGES/20.gif" width="15" height="15">
<input type="radio" name="pic" value="21">
<img src="IMAGES/21.gif" width="15" height="15">
<input type="radio" name="pic" value="22">
<img src="IMAGES/22.gif" width="15" height="15">
<input type="radio" name="pic" value="23">
<img src="IMAGES/23.gif" width="15" height="15"></td>
</tr>
<!------内 容-------->
<tr>
<td width="59" align="right"><span class="smallFont">内 容：</span></td>
<td><span class="smallFont">（最多2000字）</span> </td>
</tr>
<tr align="center" valign="top">
<td height="150" colspan="2">
<INPUT type="hidden" name="content" value="">
<textarea name="textarea" cols="75" rows="20"></textarea></td>
</tr>
<!-------提交到本页面--------->
<tr align="center" valign="top">
<td height="20" colspan="2">
<input name="submit2" type="submit" class="buttonface" OnClick="document.form1.content.value = frames.message.document.body.innerHTML;" value=" 提 交 ">
<input name="reset2" type="reset" class="buttonface" value=" 重 填 "></td>
</tr>
</form>
</table>
<!--#include file="include/bottom.asp"-->
</body>
</html>
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
