📄 ggl.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="BBSLib.asp"-->
<%

    if Request.ServerVariables("Request_Method") = "POST" then
        ret = Command("318|"&Request.QueryString("ID"))
        if GetPart(ret,1) <> "0" then
            ShowError 0,GetPart(ret,2)
        end if
    end if        
    
    if Request.QueryString("PAGE") <> "" then
        if Int(Request.QueryString("PAGE")) < 1 then
            PAGE = 1
        else
            PAGE = Int(Request.QueryString("PAGE"))
        end if
    else
        PAGE = 1
    end if                

    ret = CommandEx("316|"&PAGE)
    if GetPart(ret(0),1) <> "0" then
        Response.End
    end if
    
    if Int(GetPart(ret(0),2)) = 0 then
        TOTALPAGE = 1
    else
        if  Int(GetPart(ret(0),2)) mod 20 = 0 then
            TOTALPAGE = Int(GetPart(ret(0),2))/20
        else
            TOTALPAGE = Int(Int(GetPart(ret(0),2))/20)+1
        end if
    end if                   
%>
<HTML>
<HEAD>
<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">
<!--
.p9 {  font-family: "宋体"; font-size: 9pt}
.TButton {  font-family: "宋体"; font-size: 9pt;cursor:hand;HEIGHT: 20px; WIDTH: 66px}
A:link{font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:9pt;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
window.resizeTo(screen.availWidth,screen.availHeight); 
function bGB_onclick() {
    window.close();
}

function ShowPage(page) {
    window.location.replace('ggl.asp?PAGE='+page);
}    

function ShowFBGG() {
    l = screen.width/2-450/2;
    t = screen.height/2-300/2;
    fFBGG = window.open('','fFBGG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
    fFBGG.location.replace('fbgg.asp');
    fFBGG.openor = window;
}

function SC(id) {
    fGGL.action = 'ggl.asp?ID='+id;
    fGGL.submit();
}    

//-->
</SCRIPT>
</HEAD>
<body topMargin=0 bgcolor=#F7F7F7>
<form name="fGGL" method="POST">
<br><div align="center">
<table width="98%" border="0" cellspacing="1" cellpadding="2">
    <tr> 
      <td width="29%" valign="bottom"><%=IIF(Request.Cookies("NC") = Application("NC"),"<A href=javascript:ShowFBGG()><img src=images/fbgg.gif border=0></A>","&nbsp;")%></td>
      <td width="46%" align=center><img src="images/ggl1.gif" hspace="4" align=absmiddle><b><font size=4 color=#21517B>公 告 栏</font></b></td>
      <td width="25%" class=p9 valign="bottom"><div align=right><img src=images/yy.gif align=absmiddle WIDTH=25 HEIGHT=16>第<%=PAGE%>页 <img src=images/zys.gif align=absmiddle hspace="4">总计<%=TOTALPAGE%>页</div></td>
    </tr>
  </table>
</div>
<table width="98%" border=0 cellspacing=1 cellpadding=0 align=center bgcolor=#BDD3E7 class="p9" style='word-break:break-all'>
 <%
     for i=1 to UBound(ret)
         if GetPart(ret(i),1) = "" then 
             exit for
         end if    
         if i mod 2 = 0 then
             Response.Write("<tr bgcolor=#BDD3E7>")
         else
             Response.Write("<tr bgcolor=#BDD3E7>")
         end if 
         Response.Write("<td height=25><div align=center><table width=100% border=0 cellspacing=0 cellpadding=0>")  
         Response.Write("<tr><td width=60% class=p9><div align=right>"&GetPart(ret(i),2)&"<a name=#"&i&"></a></div></td>")
         if Request.Cookies("NC") = Application("NC") then
             Response.Write("<td><div align=right><A href=javascript:SC("&GetPart(ret(i),1)&")><img title=删除 src=images/del.gif width=16 height=16 border=0></A>&nbsp;</div></td></tr></table></div></td></tr>")
         else    
             Response.Write("<td><div align=right>&nbsp;</div></td></tr></table></div></td></tr>")
         end if    
         Response.Write("<tr bgcolor=#FFFFFF><td><br>"&GetPart(ret(i),5)&"<br><br></td></tr>")
         Response.Write("<tr><td bgcolor=#FFFFEF><table width=100% border=0 cellspacing=0 cellpadding=0><tr class=p9><td width=50% height=20>发布人："&GetPart(ret(i),3)&"</td>")
         Response.Write("<td width=50% ><div align=right>发布时间："&GetPart(ret(i),4)&"</div></td></tr></table></td></tr>")
     next
         
     Response.Write("<tr><td bgcolor=#BDD3E7 align=center height=30>")
     if Request.Cookies("NC") = Application("NC") then
         Response.Write("<input type=button name=bFBGG value=发布公告 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black' LANGUAGE=javascript onclick='return ShowFBGG()'> ")
     end if
     if PAGE > 1 then   
         Response.Write("<input type=button name=bSY value=上一页 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black' LANGUAGE=javascript onclick='return ShowPage("&PAGE-1&")'> ")
     else
         Response.Write("<input type=button name=bSY value=上一页 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black' disabled> ")
     end if
     if PAGE < TOTALPAGE then 
         Response.Write("<input type=button name=bXY value=下一页 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black' LANGUAGE=javascript onclick='return ShowPage("&PAGE+1&")'> ")
     else
         Response.Write("<input type=button name=bXY value=下一页 class=TButton style='BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black ' disabled> ")    
     end if
 %>    
<input type="button" name="bGB" value="关闭" class="TButton" style="BACKGROUND-COLOR: #FFFFEF; BORDER-BOTTOM: buttonhighlight 1px solid; BORDER-LEFT: buttonhighlight 1px solid; BORDER-RIGHT: buttonhighlight 1px solid; BORDER-TOP: buttonhighlight 1px solid; COLOR: black" LANGUAGE=javascript onclick="return bGB_onclick()">
</td>
</tr>
</table>
</form>
<%Response.Write(COPYRIGHT)%>
</body>
</HTML>
⌨️ 快捷键说明

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