📄 list.asp
字号:
<!--#include file="BBSLib.asp"-->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
end if
dim StarTime,EndTime
StarTime=timer()
'CheckLogin
if Request.QueryString("PAGE") <> "" then
PAGE = Int(Request.QueryString("PAGE"))
else
PAGE = 1
end if
LT = CommandEx("300|"&Request.QueryString("ID")&"|"&PAGE)
'Command("102|"&GetPart(LT(0),4))
if Request.QueryString("ACT") = 1 then
TJLT = Command("338|"&Request.QueryString("ID"))
if GetPart(TJLT,1) <> "0" then
ShowError 3,GetPart(TJLT,2)
Response.End
else
ShowMessage 3,"该论坛已加入热点推荐！"
Response.Write("<script>window.parent.parent.SCFW();</script>")
Response.End
end if
end if
%>
<html>
<head>
<title><%=TITLE%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
a,body,td { font-family: "宋体"; font-size: 12px}
.p9 { font-family: "宋体"; font-size: 12px}
A:link{font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:12px;COLOR: red; TEXT-DECORATION: underline}
.TButton { font-family: "宋体"; font-size: 12px;cursor:hand; HEIGHT: 20px; WIDTH: 52px}
-->
</style>
</head>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function ShowZXRS() {
fDQZX = window.open('','fDQZX','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no');
fDQZX.location.replace('dqzx.asp');
}
function ShowGRZL(nc) {
l = screen.width/2-500/2;
t = screen.height/2-250/2;
window.open('grzl.asp?NC='+nc,'fGRZL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
}
function mar1_onmouseover() {
mar1.stop();
}
function mar1_onmouseout() {
mar1.start();
}
function ShowLTZLXG(id) {
l = screen.width/2-450/2;
t = screen.height/2-310/2;
fLTGL = window.open('','fLTGL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=310,left='+l+',top='+t);
fLTGL.location.replace('ltgl.asp?ID='+id);
}
//-->
</script>
<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 background="images/bg.gif">
<%
Response.Write("<table width=100% align=center cellPadding=0 cellSpacing=0><tr><td height=22 valign=bottom><table width=100% border=0 cellspacing=0 cellpadding=0 align=center bgcolor=#FFFFFF><tr><td width=50% height=22 class=p9><IMG border=0 src=images/lastpost.gif align=absmiddle hspace=4><a href=ltzy.asp>返回社区首页</a> >> "&_
GetPart(LT(0),4)&"</td><td align=right class=p9>社区管理员：<a href=javascript:ShowGRZL('"&Application("NC")&"')>"&Application("NC")&_
"</a> </td></tr></table><tr><td height=3 background=images/dot_line.gif><img src=images/1x1.gif></td></tr></td></tr></table><table width=99% border=0 cellpadding=0 align=center class=p9><tr><td align=right>")
if Int(GetPart(LT(0),2))/Int(Application("MYLMS")) > 1 then
if Request.QueryString("PAGE") <> "" then
PAGE = Int(Request.QueryString("PAGE"))
else
PAGE = 1
end if
TOTALPAGE = Int(IIF((Int(GetPart(LT(0),2)) mod Int(Application("MYLMS"))) = 0,Int(GetPart(LT(0),2))/Int(Application("MYLMS")),Int(GetPart(LT(0),2))/Int(Application("MYLMS"))+1))
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 align=right>")
Response.Write("<tr><td class=p9 align=right>")
Response.Write("<a href=list.asp?PAGE=1&ID="&Request.QueryString("ID")&"><img src=images/sy.gif title=首页 border=0 align=absmiddle></a> ")
if PAGE = 1 then
Response.Write("<img src=images/hsyy.gif border=0 title=上页 align=absmiddle> ")
else
Response.Write("<a href=list.asp?PAGE="&PAGE-1&"&ID="&Request.QueryString("ID")&"><img src=images/syy.gif title=上页 border=0 align=absmiddle></a> ")
end if
for i=1 to TOTALPAGE
if i = PAGE then
Response.Write("<B><font color=red>"&i&" </font></B>")
else
Response.Write("<A href=list.asp?PAGE="&i&"&ID="&Request.QueryString("ID")&"><B>"&i&"</B></A> ")
end if
next
if PAGE = TOTALPAGE then
Response.Write(" <img src=images/hxyy.gif border=0 title=下页 align=absmiddle>")
else
Response.Write(" <a href=list.asp?PAGE="&PAGE+1&"&ID="&Request.QueryString("ID")&"><img src=images/xyy.gif title=下页 border=0 align=absmiddle></a>")
end if
Response.Write(" <a href=list.asp?PAGE="&TOTALPAGE&"&ID="&Request.QueryString("ID")&"><img src=images/wy.gif title=末页 border=0 align=absmiddle></a>")
Response.Write("</td></tr></table>")
else
Response.Write("<br>")
end if
Response.Write("</td></tr></table><table width=99% align=center cellspacing=1 cellpadding=5 bgcolor=#84B6DE style='word-break:break-all'>"&_
"<tr><td class=p9 width=6% height=22 bgcolor=#CEE7FF nowrap><div align=center>状态</div></td><td class=p9 width=44% height=22 bgcolor=#CEE7FF>"&_
"<div align=center>论坛</div></td><td bgcolor=#CEE7FF class=p9 width=17% height=22><div align=center>版主</div>"&_
"</td><td bgcolor=#CEE7FF class=p9 width=15% height=22><div align=center>最后发表</div></td><td bgcolor=#CEE7FF class=p9 width=9% height=22 NOWRAP>"&_
"<div align=center>主题数</div></td><td bgcolor=#CEE7FF class=p9 width=9% NOWRAP><div align=center>访问数</div>"&_
"</td></tr>")
if GetPart(LT(0),1) = "0" then
for i=1 to UBound(LT)
if GetPart(LT(i),1) = "" then
exit for
end if
if (i mod 2) = 0 then
Response.Write("<tr><td bgcolor=#F7FBFF class=p9 width=6% >")
else
Response.Write("<tr><td bgcolor=#F7FBFF class=p9 width=6% >")
end if
Response.Write("<DIV align=center>")
select case GetPart(LT(i),9)
case "0"
if trim(GetPart(LT(i),7)) <> "" then
if DateDiff("d",GetPart(LT(i),7),now()) > 3 then
Response.Write("<img src=images/ltclose.gif >")
else
Response.Write("<img src=images/lthot.gif >")
end if
else
Response.Write("<img src=images/ltclose.gif >")
end if
case "2"
Response.Write("<img src=images/ltlock.gif >")
case "3"
Response.Write("<img src=images/ltstop.gif >")
case else
Response.Write("<img src=images/ltclose.gif >")
end select
Response.Write("</div></td>")
Response.Write("<td class=p9 width=45% bgcolor=#FFFFFF>")
Response.Write("<table width=100% border=0 cellpadding=1 cellspacing=0 class=p9>")
Response.Write("<TR><TD ROWSPAN=4> </TD><TD COLSPAN=2 width=99% > </TD></TR>")
Response.Write("<tr><td>")
Response.Write("<A href='ltlb.asp?ID="&GetPart(LT(i),1)&"&页="&PAGE&"'>【"&GetPart(LT(i),2)&"】</A></td><td>")
if (UCase(Request.Cookies("NC")) = UCase(Application("NC")) or Request.Cookies("NC") = mid(GetPart(LT(i),4),1,Int(InStr(GetPart(LT(i),4)," "))-1)) then
Response.Write("<div align=right><a href=javascript:ShowLTZLXG("&GetPart(LT(i),1)&")><font color=red>论坛资料修改</font></a> </div>")
end if
Response.Write("</td></tr><tr><td colspan=2>"&GetPart(LT(i),3)&"</td></tr>")
Response.Write("<tr><td colspan=2 height=10></td></tr></table>")
Response.Write("<td class=p9 width=20% bgcolor=#F7FBFF><div align=center>"&GetPart(LT(i),4)&"</div></td>")
Response.Write("<td class=p9 width=15% bgcolor=#F7FBFF align=center><A href=javascript:ShowGRZL('"&GetPart(LT(i),8)&"')>"&GetPart(LT(i),8)&"</A><IMG border=0 src=images/lastpost.gif align=absmiddle hspace=2><br>"&mid(GetPart(LT(i),7),1,16)&"</td>")
Response.Write("<td class=p9 width=7% bgcolor=#FFFFFF><div align=center>"&GetPart(LT(i),5)&"</div></td>")
Response.Write("<td class=p9 width=8% bgcolor=#F7FBFF><div align=center>"&GetPart(LT(i),6)&"</div></td></tr>")
next
end if
Response.Write("</td></tr></table>")
if Int(GetPart(LT(0),2))/Int(Application("MYLMS")) > 1 then
if Request.QueryString("PAGE") <> "" then
PAGE = Int(Request.QueryString("PAGE"))
else
PAGE = 1
end if
TOTALPAGE = Int(IIF((Int(GetPart(LT(0),2)) mod Int(Application("MYLMS"))) = 0,Int(GetPart(LT(0),2))/Int(Application("MYLMS")),Int(GetPart(LT(0),2))/Int(Application("MYLMS"))+1))
Response.Write("<table width=95% border=0 cellpadding=0 cellspacing=0 height=35 align=center>")
Response.Write("<tr><td class=p9 align=center>")
Response.Write("<a href=list.asp?PAGE=1&ID="&Request.QueryString("ID")&"><img src=images/sy.gif title=首页 border=0 align=absmiddle></a> ")
if PAGE = 1 then
Response.Write("<img src=images/hsyy.gif border=0 title=上页 align=absmiddle> ")
else
Response.Write("<a href=list.asp?PAGE="&PAGE-1&"&ID="&Request.QueryString("ID")&"><img src=images/syy.gif title=上页 border=0 align=absmiddle></a> ")
end if
for i=1 to TOTALPAGE
if i = PAGE then
Response.Write("<B><font color=red>"&i&" </font></B>")
else
Response.Write("<A href=list.asp?PAGE="&i&"&ID="&Request.QueryString("ID")&"><B>"&i&"</B></A> ")
end if
next
if PAGE = TOTALPAGE then
Response.Write(" <img src=images/hxyy.gif border=0 title=下页 align=absmiddle>")
else
Response.Write(" <a href=list.asp?PAGE="&PAGE+1&"&ID="&Request.QueryString("ID")&"><img src=images/xyy.gif title=下页 border=0 align=absmiddle></a>")
end if
Response.Write(" <a href=list.asp?PAGE="&TOTALPAGE&"&ID="&Request.QueryString("ID")&"><img src=images/wy.gif title=末页 border=0 align=absmiddle></a>")
Response.Write("</td></tr></table>")
else
Response.Write("<br>")
end if
Response.Write("<table width=99% align=center cellspacing=1 cellpadding=5 style='word-break:break-all'><tr><td class=p9 height=22 align=center><img src=images/ltclose.gif align=absmiddle> 近期冷清的论坛 <img src=images/lthot.gif align=absmiddle> 近期活跃的论坛 <img src=images/ltlock.gif align=absmiddle> 需要密码进入的论坛 <img src=images/ltstop.gif align=absmiddle> 已经封闭的论坛 </td></tr></table><br>")
Response.Write("<IFRAME id=iHIDE style='WIDTH:0px; HEIGHT:0px;display:none'></IFRAME>")
EndTime=timer()
Response.Write("<div align=center>[查询所用时间："&FormatNumber((EndTime-StarTime)*1000,3)&"毫秒]</div><br>")
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -