<!-- #include file="setup.asp" -->
<%
         '==============================================================
         '插件名称: 查找会员最近回复的主题
         '插件作者: Ivan
         '插件支持: http://www.speed-top.com 或 http://www.99ii.net
         '安装方法: 见说明文档
         '请保留版权信息,以免以后更新!不保留者,我Ivan不会接受请求,谢谢!
         '编程人员也很辛苦有意和我做朋友的可以加我QQ：38793819 请在验证
         '里输入(会员最近回复主题)
         '==============================================================
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
if instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 then error("<li>来源错误")
%>
<table border=0 width=<%=dkuan%> align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → <a href=getjob2.asp>搜索会员参与回复主题</a></td>
</tr>
</table><br>
<%
if Request("menu")="ok" then

name=Request("content")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 100 * from reforum where username='"&name&"' order by id Desc"
rs.Open sql,Conn,1

count=rs.recordcount    '数据总条数
if Count=0 then error("<li>对不起，没有找到您要查询的内容")

response.write "<table border=0 width=97% align=center cellspacing=1 cellpadding=0 class=a2><tr><td><font color=red><b>"&name&"</b></font>最近回复的<font color=red>"&count&"</font>个主题</tr></td>"
response.write "<table border=0 width=97% align=center cellspacing=1 cellpadding=0 class=a2><tr><td width=60% class=a3> <b>主题</b> </td><td width=20% class=a3> <b>主题作者</b> </td></tr></table>"
Do While Not RS.EOF
Set rsn = Server.CreateObject("ADODB.Recordset")
sql="select * from forum where id="&rs("topicid")&""
rsn.Open sql,Conn
response.write "<table border=0 width=97% align=center cellspacing=1 cellpadding=0 class=a2><tr><td width=60% class=a3><a onclick=min_yuzi() target=message href=ShowPost.asp?id="&rsn("id")&">"&rsn("topic")&"</a></td><td width=20% class=a3> <a href=Profile.asp?username="&rsn("username")&">"&rsn("username")&"</a></td></tr></table>"
RSn.Close
RS.MoveNext
loop
RS.Close

end if
%>
<br>

<table align=center width=<%=dkuan%>><tr class=a3><td width=100% class=a4>请输入要查找的会员名称 | <font color="#FF0000">注意：只能查询最近100条的回复主题</font></td></tr><tr><td class=a4>
<form method="post" action="souretopic.asp?menu=ok" name=form>名&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;称：<input size="30" name="content"> <input type="submit" name=submit1 value="开始搜索"></form>
</td></tr></table>