yhzlgl.asp

宁波娱乐在线城市,丰富的内容版块

    if Query.Bof then
        Database.Execute("insert into INI (TYPE,NAME,VAL) values ('头像上传','金钱','50')")
        Fun135 = Fun135&"|50"
    else
        Fun135 = Fun135&"|"&Query("VAL")
    end if
    Query.Close
    set Query = nothing
  
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 VAL from INI where TYPE='头像上传' and NAME='图片大小'"
    Query.Open sql,Database,1,1
    if Query.Bof then
        Database.Execute("insert into INI (TYPE,NAME,VAL) values ('头像上传','图片大小','10')")
        Fun135 = Fun135&"|10"
    else
        Fun135 = Fun135&"|"&Query("VAL")
    end if
    Query.Close
    set Query = nothing
    
    
end function    


function Fun136(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") and (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun136 = "1|对不起，您不是管理员！"
        exit function
    end if

    Database.Execute("update HY set JYZ="&GetPart(cmd,1)&",TL="&GetPart(cmd,2)&",ML="&GetPart(cmd,3)&",JQ="&GetPart(cmd,4)&" where NC='"&GetPart(cmd,5)&"'")
    Database.Execute("update HY set TL=100 where TL>100")
    Fun136 = "0|"
end function    

function Fun137(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") and (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun137 = "1|对不起，您不是管理员！"
        exit function
    end if
    
    Database.Execute("update LM set ZT=0 where ZT<>2 and ID="&GetPart(cmd,1))
    Fun137 = "0"
end function    

function Fun190(cmd)
    Dim buf(20)
    Dim Query,sql,sqn
    Dim page
    
    set Query = Server.CreateObject("ADODB.Recordset")


    if GetPart(cmd,1) = "" then 
        page = 1
    else
        page = Int(GetPart(cmd,1))
    end if
    
    select case GetPart(cmd,2)
        case "0" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY"
        case "1" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 10000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 10000"
        case "2" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 7000 and JYZ < 10000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 7000 and JYZ < 10000"
        case "3" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 5000 and JYZ < 7000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 5000 and JYZ < 7000"
        case "4" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 4000 and JYZ < 5000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 4000 and JYZ < 5000"
        case "5" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 3000 and JYZ < 4000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 3000 and JYZ < 4000"
        case "6" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 2000 and JYZ < 3000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 2000 and JYZ < 3000"
        case "7" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 1000 and JYZ < 2000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 1000 and JYZ < 2000"
        case "8" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 500 and JYZ < 1000 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 500 and JYZ < 1000"
		case "9" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ >= 100 and JYZ < 500 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ >= 100 and JYZ < 500"
		case "10" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML > 0 and JYZ < 100 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML > 0 and JYZ < 100"
        case "11" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where ML < 0 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where ML < 0"
        case "12" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where XB = 0 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where XB = 0"
        case "13" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where XB = 1 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where XB = 1"
        case "14" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where XB = 2 order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where XB = 2"
  
        case "15" 
            if SQLServer = "0" then
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where SCDL <= DATEADD('d',-30,'"&ConvertDateTime(now())&"') order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where SCDL <= DATEADD('d',-30,'"&ConvertDateTime(now())&"')"
            else 
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 30 order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 30"
            end if
        case "16" 
            if SQLServer = "0" then
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where SCDL <= DATEADD('d',-90,'"&ConvertDateTime(now())&"') order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where SCDL <= DATEADD('d',-90,'"&ConvertDateTime(now())&"')"
            else 
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 90 order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 90"
            end if
        case "17" 
            if SQLServer = "0" then
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where SCDL <= DATEADD('d',-180,'"&ConvertDateTime(now())&"') order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where SCDL <= DATEADD('d',-180,'"&ConvertDateTime(now())&"')"
            else 
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 180 order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 180"
            end if
        case "18"
            if SQLServer = "0" then
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where SCDL <= DATEADD('d',-365,'"&ConvertDateTime(now())&"') order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where SCDL <= DATEADD('d',-365,'"&ConvertDateTime(now())&"')"
            else 
                sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 365 order by ID desc"
                sqn = "select COUNT(ID) AS SL from HY where DATEDIFF(dd,SCDL,'"&ConvertDateTime(now())&"') <= 365"
            end if
        case "19" 
            sql = "select top "&page*20&" NC,XB,MM,ZCSJ,SCDL,JYZ,ML,JQ from HY where NC='"&GetPart(cmd,3)&"'order by ID desc"
            sqn = "select COUNT(ID) AS SL from HY where NC='"&GetPart(cmd,3)&"'"
    end select

    Query.Open sql,Database,1,1
    
    if Query.Bof then
        buf(0) = "0|0|0"
        Fun190 = buf
        Query.Close
        set Query = nothing
        exit function
    end if
    
    if not Query.Bof then
        Query.Move (page-1)*20 
        for i=1 to 20
            if Query.Eof then
                exit for
            end if    
            buf(i) = trim(Query("NC"))&"|"&Query("XB")&"|"&trim(Query("MM"))&"|"&left(ConvertDateTime(Query("ZCSJ")),instr(ConvertDateTime(Query("ZCSJ"))," "))&"|"&left(ConvertDateTime(Query("SCDL")),instr(ConvertDateTime(Query("SCDL"))," "))&"|"&Query("JYZ")&"|"&Query("ML")&"|"&Query("JQ")
            Query.MoveNext
        next
    end if 
    Query.Close
  
    Query.Open sqn,Database,1,1
 
        buf(0) = "0|"&Query("SL")&"|"&UBound(buf)

    Query.Close
    set Query = nothing
        
    Fun190 = buf

end function

function  Fun308(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") or (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun308 = "1|对不起，您不是管理员！"
        exit function
    end if
    Database.Execute("delete from LM where ID="&GetPart(cmd,1))
    Database.Execute("delete from WZ where SSLM="&GetPart(cmd,1))
    Database.Execute("delete from LMJZ where ID="&GetPart(cmd,1))
    
    Fun308 = "0"
end function             

function  Fun309(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") or (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun309 = "1|对不起，您不是管理员！"
        exit function
    end if
    
    Database.Execute("update LM set ZT=3 where ID="&GetPart(cmd,1))
    Fun309 = "0"
end function    

function Fun320(cmd)
    Dim Query,sql
    Dim buf,i
    
    set Query = Server.CreateObject("ADODB.Recordset")
    if GetPart(cmd,2) = "1" then
        sql = "select ID,MC from LM where ZTS="&IIF(GetPart(cmd,1)="","1",GetPart(cmd,1))&" order by CJSJ "
    else    
        sql = "select ID,MC,JS,BZ,FBZ1,FBZ2,FBZ3,FBZ4,FWS,ZJFBSJ,ZJFB,ZT,(select COUNT(ID) from WZ where SSLM=LM.ID) AS ZTSL from LM where ZTS="&IIF(GetPart(cmd,1)="","1",GetPart(cmd,1))&" order by CJSJ "
    end if    
    Query.Open sql,Database,1,1

    if Query.Bof then
        ReDim buf(0)
        buf(0) = "0|0"
        Fun320 = buf
        Query.Close
        set Query = nothing
        exit function
    end if    
       
    ReDim buf(Query.RecordCount)
   
    i = 1
    if GetPart(cmd,2) = "1" then
        do while (not Query.Eof) and (not Query.Bof) 
            buf(i) = Query("ID")&"|"&trim(Query("MC"))
            Query.MoveNext
            i = i+1
        loop
    else 
        do while (not Query.Eof) and (not Query.Bof) 
            buf(i) = Query("ID")&"|"&trim(Query("MC"))&"|"&trim(Query("JS"))&"|"&trim(Query("BZ"))&" "&trim(Query("FBZ1"))&" "&trim(Query("FBZ2"))&" "&trim(Query("FBZ3"))&" "&trim(Query("FBZ4"))&"|"&Query("ZTSL")&"|"&Query("FWS")&"|"&ConvertDateTime(Query("ZJFBSJ"))&"|"&trim(Query("ZJFB"))&"|"&Query("ZT")
            Query.MoveNext
            i = i+1
        loop
    end if    
    Query.Close
    set Query = nothing
    buf(0) = "0"&"|"&UBound(buf)
    Fun320 = buf 
end function    
    

function Fun324(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun324 = "1|对不起，您无此权限！"
        exit function
    end if
    if GetPart(cmd,1) = GetPart(cmd,2) then
        Fun324 = "1|对不起，不可以合并相同论坛！"
        exit function
    end if
    
    Database.Execute("update WZ set SSLM="&GetPart(cmd,1)&" where SSLM="&GetPart(cmd,2))
    Database.Execute("delete from LM where ID="&GetPart(cmd,2))
    
    Fun324 = "0"
end function        

function Fun325(cmd)
    Dim Query,sql
    
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun325 = "1|对不起，您无此权限！"
        exit function
    end if
    if GetPart(cmd,1) = GetPart(cmd,2) then
        Fun325 = "1|对不起，请勿对相同论坛操作！"
        exit function
    end if
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 CJSJ from LM where ID="&GetPart(cmd,2)
    Query.Open sql,Database,1,1
    if Query.Bof then 
       Fun325 = "1|论坛不存在！"
    else
       Database.Execute("update LM set CJSJ='"&ConvertDateTime(DateAdd("s",Int(IIF(GetPart(cmd,3) = "0","-"&rd(1,60),rd(1,60))),Query("CJSJ")))&"' where ID="&GetPart(cmd,1))
       Fun325 = "0"
    end if
    Query.Close        
    set Query = nothing
end function    

function  Fun326(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun325 = "1|对不起，您无此权限！"
        exit function