📄 lyb.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="BBSLib.asp"-->
<%
    if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        ShowError 0,"对不起，您不是注册会员，没有留言箱！"
        Response.End
    end if
    
    if Request.ServerVariables("Request_Method") = "POST" then
        select case Int(Request.QueryString("ACT"))
            case 1 
                ret = Command("202|")
            case 2 
                ret = Command("203|"&Request.QueryString("XH"))    
            case else
                ret = "0"    
        end select
        if GetPart(ret,1) <> "0" then
            ShowError 1,GetPart(ret,2)
            Response.End
        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;width:66px;height:22px}
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 LANGUAGE=javascript>
window.resizeTo(screen.availWidth,screen.availHeight); 
<!--
 function  QKLYB() {
     fLYB.action = 'lyb.asp?ACT=1&PAGE=<%=PAGE%>';
     fLYB.submit();
 }
 
 function SCLY(xh) {
     fLYB.action = 'lyb.asp?ACT=2&PAGE=<%=PAGE%>&XH='+xh;
     fLYB.submit();
 }       
 
 function bGB_onclick() {
     window.close();
 }     
 
 function ShowHF(nc)  {
    l = screen.width/2-250/2;
    t = screen.height/2-200/2;
    fLY = window.open('','fLY','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=250,height=200,left='+l+',top='+t);
    fLY.location.replace('fsxx.asp?NC='+nc);
    fLY.opener = null;
 }
 
 function ShowGRZL(nc) {
    l = screen.width/2-500/2;
    t = screen.height/2-250/2;
    fGRXX = window.open('','fGRXX','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
    fGRXX.location.replace('grzl.asp?NC='+nc);
 }
 
 function ShowPage(page) {
    window.location.replace('lyb.asp?PAGE='+page);
 }    
//-->
</SCRIPT>
</HEAD>

<BODY background="images/bg.gif">
<form name="fLYB" method="POST">
<table width="95%" cellPadding=5 cellSpacing=1 align="center">
  <tr> 
    <td height="20" class="p9">
      <div align="center"><img src=images/guestbook.GIF border=0 align=absmiddle hspace="4"><b><font size=5 color=#21517B><%=Request.Cookies("NC")%>的留言本</font></b></div>
    </td>
  </tr>
</table>
<%
    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("200|"&PAGE)
    if GetPart(ret(0),1) = "0" then
        if GetPart(ret(0),2) <> "0" then
            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
        else
            TOTALPAGE = 1
        end if                
        Response.Write("<table width=100% border=0 cellspacing=1 cellpadding=5 align=center style='word-break:break-all'>")
        Response.Write("<tr><td height=20 class=p9><A href=javascript:QKLYB()>清空留言本</A></td>")
        Response.Write("<td height=20 class=p9><div align=right><img src=images/yy.gif align=absmiddle WIDTH=25 HEIGHT=16>第"&PAGE&"页 <img src=images/zys.gif align=absmiddle>总计"&TOTALPAGE&"页</div></td></tr></table>")
        Response.Write("<table width=100% border=0 cellspacing=1 cellpadding=0 align=center bgcolor=#BDD3E7>")
        Response.Write("<tr class=p9><td height=25><div align=center>")
        Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 height=100% style='word-break:break-all'>")
        Response.Write("<tr bgcolor=#BDD3E7><td width=12% class=p9><div align=center><font color=#21517B><b>留言者</b></font></div></td>")
        Response.Write("<td width=88% class=p9><div align=center></div>")
        Response.Write("<div align=center><font color=#21517B><b>留言内容</b></font>")  
        if TOTALPAGE > 1 then
            Response.Write("&nbsp;&nbsp;")
            for i=1 to TOTALPAGE 
                 
                if i = PAGE then
                    Response.Write("<B>["&i&"]</B>")
                else    
                    Response.Write("<A href=javascript:ShowPage("&i&")>["&i&"]</A>")
                end if 
            next
        end if

        Response.Write("</div></td></tr></table></div></td></tr>")
        for i=1 to UBound(ret)
            if GetPart(ret(i),2) = "" then exit for
            if i mod 2 = 0 then
                Response.Write("<tr bgcolor=#FFFFFF>")
            else
                Response.Write("<tr bgcolor=#F7F7F7>")
            end if         
            Response.Write("<td class=p9><table width=100% border=0 cellspacing=0 cellpadding=0 style='word-break:break-all'>")
            Response.Write("<tr class=p9><td width=15% ><br><div align=center><b>"&GetPart(ret(i),1)&"</b><br><img src=images/face/"&GetPart(ret(i),6)&" width=64 height=64></div><br></td>")
            Response.Write("<td width=88% ><table width=100% border=0 cellspacing=0 cellpadding=0>")
            Response.Write("<tr><td><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td class=p9 width=92% > "&IIF(GetPart(ret(i),4) = "0","<img src=images/NEW05.GIF width=30 height=15>","")&"　留言时间："&GetPart(ret(i),2)&"</td>")
            Response.Write("<td width=10% ><div align=right><A href=javascript:SCLY("&GetPart(ret(i),5)&")><img src=images/del.gif width=16 height=16 alt=删除该留言 border=0></A>&nbsp;</div></td></tr></table></td></tr>")
            Response.Write("<tr><td class=p9><HR color=#cccccc noShade SIZE=1 width=""99%""></td></tr>")
            txt = replace(GetPart(ret(i),3),Chr(13),"<BR>")
            Response.Write("<tr><td class=p9><BR>"&txt&"<BR><BR></td></tr>")
            Response.Write("<tr><td class=p9><HR color=#cccccc noShade SIZE=1 width=""99%""></td></tr>")
            Response.Write("<tr><td class=p9><img src=images/xg.gif width=16 height=16><A href=javascript:ShowHF('"&GetPart(ret(i),1)&"')>回复</A>　　　　　<img src=images/xx.gif width=16 height=16><A href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>查看"&GetPart(ret(i),1)&"的个人资料</A></td></tr>")
            Response.Write("</table></td></tr></table></td></tr>")
        next    
        Response.Write("</table>")
        Response.Write("<div align=center><table width=100% border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#BDD3E7>")
        Response.Write("<tr><td height=30 class=p9 align=center>")
        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' disabled> ") 
        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'  LANGUAGE=javascript onclick='return ShowPage("&PAGE+1&")'> ")
        end if        
        Response.Write("<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()'> ")
        Response.Write("</td></tr></table><br>")
        if TOTALPAGE > 1 then
            Response.Write("<span class=p9>")
            for i=1 to TOTALPAGE 
                if i = PAGE then
                    Response.Write("<B>["&i&"]</B>")
                else    
                    Response.Write("<A href=javascript:ShowPage("&i&")>["&i&"]</A>")
                end if 
            next
            Response.Write("</span>")
        end if
    end if               
%>
 </div>
 </form>
 <%Response.Write(COPYRIGHT)%>
</BODY>
</HTML>
⌨️ 快捷键说明

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