📄 list.asp
字号:
<!-- #include file="const.asp" -->
<%
dim page,CID,FID
dim sql,rs,rscount,id,pic,author,replies,views,lastname,lasttime,topic,pictips
dim ftitle,ctitle,fadmin,fprofile,authent,authentlist
dim addtime,istop,isbest,face,name,click,lasttime2,uploadfile,filepath,fileext
dim totalcount,totalpages,psize,i,liststr,re,j,lastname2,view,viewstr,csize
if request.Cookies("matrix3")("list")="" then
liststr="bbs"
else
liststr="treelist"
end if
psize=20
totalcount=0
totalpages=0
page=request("page")
if not IsNumeric(page) then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
FID=nrequest("forumid")
view=trim1(request.QueryString("view"))
if view="hot" then
viewstr="热门帖子"
else
viewstr="帖子"
end if
if FID="" then
response.Redirect("error.asp?id=3")
response.End()
end if
call opendb()
sql="select forum.FTitle,forum.FAdmin,forum.FProfile,category.CID,category.CTitle,forum.authent,forum.authentlist from m3_forum as forum,m3_category as category where forum.FID="&FID&" and category.CID=forum.CID"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
call closedb()
response.Redirect("error.asp?id=2")
response.End()
else
ftitle=rs(0)
fadmin=rs(1)
fprofile=rs(2)
CID=rs(3)
ctitle=rs(4)
authent=cint(rs(5))
authentlist=rs(6)
end if
rs.close
set rs=nothing
if authent=1 then
if inlist(authentlist)=0 then
response.Redirect("error.asp?id=11")
response.End()
end if
end if
position "浏览论坛："&FTitle,0
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="m3, M3, m3论坛, M3论坛, matrix, MATRIX, matrix3, MATRIX3, matrix3.cn, bbs, forum, BBS, 论坛, lilo, billylai, gyb, web, asp, jsp, VC, VC++, vc, c++, java, flash, photoshop, tutorials, utilities, MUSIC, Music, music, software, design">
<meta name="description" content="m3, M3, m3论坛, M3论坛, matrix, MATRIX, matrix3, MATRIX3, matrix3.cn, bbs, forum, BBS, 论坛, lilo, billylai, gyb, web, asp, jsp, VC, VC++, vc, c++, java, flash, photoshop, tutorials, utilities, MUSIC, Music, music, software, design">
<link href="images/skin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="images/effect.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script>
function loadThreadFollow(t_id,b_id){
var targetImg =eval("document.all.followImg" + t_id);
var targetDiv =eval("document.all.follow" + t_id);
if ("object"==typeof(targetImg)){
if (targetDiv.style.display!='block'){
targetDiv.style.display="block";
targetImg.src="images/nofollow.gif";
if (targetImg.loaded=="no"){
document.frames["hiddenframe"].location.replace("loadtree.asp?listpage=<%=page%>&forumid="+b_id+"&rootid="+t_id);
}
}else{
targetDiv.style.display="none";
targetImg.src="images/plus.gif";
}
}
}
</script>
<iframe width=0 height=0 src="" id="hiddenframe"></iframe>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="mainbg">
<tr>
<td height="10" align="center" valign="top"> <!-- #include file="topbar.asp" --></td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" class="left_main"> </td>
<td width="1" class="left_sp_min"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="26" colspan="2"><span class="v8"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="category.asp?cid=<%=CID%>"><%=ctitle%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="list.asp?forumid=<%=FID%>"><%=ftitle%></a></span></td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td height="30"> - 版主：
<%
dim tmp_i
fadmin=trim(fadmin)
if fadmin<>"" then
fadmin=split(fadmin,",")
for tmp_i=0 to ubound(fadmin)
if tmp_i=0 then
response.write("<a href='profile.asp?name="&fadmin(tmp_i)&"' target='_blank'>"&fadmin(tmp_i)&"</a> ")
else
response.write(", <a href='profile.asp?name="&fadmin(tmp_i)&"' target='_blank'>"&fadmin(tmp_i)&"</a>")
end if
next
else
response.write("暂时空缺")
end if
%>
</td>
<td width="28%" align="center" nowrap class="v8">
<%if view<>"" then%>
<a href="list.asp?forumid=<%=FID%>"><img src='images/btn_flat.gif' border="0" align='absmiddle'>
所有帖子</a> <%end if%><a href="post.asp?forumid=<%=FID%>"><img src='images/btn_new.gif' border="0" align='absmiddle'>
发表帖子</a> <a href="distillate.asp?forumid=<%=FID%>"><img src='images/btn_jh.gif' border="0" align='absmiddle'>
本版精华</a> <a href="javascript:location.reload()"><img src='images/btn_refresh.gif' border="0" align='absmiddle'>
刷新页面</a> </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" class="list_bar_1"> <img src="images/fang-1.gif" align="absmiddle"><span class="v7"><font color="#FFFFFF">论坛话题</font></span></td>
<td height="12" nowrap class="list_bar_1_bg"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class="body_tb_border">
<tr bgcolor="#FFFFFF">
<td valign="top" bgcolor="#FFFFFF" class="mainbg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="v7b"> <img src="images/catbullet.gif" width="12" height="13" align="absmiddle"></span>
<span class="v7"><font color="#666666"><%=fprofile%></font></span><font color="#666666">
</font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" class="body_sp_min"></td>
</tr>
</table></td>
</tr>
</table>
<br> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" class="list_bar_2"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF">论坛<%=viewstr%></font></span><span class="v7b"></span></td>
<td height="12" nowrap class="list_bar_2_bg"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="list_border">
<tr class="list_head">
<td colspan="2" align="center">状态</td>
<td align="center">主题</td>
<td width="80" align="center">作者</td>
<td width="50" align="center">回/阅</td>
<td width="80" align="center" nowrap>回复人</td>
<td width="90" align="center" nowrap>最后回复时间</td>
</tr>
<%
if view="hot" then
sql="select ID,lasttime,lastname,re,addtime,istop,isbest,face,topic,name,click,uploadfile,filepath,csize from m3_bbs where FID="&FID&" and PID=0 and valid=1 and re>10 order by istop desc,lasttime desc"
else
sql="select ID,lasttime,lastname,re,addtime,istop,isbest,face,topic,name,click,uploadfile,filepath,csize from m3_bbs where FID="&FID&" and PID=0 and valid=1 order by istop desc,lasttime desc"
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
set id=rs(0)
set lasttime=rs(1)
set lastname=rs(2)
set re=rs(3)
set addtime=rs(4)
set istop=rs(5)
set isbest=rs(6)
set face=rs(7)
set topic=rs(8)
set name=rs(9)
set click=rs(10)
set uploadfile=rs(11)
set filepath=rs(12)
set csize=rs(13)
rs.pagesize=psize
rs.cachesize=rs.pagesize
totalpages=rs.pagecount
if page>totalpages then page=totalpages
rs.absolutepage=page
totalcount=int(rs.recordcount)
i=0
rscount=totalcount-(page-1)*psize
if psize>rscount then psize=rscount
while i<psize
i=i+1
if trim(lasttime)="" then
lasttime2=mid(addtime,6)
else
lasttime2=mid(lasttime,6)
end if
if istop=1 then
pic="istop"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -