📄 hylb.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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 Int(Request.QueryString("target")) = 10000 then
          ret = CommandEx("327|"&Request.QueryString("HFID"))
          if GetPart(ret(0),1) = "0" then
              LMHF = ""
              for i=1 to Int(GetPart(ret(0),2))
                  if ret(i) = "" then exit for
                  LMHF = LMHF&ret(i)&"|"
              next
              Response.Write("<script>window.parent.showlb('"&LMHF&"');</script>")
          end if
          Response.End
       end if        
                
       
        if Request.QueryString("PAGE") = "" then
            PAGE = 1
        else
            PAGE = Int(Request.QueryString("PAGE"))
        end if
         
        if Request.QueryString("BER") = "" then
            BER = "1"
        else
            BER = Int(Request.QueryString("BER"))
        end if
         if Request.QueryString("LB") = "" then
            LB = "1"
        else
            LB = Int(Request.QueryString("LB"))
        end if           
        Dim ret
        
    if LB = "1" then
        if Request.QueryString("NC") <> "" then  
            if BER = "1" then
                ret = CommandEx("360|"&PAGE&"|"&Request.QueryString("NC")&"|")
            else
                ret = CommandEx("361|"&PAGE&"|"&Request.QueryString("NC")&"|")
            end if
            'Command("102|"&Request.QueryString("NC")&"文章专区")  
       else
            if BER = "1" then
                ret = CommandEx("360|"&PAGE&"|")
            else
                ret = CommandEx("361|"&PAGE&"|")
            end if
            'Command("102|"&Request.Cookies("NC")&"文章专区")  
        end if
        if GetPart(ret(0),1) <> "0" then
            ShowError 3,GetPart(ret(0),2)
            Response.End
        end if
    end if
 
   
    if LB = "2" then
        ret = CommandEx("362|"&PAGE&"|"&BER&"|")
        if GetPart(ret(0),1) <> "0" then
            ShowError 3,GetPart(ret(0),2)
            Response.End
        end if        
        'Command("102|今日最新文章专区")  
    end if
        
        if Int(GetPart(ret(0),2)) < 1 then
            TOTALPAGE = 1
        else if Int(GetPart(ret(0),2)) mod Int(Application("MYWZS")) = 0 then
                 TOTALPAGE = Int(Int(GetPart(ret(0),2))/Int(Application("MYWZS")))
             else    
                 TOTALPAGE = Int(Int(GetPart(ret(0),2))/Int(Application("MYWZS")))+1
             end if
        end if

        'SQGG = CommandEx("316|1")
        'if GetPart(SQGG(0),1) <> "0" then
        '    ShowError 1,GetPart(SQGG(0),2)
        '    Response.End
        'end if 
 
%>    
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title><%=GetPart(lt,2)%></title>
<style type="text/css">
<!--
td {  font-family: "宋体"; font-size: 12px}
body {  font-family: "宋体"; font-size: 12px}
.p9 {  font-family: "宋体"; font-size: 12px}
.p10 {  font-family: "宋体"; font-size: xx-small;COLOR:#999999}
.14{ line-height:22px;font-size:14px}
.TButton {  font-family: "宋体"; font-size: 14px;cursor:hand;HEIGHT: 20px; WIDTH: 66px}
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}
-->
</style>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
var p=0;
    q=0;
function bFH_onclick() {
    window.location.replace('ltzy.asp');
}
    
function tYS_onkeypress() {
    if (event.keyCode<45 || event.keyCode>57) {
        if (event.keyCode == 13) {
            if (tYS.value > <%=TOTALPAGE%>) {
                tYS.value = 1;
            }  
            else  {
                if (tYS.value <= 0) {
                    tYS.value = '1';
                }
            }          
            ShowPage(tYS.value);
        }
        else  {    
            event.returnValue = false;
        }    
    }   
}

function ShowYHZC()  {
    l = screen.width/2-450/2;
    t = screen.height/2-310/2;
    window.open('hyzc.asp','fHYZC','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=310,left='+l+',top='+t);
}


function ShowGRZL(nc) {  
    l = screen.width/2-500/2;
    t = screen.height/2-250/2;
    fGRZL = window.open('','fGRZL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
    fGRZL.location.replace('grzl.asp?NC='+nc);    
}    

function ShowHelp() {  
    window.open('help.asp','fHELP','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=no,left=0,top=0');
}    

function ShowPage(page)  {
    window.location.replace('hylb.asp?PAGE='+page+'&NC=<%=Request.QueryString("NC")%>&BER=<%=BER%>&LB=<%=LB%>');
}    

function SQGG() {
  fSQGG = window.open('','fSQGG','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=yes,left=1,top=1,width=600,height=400');
  fSQGG.location.replace('ggl.asp');
}

function bSS_onclick() {
      window.location.replace('hylb.asp?NC='+tNC.value+'&LB=1');
}

function zkhf(m,n) {
    p = m;
    q = n;
    lbmc = eval('hflb' + m);
    pic = eval('img' + m)
    if (lbmc.style.display == 'none') {
        lbmc.style.display = '';
        pic.src = 'images/nofile.gif';
        pic.title = '隐藏回复列表';
        if (pic.value == 0) {
            iHIDE.location.replace('hylb.asp?target=10000&HFID='+n);
        }
    }
    else {
        lbmc.style.display = 'none';
        pic.src = 'images/file.gif';
        pic.title = '展开回复列表';
    }
} 

function show(i,m) {
    window.parent.ltlb.rows = '*,240';
    window.parent.ckhf.location.replace('ckhf.asp?ID='+i+'&LTID='+m);
12 下一页
⌨️ 快捷键说明

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