listh.asp

可以做论坛

<% Server.ScriptTimeOut=120 %>
<!--#include file="conn.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="asptbfunction.asp"-->
<%
function listh(jinghuanlist,idl,Page)
cczt="select * from neirong  where zt=1 and shanzhu=0 and idl="&idl&""
set rszt=server.createobject("adodb.recordset")
cczt=cczt+" order by zhiding desc,huitime desc"
rszt.open cczt,conn,1,1

cclt="select * from luntan where idl="&IDL
set rslt=server.createobject("adodb.recordset")
rslt.open cclt,conn,1,1
luntant=rslt("luntan")
bz=rslt("banzhu")
if rslt("html")=1 then
listto="<a href=./ target=_self><font color=#F6F6F6>"&rslt("luntan")&""&sbbs&"</font></a>"
else
listto="<a href=../../list.asp?idl="&rslt("idl")&"><font color=#F6F6F6>"&rslt("luntan")&""&sbbs&"</font></a>"
end if

 '分类
fenlei=rslt("fenlei")
if CInt(fenlei)<1 then
fenlei=""
else
ccfll="select  * from luntan where idl="&fenlei&""
set rsfll=server.createobject("adodb.recordset")
rsfll.open ccfll,conn,1,1
fenlei=rsfll("luntan")
fenlei="<a href=../../tiebalist.asp?idl="&rsfll("idl")&" target=_self><font color=#F6F6F6>"&fenlei&"</font></a>>>>"
end if '分类结束
jinghuanlist=""
jinghuanlist=jinghuanlist&"<title>"&luntant&""&sbbs&"</title>"
jinghuanlist=jinghuanlist&"<table width=775 border=0 align=center cellspacing=0 class=td4>"
jinghuanlist=jinghuanlist&"<tr><td>·<a href=../../><font color=#F6F6F6>首页</font></a>>>>"&fenlei&""&listto&""
jinghuanlist=jinghuanlist&"</td><td>[贴数/主题："&rslt("tieshu")&"/"&rslt("zhutishu")&"]"
   
jinghuanlist=jinghuanlist&"</td><td><a href=#wz><font color=#F6F6F6>发表新主题</font></a></td><td>[<a href=../../shenqingbz.asp?idl="&idl&"><font color=#F6F6F6>申请吧主</font></a>]</td>"
jinghuanlist=jinghuanlist&"<td>吧主：" 
   
	Dim MyString, bbz
	if bz="notbz" then 
jinghuanlist=jinghuanlist&"<font color=#F6F6F6>还没吧主，欢迎申请！</font>"
    else '有斑竹
    MyString = bz
    j=1
    leng=1
    for i=1 to len(MyString)
    if instr(j,MyString,"|")>0 then
    j=instr(j,MyString,"|")+1
    leng=leng+1
    end if
    next

    bbz = Split(MyString, "|",leng+1) 

    i=0 

    do while i<leng
    huibz="select * from user where idy="&bbz(i)
    set rsbz=server.createobject("adodb.recordset")
    rsbz.open huibz,conn,1,1
jinghuanlist=jinghuanlist&"<a href=../../showuser.asp?idy="&bbz(i)&"><font color=#F6F6F6>"&rsbz("bm")&"</fond></a>  " 
    i=i+1
    loop
	end if'有斑竹

jinghuanlist=jinghuanlist&"</td></tr></table>"
jinghuanlist=jinghuanlist&"<table width=775 border=0 align=center cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td width=70% valign=top> "
if not rszt.eof then '还没有贴子
jinghuanlist=jinghuanlist&"<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr class=td1> "
jinghuanlist=jinghuanlist&"<td width=8%/>点击</td>"
jinghuanlist=jinghuanlist&"<td width=8% height=20>回复</td>"
jinghuanlist=jinghuanlist&"<td width=35%/>主题</td>"
jinghuanlist=jinghuanlist&"<td width=15%/>作者</td>"
jinghuanlist=jinghuanlist&"<td width=20%/>更新时间</td>"
jinghuanlist=jinghuanlist&"</tr>"

IF not rszt.eof then
rszt.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 
'Page = CLng(Request("Page")) 'string型转化为long型 
Page = CLng(Page)
If Page < 1 Then Page = 1 
If Page > rszt.PageCount Then Page = rszt.PageCount 
end if
rszt.AbsolutePage = Page
i=1
For iPage = 1 To rszt.PageSize
ii=i mod 2
if ii=1 then 
bgc=""
else 
bgc="td6"
end if

jinghuanlist=jinghuanlist&"<tr class="&bgc&"> "
jinghuanlist=jinghuanlist&"<td>"&rszt("yue")&"</td>"
jinghuanlist=jinghuanlist&"<td>"&rszt("lay")-1&"</td>"
if rszt("html")=1 then
jinghuanlist=jinghuanlist&"<td><a href=../"&rszt("idl")&"/"&rszt("ids")&".htm target=_self>"
else
jinghuanlist=jinghuanlist&"<td><a href=../../show.asp?ids="&rszt("ids")&" target=_self> "
end if        
		  if rszt("zhiding")=1 then
jinghuanlist=jinghuanlist&"<font color=#FF0000>[置顶]</font>"
		  else
		  end if
		  if rszt("jinghuau")=1 then
jinghuanlist=jinghuanlist&"<font color=#FF0000>[精华]</font>"
		  else
		  end if
		 
jinghuanlist=jinghuanlist&rszt("zhuti")&"</a></td>"
jinghuanlist=jinghuanlist&"<td>"
        
		  idzz=rszt("zuozhe")
		  if CInt(idzz)=0 then
		  bmm="游客"
jinghuanlist=jinghuanlist&""&bmm&""
		  else 
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
jinghuanlist=jinghuanlist&"<a href=../../showuser.asp?idy="&rszz("idy")&">"&bmm&"</a>"
		  rszz.close
		  set rszz=nothing
		  end if
		  
	
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"<td>"&Mid(rszt("huitime"),4)&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
       rszt.MoveNext 
 i=i+1
If rszt.EOF Then Exit For 
Next 

jinghuanlist=jinghuanlist&"</table>"
	 end if '还没贴子
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"<td width=30% valign=top> "
jinghuanlist=jinghuanlist&"<table width=100% border=0 cellspacing=0>"
jinghuanlist=jinghuanlist&"<tr  class=td1>"
jinghuanlist=jinghuanlist&"<td height=20 align=center><a href=/ target=_self>"&swebname&"</a>最新推荐：</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"<tr>" 
jinghuanlist=jinghuanlist&"<td class=tdz12>" 
jinghuanlist=jinghuanlist&luntantuijian1
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table>"
jinghuanlist=jinghuanlist&"<table width=100% border=0 cellspacing=0>"
       if len(srguang)>6 then
jinghuanlist=jinghuanlist&"<tr> "
jinghuanlist=jinghuanlist&"<td align=center>"&srguang&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
		end if
jinghuanlist=jinghuanlist&"<tr> "
jinghuanlist=jinghuanlist&"<td align=center valign=top class=td1>最新回复主题 </td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"<tr>"
jinghuanlist=jinghuanlist&"<td align=left valign=top class=tdz12> "
          
jinghuanlist=jinghuanlist&newshowtop1 
		
jinghuanlist=jinghuanlist&"</td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table></td>"
jinghuanlist=jinghuanlist&"</tr>"
jinghuanlist=jinghuanlist&"</table>"

rszt.close
set rszt=nothing
end function
%>