yhzlgl.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='FTTL'")
        Application("FTTL") = Int(GetPart(cmd,1))
    end if
        
    if isNumeric(GetPart(cmd,2)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,2)&"' where TYPE='HFTL'")
        Application("HFTL") = Int(GetPart(cmd,2))
    end if
            
    if isNumeric(GetPart(cmd,3)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,3)&"' where TYPE='LYTL'")
        Application("LYTL") = Int(GetPart(cmd,3))
    end if
    
    if isNumeric(GetPart(cmd,4)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,4)&"' where TYPE='FTML'")
        Application("FTML") = Int(GetPart(cmd,4))
    end if
    
    if isNumeric(GetPart(cmd,5))  then
        Database.Execute("update INI set VAL='"&GetPart(cmd,5)&"' where TYPE='HFML'")
        Application("HFML") = Int(GetPart(cmd,5))
    end if

    if isNumeric(GetPart(cmd,6))  then
        Database.Execute("update INI set VAL='"&GetPart(cmd,6)&"' where TYPE='STML'")
        Application("STML") = Int(GetPart(cmd,6))
    end if

    if isNumeric(GetPart(cmd,7))  then
        Database.Execute("update INI set VAL='"&GetPart(cmd,7)&"' where TYPE='FTJQ'")
        Application("FTJQ") = Int(GetPart(cmd,7))
    end if
    
    if isNumeric(GetPart(cmd,8)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,8)&"' where TYPE='HFJQ'")
        Application("HFJQ") = Int(GetPart(cmd,8))
    end if
    
    if isNumeric(GetPart(cmd,9)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,9)&"' where TYPE='FTJY'")
        Application("FTJY") = Int(GetPart(cmd,9))
    end if

    if isNumeric(GetPart(cmd,10)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,10)&"' where TYPE='HFJY'")
        Application("HFJY") = Int(GetPart(cmd,10))
    end if

    if isNumeric(GetPart(cmd,11)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,11)&"' where TYPE='TLJY'")
        Application("TLJY") = Int(GetPart(cmd,11))
    end if
    
    if isNumeric(GetPart(cmd,12)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,12)&"' where TYPE='FTZSTL'")
        Application("FTZSTL") = Int(GetPart(cmd,12))
    end if

    if isNumeric(GetPart(cmd,13)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,13)&"' where TYPE='HFZSTL'")
        Application("HFZSTL") = Int(GetPart(cmd,13))
    end if

    if isNumeric(GetPart(cmd,14)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,14)&"' where TYPE='FTZSML'")
        Application("FTZSML") = Int(GetPart(cmd,14))
    end if
    
    Database.Execute("update INI set VAL='"&GetPart(cmd,15)&"' where TYPE='LMSQ'")
    Application("LMSQ") = Int(GetPart(cmd,15))
    
    if isNumeric(GetPart(cmd,16)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,16)&"' where TYPE='MYLMS'")
        Application("MYLMS") = Int(GetPart(cmd,16))
    end if
    
    if isNumeric(GetPart(cmd,17)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,17)&"' where TYPE='MYWZS'")
        Application("MYWZS") = Int(GetPart(cmd,17))
    end if
    
    if isNumeric(GetPart(cmd,19)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,19)&"' where TYPE='WZBLSJ'")
    end if
    
    if isNumeric(GetPart(cmd,20)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,20)&"' where TYPE='LYBLSJ'")
    end if    
    
    if isNumeric(GetPart(cmd,21)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,21)&"' where TYPE='附加功能' and NAME='初始金钱'")
    end if
    
    if isNumeric(GetPart(cmd,22)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,22)&"' where TYPE='推荐文章保留时间'")
    end if
    
    if isNumeric(GetPart(cmd,23)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,23)&"' where TYPE='头像上传' and NAME='经验'")
    end if
    
    if isNumeric(GetPart(cmd,24)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,24)&"' where TYPE='头像上传' and NAME='金钱'")
    end if
    
    if isNumeric(GetPart(cmd,25)) then
        Database.Execute("update INI set VAL='"&GetPart(cmd,25)&"' 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
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 G_LOG where NC='"&GetPart(cmd,1)&"'")
    Database.Execute("delete from C_JZ 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)&"'")
     
         
    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