search2.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="top.asp"-->
<%dim rs,bgg,bmadmin
good=request.QueryString("good")
if session("wzname")="" then
response.write "<center>请登录使用此功能！</center>"
else%>
<TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 cellPadding=0 
width="778" align=center bgColor=#f9f8f2 border=1>
  <TBODY>
  <TR>
    <TD width="63%">&nbsp;&nbsp;<IMG src="image/fle.gif" border=0> 你的位置：<A href="../index.asp"><%Set rf=conn.execute ("select sitename from siteinfo")
response.write rf(0)
rf.close%>首页</A> － <a href="index.asp">学校论坛</a> － 我发表的帖子</TD>
    <TD width="37%"> 　 <a href="search3.asp">论坛搜索</a> | <a href="search.asp">我发表的帖子</a> | <a href="search2.asp">我参与的帖子</a></TD>
</TR></TBODY></TABLE>
<BR>
<TABLE class=td1 style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 
cellPadding=0 width="778" align=center bgColor=#799ae8 
background=image/lbg.gif border=1>
  <TBODY>
<TR>
    <TD align=middle width="5%"><font color=#000000>表情</font></TD>
    <TD align=middle width="45%"><font color=#000000>主题</font></TD>
    <TD align=middle width="10%"><font color=#000000>作者</font></TD>
    <TD align=middle width="10%"><font color=#000000>回复/人气</font></TD>
<TD align=middle width="30%"><font color=#000000>最后更新</font></TD></TR></TBODY></TABLE>
  <%
dim cur,rowcount,i,fa

Set rs = Server.CreateObject("ADODB.recordset")
sql="select * from bbs where bbsid in(select bbsid from bbs2 where username='"&session("wzname")&"')"
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=20
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>你还没有发帖子</center>"
end if
rs.absolutepage=cint(cur)
rowcount=0
do while not rs.eof and rowcount<rs.pagesize%>
<TABLE class=list onmouseover="javascript:this.bgColor='#F9F8F2'" 
style="BORDER-COLLAPSE: collapse" onmouseout="javascript:this.bgColor='#ffffff'" 
borderColor=#f9f8f2 height=28 cellSpacing=0 cellPadding=0 width="778" 
align=center bgColor=#ffffff border=1>
  <TBODY>
  <TR>
    <TD class=td align=middle width="5%">
	<%dim top
	good=rs("good")
	top=rs("top")
	if top=0 and good=0 then
	fa=rs("face")
	else
if top=1 then
fa="top.gif"
else
if top=2 then
fa="alltop.gif"
else
if good=1 then
fa="jing.gif"
end if
end if
end if
end if
set rd=conn.execute ("select lbid from bbsbm where bbsbm.bmid="&rs("bbsbm")&"")
	bmadmin=rd("lbid")%>
	<IMG src="face/<%=""&fa&""%>" border=0></TD>
    <TD class=td width="45%">&nbsp;&nbsp;<A  
      href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bmadmin&""%>&bbsid=<%=rs("bbsid")%>"> 
      <FONT size="2"><%=rs("title")%></FONT></A></TD>
    <TD class=td align=middle width="10%"><A 
      href="../datum.asp?username=<%=rs("Username")%>">
	  <%set rd=conn.execute ("select name from user where username = '"&rs("Username")&"'")
	bmadmin=rd("name")
	response.write ""&bmadmin&""
	rd.close%></A></TD>
    <TD class=td align=middle width="10%"><%=rs("hf")%>/<%=rs("view")%></TD>
    <TD class=td align=middle width="30%"><%=rs("date")%>‖<A 
      href="../datum.asp?username=<%=rs("lastuser")%>">
	<%set rd=conn.execute ("select name from user where username = '"&rs("lastuser")&"'")
	bmadmin=rd("name")
	response.write ""&bmadmin&""%></A></TD></TR></TBODY></TABLE>
<%rowcount=rowcount+1
				rs.movenext
      loop%>
<DIV align=center>
<CENTER>
<TABLE 
style="BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-COLLAPSE: collapse; BORDER-RIGHT-WIDTH: 1px" 
cellSpacing=0 cellPadding=0 width="778" bgColor=#799ae8 border=0>
  <TBODY>
  <TR height=25>
    <TD height=2>
      <TABLE 
      style="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-COLLAPSE: collapse" 
      cellSpacing=0 cellPadding=3 width="778" background=image/lbg.gif 
      border=0>
        <TBODY>
       <tr><form name="form2" method="post" action=""><TD width="80%" align=left><font color="#000000">共<%=rs.recordcount%>个　 分<%=rs.pagecount%>页　　每页20条　当前页次：<%=cur%>/<%=rs.pagecount%></font>
    </span></td>
           <TD width="20%" align=left>转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
  <%for i = 1 to rs.pagecount%>              
    <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
    <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%></td>
       </form>
  </tr></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></DIV>
<BR>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 
width="778" align=center border=1>
  <TBODY>
  <TR>
    <TD width=120 height="27" background=image/lbg.gif bgColor=#799ae8 class=td1>&nbsp; 
      <IMG src="image/gl.gif" border=0> <font color=#000000>帖子类型：</font></TD>
    <TD bgColor=#f9f8f2>
      <div align="center"><IMG src="image/alltop.gif" align=absMiddle 
      border=0> 总置顶帖子 &nbsp;&nbsp;&nbsp; <IMG src="image/top.gif" 
      align=absMiddle border=0> 置顶帖子 &nbsp;&nbsp;&nbsp; <IMG 
      src="image/jing.gif" align=absMiddle border=0> 精华帖子&nbsp;</div></TD>
</TR></TBODY></TABLE>
  <%end if%><!--#include file="../bottom.asp" -->
</BODY></HTML>