show.asp

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

<!--#include file="top.asp"-->
<%dim bm,lb,good,rs,cz,bgg,bmadmin
bm=request.QueryString("bm")
lb=request.QueryString("lb")
good=request.QueryString("good")
cz=request.QueryString("cz")
if bm="" or lb="" then
response.write "<center>请选择好类别和版面</center>"
else
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")
set rt=conn.execute ("select lbname from bbslb where lbid = "&lb&"")%>
<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> － <a href="index.asp"><%=rt("lbname")%></a> － <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><%=rs("bmname")%></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>

<DIV align=center>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=28 
cellSpacing=0 cellPadding=0 width="778" border=0>
  <TBODY>
  <TR>
    <TD width="26%" bgColor=#f9f8f2><a href="hf.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><IMG 
      src="image/fabiao.gif" border=0></A>&nbsp; <a href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&cz=good"><IMG 
      src="image/good.gif" border=0></A></TD> <%set rj=conn.execute ("select content from gg where class='bbs'")%>
    <TD width="10%"><img src="image/gonggao.gif" border=0> 论坛公告:</TD>
    <TD width="44%"><marquee scrollAmount=3 scrollDelay=120 width=98% onmouseover='this.stop()' onmouseout='this.start()'><%=rj("content")%></marquee></TD>
    <TD width="20%">版主：
	<%bmadmin=rs("bmadmin")
	if bmadmin<>"" then
	set rd=conn.execute ("select name from user where username = '"&bmadmin&"'")
	bmadmin=rd("name")
	response.write ""&bmadmin&""
	else
	response.write "本版面还没有版主"
	end if%></TD>
  </TR></TBODY></TABLE>
</CENTER></DIV><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>
  <%rs.close
rt.close
set rt= nothing
set rs= nothing

dim cur,rowcount,i,fa,bmin
Set rs = Server.CreateObject("ADODB.recordset")
if cz<>"" then
if cz="good" then
sql="select * from bbs where bbsbm= "&bm&" and good=1 order by top desc,lastdate desc"
end if
if cz="ss" then
sql="select * from bbs where content like '%"&czgg&"%' and class='1' order by lastdate desc"
end if
else
sql="select * from bbs where bbsbm= "&bm&" or top=2 order by top desc,lastdate desc"
end if
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>"
else
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
%>
	<IMG src="face/<%=""&fa&""%>" border=0></TD>
    <TD class=td width="45%">&nbsp;&nbsp;<A  
      href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>"><%=rs("title")%></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("lastdate")%>‖<A 
      href="../datum.asp?username=<%=rs("lastuser")%>">
<%set rd=conn.execute ("select name from user where username = '"&rs("lastuser")&"'")
	bmin=rd("name")
	response.write ""&bmin&""%></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="100%" 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>
                    </td>
       </form>
  </tr></TBODY></TABLE>
   <%end if
  rs.close
	 set rs=nothing%></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>