📄 ltzy2.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="BBSLib.asp"-->
<%
dim StarTime,EndTime
StarTime=timer()
%>
<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 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);
}
//-->
</script>

<body style="margin:0px" background="images/bg.gif">
<br><table width="99%" border="0" cellpadding="4" align="center">
  <tr> 
    <td align="right"> 
     社区管理员：<a href="mailto:webmaster@xmcn.com"><%=Application("NC")%></a>
    </td>
  </tr>
</table>
<%
Response.Write("<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>")
   

      dim PAGE
	  PAGE = 1

      
      LT = CommandEx("3000|"&PAGE)
              
      if GetPart(LT(0),1) = "0" then
          for i=1 to UBound(LT)
              if GetPart(LT(i),1) = "" then
                  exit for
              end if    
              
              Response.Write("<tr><td bgcolor=#F7FBFF class=p9 width=6% >")

              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=44% bgcolor=#FFFFFF>")
              Response.Write("<table width=100% border=0 cellpadding=1 cellspacing=0 class=p9>")
              Response.Write("<tr><td height=5></td></tr>")
              Response.Write("<tr><td>")
              Response.Write("<A href='ltlb.asp?ID="&GetPart(LT(i),1)&"&页="&PAGE&"'>"&GetPart(LT(i),2)&"</A><br>"&GetPart(LT(i),3)&"</td>")
              Response.Write("</tr><tr><td height=5></td></tr></table>")
              Response.Write("<td class=p9 width=15% bgcolor=#F7FBFF><div align=center>"&GetPart(LT(i),4)&"</div></td>")
              Response.Write("<td class=p9 width=17% bgcolor=#F7FBFF align=center>"&GetPart(LT(i),8)&"<IMG border=0 src=images/lastpost.gif align=absmiddle hspace=2><br>"&GetPart(LT(i),7)&"</td>")
              Response.Write("<td class=p9 width=9% bgcolor=#FFFFFF><div align=center>"&GetPart(LT(i),5)&"</div></td>")
              Response.Write("<td class=p9 width=9% bgcolor=#F7FBFF><div align=center>"&GetPart(LT(i),6)&"</div></td></tr>")
          next
      end if
     
      Response.Write("</table>")   

	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> 近期冷清的论坛&nbsp;<img src=images/lthot.gif align=absmiddle> 近期活跃的论坛&nbsp;<img src=images/ltlock.gif align=absmiddle> 需要密码进入的论坛&nbsp;<img src=images/ltstop.gif align=absmiddle> 已经封闭的论坛&nbsp;</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 + -