adminlib.asp

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

<!--#include file="..\tools.asp"-->
<%
Dim Database


function Fun104(cmd)
    Dim Query,sql
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 NC,XB,EMAIL,CS,LY,ZY,AH,TX,GRZY,ICQ,MM,GRJS,ZCSJ,QM,ZSXM,SFZ,LXDH,ZZ,SCDL,FTS,HFS,JYZ,ML,TL,JQ from HY where NC='"&GetPart(cmd,1)&"'"
    Query.Open sql,Database,1,1
    if Query.Bof then
        Fun104 = "1|对不起，该会员不存在！"
    else
        Fun104 = "0|"&trim(Query("NC"))&"|"&Query("XB")&"|"&trim(Query("EMAIL"))&"|"&trim(Query("CS"))&"|"&trim(Query("LY"))&"|"&trim(Query("ZY"))&"|"&Query("AH")&"|"&Query("TX")&"|"&Query("GRZY")&"|"&_
                 trim(Query("ICQ"))&"|"&trim(Query("GRJS"))&"|"&trim(Query("QM"))&"|"&trim(Query("ZSXM"))&"|"&trim(Query("SFZ"))&"|"&trim(Query("LXDH"))&"|"&trim(Query("ZZ"))&"|"&trim(Query("MM"))&"|"&_
                 left(ConvertDateTime(Query("ZCSJ")),instr(ConvertDateTime(Query("ZCSJ"))," "))&"|"&ConvertDateTime(Query("SCDL"))&"|"&_
                 Query("FTS")&"|"&Query("HFS")&"|"&Query("JYZ")&"|"&Query("ML")&"|"&Query("TL")&"|"&Query("JQ")
                         
    end if
    Query.Close
    set Query = nothing
end function


function  Fun114(cmd)
    Dim Query,sql

    if (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) or (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") then
        Fun114 = "1|对不起，您不是管理员！"
        exit function
    end if
    
    if isNumeric(GetPart(cmd,1)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,1)&"' where TYPE='WZBLSJ'")
    end if
    
    if isNumeric(GetPart(cmd,2)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,2)&"' where TYPE='LYBLSJ'")
    end if    
    
    if isNumeric(GetPart(cmd,3)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,3)&"' where TYPE='附加功能' and NAME='初始金钱'")
    end if
    
    if isNumeric(GetPart(cmd,4)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,4)&"' where TYPE='推荐文章保留时间'")
    end if
    
    if isNumeric(GetPart(cmd,5)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,5)&"' where TYPE='头像上传' and NAME='经验'")
    end if
    
    if isNumeric(GetPart(cmd,6)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,6)&"' where TYPE='头像上传' and NAME='金钱'")
    end if
    
    if isNumeric(GetPart(cmd,7)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,7)&"' where TYPE='头像上传' and NAME='图片大小'")
    end if
    
    
    'set Query = Server.CreateObject("ADODB.Recordset")
    'sql = "select top 1 ID from HY where NC='"&GetPart(cmd,18)&"'"
    'Query.Open sql,Database,1,1
    'if Query.Bof then
    '    Fun114 = "1|会员不存在，管理员指定无效！"
    'else
    '    Database.Execute("update INI set VAL='"&GetPart(cmd,18)&"' where TYPE='GLY'")
    '    Application("NC") = GetPart(cmd,18)
    '    Fun114 = "0"
    'end if
    'Query.Close
    'set Query = nothing
	Fun114 = "0"
end function                  


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

function Fun117(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") and (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun117 = "1|对不起，您不是管理员！"
        exit function
    end if
    
    if (GetPart(cmd,1) = Request.Cookies("NC")) then
        Fun117 = "1|对不起，您不能删除自己！"
        exit function
    end if    
    
    Database.Execute("delete from LY where ID=(select ID from HY where NC='"&GetPart(cmd,1)&"') or NC='"&GetPart(cmd,1)&"'")
    Database.Execute("delete from HFWZ where XM='"&GetPart(cmd,1)&"'")
    Database.Execute("delete from WZ where ZZ='"&GetPart(cmd,1)&"'")
    
    Database.Execute("delete from YHZH where ID=(select ID from HY where NC='"&GetPart(cmd,1)&"')")
    Database.Execute("delete from HY where NC='"&GetPart(cmd,1)&"'")
    Database.Execute("delete from FRIEND where XM='"&GetPart(cmd,1)&"'")
    Database.Execute("delete from LMJZ where NC='"&GetPart(cmd,1)&"'")
	Database.Execute("delete from Church where Zhui='"&GetPart(cmd,1)&"' or BZhui='"&GetPart(cmd,1)&"'")
	Database.Execute("delete from sheep where NC='"&GetPart(cmd,1)&"'")
     
         
    Fun117 = "0"
end function

function Fun131(cmd)
    Dim Query,sql
    Dim i,buf
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select VAL from INI where TYPE='FILTER'"
    Query.Open sql,Database,1,1
    
    ReDim buf(Query.RecordCount)
    i = 1
    do while (not Query.Eof) and (not Query.Bof)  
        buf(i) = Query("VAL")
        Query.MoveNext
        i = i+1
    loop
    Query.Close
    set Query = nothing
    buf(0) = "0|"&(i-1)
    Fun131 = buf
end function


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

    Database.Execute("delete from INI where TYPE='FILTER' and VAL='"&GetPart(cmd,1)&"'")
    Database.Execute("insert into INI (TYPE,VAL) values ('FILTER','"&GetPart(cmd,1)&"')")
    Fun132 = "0"
end function    
        

function Fun133(cmd)
    if (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") and (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) then
        Fun133 = "1|对不起，您不是管理员！"
        exit function
    end if
    Database.Execute("delete from INI where TYPE='FILTER' and VAL='"&GetPart(cmd,1)&"'")
    Fun133 = "0"
end function    



function Fun135(cmd)
    Dim Query,sql
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 VAL from INI where TYPE='附加功能' and NAME='初始金钱'"
    Query.Open sql,Database,1,1
    Fun135 = "0|"&Query("VAL")
    Query.Close
    set Query = nothing
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 VAL from INI where TYPE='WZBLSJ'"
    Query.Open sql,Database,1,1
    Fun135 = Fun135&"|"&Query("VAL")
    Query.Close
    set Query = nothing
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 VAL from INI where TYPE='LYBLSJ'"
    Query.Open sql,Database,1,1
    Fun135 = Fun135&"|"&Query("VAL")
    Query.Close
    set Query = nothing
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 VAL from INI where TYPE='推荐文章保留时间'"
    Query.Open sql,Database,1,1
    Fun135 = Fun135&"|"&Query("VAL")
    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 ('头像上传','经验','200')")
        Fun135 = Fun135&"|200"
    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 ('头像上传','金钱','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))