📄 billboard.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 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()  
%>
<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,td,body {  font-family: "宋体"; font-size: 12px}
.p9 {  font-family: "宋体"; font-size: 12px}
.pt9 {  font-family: "宋体"; font-size: 12px;TEXT-DECORATION: underline}
.p10 {  font-family: "宋体"; font-size: xx-small; COLOR:#663300}
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%" align="center">
  <tr> 
    <td width=33% valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr>
          <td height="25" align="center" background="images/1-11.gif"><FONT color=#21517B><B>社 
            区 龙 虎 榜</B></FONT></td>
        </tr>
        <tr>
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2"><tr class="p9"><td class="p9" height="15" width="65%"> <div align="center"><font color="#0000FF">昵称</font></div></td><td class="p9" height="15" width="35%"> <div align="center"><font color="#0000FF">经验</font></div></td></tr>
          <%            
                 ret = CommandEx("121|")
                 if GetPart(ret(0),1) = "0" then
                     for i=1 to 10
                         if trim(GetPart(ret(i),1)) = "" then exit for
                         Response.Write("<tr>")
                         Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                         Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</A></div></td>")
                         Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                         Response.Write("</tr>")
                    next
                end if
          %></table></td>
        </tr>
      </table></td>
    <td width=33% valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr> 
          <td height="25" align="center" background="images/1-11.gif" bgcolor="#CEE7FF"><FONT color=#21517B><B>社 
            区 富 翁 榜</B></FONT></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2" align="center"> 
<tr><td height="16" width="65%"> <div align="center"><font color="#0000FF">昵称</font></div></td><td height="16" width="35%"> 
<div align="center"><font color="#0000FF">金钱</font></div></td></tr> <%
            ret = CommandEx("122|")
            if GetPart(ret(0),1) = "0" then
                for i=1 to 10
                    if trim(GetPart(ret(i),1)) = "" then exit for
                    Response.Write("<tr>")
                    Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                   ' Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<A href=default.asp?ACT=1&NC="&GetPart(ret(i),1)&" target=iHIDE>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                    Response.Write("</tr>")
                next
            end if
       %></table></td>
        </tr>
      </table></td>
    <td width="33%" valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr> 
          <td height="25" align="center" background="images/1-11.gif" bgcolor="#CEE7FF"><FONT color=#21517B><B>社 
            区 发 帖 榜</B></FONT></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2" align="center"> 
<tr><td height="16" width="65%"><div align="center"><font color="#0000FF">昵称</font></div></td><td height="16" width="35%"> 
<div align="center"><font color="#0000FF">帖子</font></div></td></tr> <%
            ret = CommandEx("1233|")
            if GetPart(ret(0),1) = "0" then
                for i=1 to 10
                    if trim(GetPart(ret(i),1)) = "" then exit for
                    Response.Write("<tr>")
                    Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                   ' Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<A href=default.asp?ACT=1&NC="&GetPart(ret(i),1)&" target=iHIDE>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                    Response.Write("</tr>")
                next
            end if
       %></table></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width=33% valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr> 
          <td height="25" align="center" background="images/1-11.gif" bgcolor="#CEE7FF"><FONT color=#21517B><B>社 
            区 恶 人 榜</B></FONT></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2"> 
<tr height="75"><td height="15" width="65%"> <div align="center"><font color="#0000FF">昵称</font></div></td><td height="15" width="35%"> 
<div align="center"><font color="#0000FF">魅力</font></div></td></tr> <%
            ret = CommandEx("123|")
            if GetPart(ret(0),1) = "0" then
                for i=1 to 10
                    if trim(GetPart(ret(i),1)) = "" then exit for
                    Response.Write("<tr>")
                    Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                   ' Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<A href=default.asp?ACT=1&NC="&GetPart(ret(i),1)&" target=iHIDE>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                    Response.Write("</tr>")
                next
            end if
       %></table></td>
        </tr>
      </table></td>
    <td width=33% valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr> 
          <td height="25" align="center" background="images/1-11.gif" bgcolor="#CEE7FF"><FONT color=#21517B><B>社 
            区 魅 力 榜</B></FONT></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2" align="center"> 
<tr> <td height="16" width="65%"> <div align="center"><font color="#0000FF">昵称</font></div></td><td height="16" width="35%"> 
<div align="center"><font color="#0000FF">魅力</font></div></td></tr> <%
            ret = CommandEx("1222|")
            if GetPart(ret(0),1) = "0" then
                for i=1 to 10
                    if trim(GetPart(ret(i),1)) = "" then exit for
                    Response.Write("<tr>")
                    Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                   ' Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<A href=default.asp?ACT=1&NC="&GetPart(ret(i),1)&" target=iHIDE>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                    Response.Write("</tr>")
                next
            end if
       %></table></td>
        </tr>
      </table></td>
	<td width=33% valign="top"><table width="96%" border="0" align="center" frame=vsides bgcolor="#84B6DE" cellspacing="1" cellpadding="0">
        <tr> 
          <td height="25" align="center" background="images/1-11.gif" bgcolor="#CEE7FF"><FONT color=#21517B><B>社 
            区 新 人 榜</B></FONT></td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><br>
		  <table width="90%" border="0" cellspacing="0" cellpadding="2"> 
<tr height="75"><td height="15" width="65%"> <div align="center"><font color="#0000FF">昵称</font></div></td><td height="15" width="35%"> 
<div align="center"><font color="#0000FF">性别</font></div></td></tr><%
            ret = CommandEx("128|")
            if GetPart(ret(0),1) = "0" then
                for i=1 to 10
                    if trim(GetPart(ret(i),1)) = "" then exit for
                    Response.Write("<tr>")
                    Response.Write("<td class=p9 height=15 width=65% ><div align=center>")
                    Response.Write("<A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</div></td>")
                    Response.Write("<td class=p9 height=15 width=35% ><div align=center>"&GetPart(ret(i),2)&"</div></td>")
                    Response.Write("</tr>")
               next
            end if
       %></table></td>
        </tr>
      </table></td>

  </tr>
</table><br>
<%EndTime=timer()%>
<div align=center>[查询所用时间： <%=FormatNumber((EndTime-StarTime)*1000,3)%>毫秒]</div>
<br>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -