yhzlgl.asp

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

    end if

    Dim ip,str1,str2,str3,str4,num1,num2
    Dim Query,sql

    ip = GetPart(cmd,1)
	str1 = GetPartEx(ip,".",1)
	str2 = GetPartEx(ip,".",2)
	str3 = GetPartEx(ip,".",3)
	str4 = GetPartEx(ip,".",4)
    num1 = cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 COUNTRY from ADDRESS where IP1<="&num1&" and IP2>="&num1
    Query.Open sql,Database,1,1
    if not Query.Bof then
        Query.Close
        set Query = nothing
        Fun326 = "1|对不起，该IP段已存在！"
        exit function
    end if    
    Query.Close
    set Query = nothing

    ip = GetPart(cmd,2)
	str1 = GetPartEx(ip,".",1)
	str2 = GetPartEx(ip,".",2)
	str3 = GetPartEx(ip,".",3)
	str4 = GetPartEx(ip,".",4)
    num2 = cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 COUNTRY from ADDRESS where IP1<="&num2&" and IP2>="&num2
    Query.Open sql,Database,1,1
    if not Query.Bof then
        Query.Close
        set Query = nothing
        Fun326 = "1|对不起，该IP段已存在！"
        exit function
    end if    
    Query.Close
    set Query = nothing

    Database.Execute("insert into ADDRESS (IP1,IP2,COUNTRY,CITY) values ("&num1&","&num2&",'"&GetPart(cmd,3)&"','"&GetPart(cmd,4)&"')")
    Fun326 = "0"
end function    

function Fun329(cmd)
    Dim Query,sql
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select ID,XX,BZ from LMFL "&IIF(GetPart(cmd,1) <> "","where ID="&GetPart(cmd,1),"")&"  order by SJ"
    Query.Open sql,Database,1,1
    
    Dim buf
    Dim i
    ReDim buf(Query.RecordCount)
    i = 1
    do while (not Query.Eof) and (not Query.Bof)
        buf(i) = Query("ID")&"|"&trim(Query("XX"))&"|"&Query("BZ")
        i = i+1
        Query.MoveNext
    loop
    Query.Close
    set Query = nothing
    buf(0) = "0|"&UBound(buf)
    Fun329 = buf
end function        

function  Fun330(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun330 = "1|对不起，您无此权限！"
        exit function
    end if
    
    Database.Execute("update LMFL set XX='"&mid(GetPart(cmd,2),1,20)&"',BZ="&GetPart(cmd,3)&" where ID="&GetPart(cmd,1))
    Fun330 = "0"
end function
            
function Fun331(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun331 = "1|对不起，您无此权限！"
        exit function
    end if
    
    Database.Execute("insert into LMFL (XX,SJ,BZ) values ('"&mid(GetPart(cmd,1),1,20)&"','"&ConvertDateTime(now())&"',1)")
    Fun331 = "0"
end function    

function Fun332(cmd)
    Dim Query,sql

    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun332 = "1|对不起，您无此权限！"
        exit function
    end if
    
    if GetPart(cmd,1) = GetPart(cmd,2) then
        Fun332 = "1|对不起，请勿对相同栏目操作！"
        exit function
    end if
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select top 1 SJ from LMFL where ID="&GetPart(cmd,2)
    Query.Open sql,Database,1,1
    if Query.Bof then 
       Fun332 = "1|论坛不存在！"
    else
       Database.Execute("update LMFL set SJ='"&ConvertDateTime(DateAdd("s",Int(IIF(GetPart(cmd,3) = "0","-"&rd(1,60),rd(1,60))),Query("SJ")))&"' where ID="&GetPart(cmd,1))
       Fun332 = "0"
    end if
    Query.Close
    set Query = nothing
end function    
               
function Fun333(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun333 = "1|对不起，您无此权限！"
        exit function
    end if
    
    Database.Execute("update LM set ZTS="&GetPart(cmd,2)&" where ID="&GetPart(cmd,1))
    Fun333 = "0"
end function    
    
function  Fun342(cmd)
    Dim Query,sql
    
    set Query = Server.CreateObject("ADODB.Recordset")
    sql = "select * from INI where TYPE='在线合作'"
    Query.Open sql,Database,1,1
    
    Dim buf
    Dim i
    ReDim buf(Query.RecordCount)
    
    i=1 
    do while (not Query.Eof) and (not Query.Bof)
        buf(i) = Query("NAME")&"|"&Query("VAL")
        i = i+1
        Query.MoveNext
    loop
    Query.Close
    set Query = nothing
    buf(0) = "0|"&UBound(buf)
    Fun342 = buf
end function        

function  Fun343(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun343 = "1|对不起，您无此权限！"
        exit function
    end if
    Database.Execute("update INI set VAL='"&GetPart(cmd,2)&"' where TYPE='在线合作' and NAME='"&GetPart(cmd,1)&"'")
    Fun343 = "0"
end function    

function  Fun344(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun344 = "1|对不起，您无此权限！"
        exit function
    end if
    Database.Execute("delete from INI where TYPE='在线合作' and NAME='"&GetPart(cmd,1)&"'")
    Fun344 = "0"
end function    
   
function Fun345(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun345 = "1|对不起，您无此权限！"
        exit function
    end if
    
    if GetPart(cmd,1) = GetPart(cmd,2) then
        Fun345 = "1|对不起，请勿对相同栏目操作！"
        exit function
    end if
    
    Database.Execute("delete from LMFL where ID="&GetPart(cmd,2))
    Database.Execute("update LM set ZTS="&GetPart(cmd,1)&" where ZTS="&GetPart(cmd,2))
    Fun345 = "0"
    
    set Query = nothing
end function    

function  Fun346(cmd)
    if UCase(Request.Cookies("NC")) <> UCase(Application("NC")) then
        Fun346 = "1|对不起，您无此权限！"
        exit function
    end if
    if (GetPart(cmd,1) = "") or (GetPart(cmd,2) = "") then
        Fun346 = "1|对不起，信息不完整！"
        exit function
    end if     
    Database.Execute("insert into INI (TYPE,NAME,VAL) values ('在线合作','"&GetPart(cmd,1)&"','"&GetPart(cmd,2)&"')")
    Fun346 = "0"
end function    



function   Command(cmd)
Dim strlen
Dim i
    set Database = Server.CreateObject("ADODB.Connection")
    Database.Open ConnectionString,UserName,Password
    strlen = len(cmd)-(len(GetPart(cmd,1))+1)
    select case GetPart(cmd,1) 
        case "104"
            Command = Fun104(Right(cmd,strlen))
        case "114"
            Command = Fun114(Right(cmd,strlen))               
        case "116"
            Command = Fun116(Right(cmd,strlen))
        case "117"
            Command = Fun117(Right(cmd,strlen))               
        case "132"
            Command = Fun132(Right(cmd,strlen))                   
        case "133"
            Command = Fun133(Right(cmd,strlen))                   
        case "135"
            Command = Fun135(Right(cmd,strlen))                   
        case "136"
            Command = Fun136(Right(cmd,strlen))                   
        case "137"
            Command = Fun137(Right(cmd,strlen))                   
        case "308"
            Command = Fun308(Right(cmd,strlen))           
        case "309"
            Command = Fun309(Right(cmd,strlen))           
        case "324"
            Command = Fun324(Right(cmd,strlen))           
        case "325"
            Command = Fun325(Right(cmd,strlen))           
        case "326"
            Command = Fun326(Right(cmd,strlen))           
        case "330"
            Command = Fun330(Right(cmd,strlen))           
        case "331"
            Command = Fun331(Right(cmd,strlen))           
        case "332"
            Command = Fun332(Right(cmd,strlen))           
        case "333"
            Command = Fun333(Right(cmd,strlen))           
        case "343"
            Command = Fun343(Right(cmd,strlen))           
        case "344"
            Command = Fun344(Right(cmd,strlen))           
        case "345"
            Command = Fun345(Right(cmd,strlen))           
        case "346"
            Command = Fun346(Right(cmd,strlen))           
        case else
            Command = "1|无效的命令调用！"
    end select
    Database.Close
    set Database = nothing
end function


function CommandEx(cmd)
    Dim strlen
    Dim i
    set Database = Server.CreateObject("ADODB.Connection")
    Database.Open ConnectionString,UserName,Password

    strlen = len(cmd)-(len(GetPart(cmd,1))+1)
    select  case GetPart(cmd,1)
        case "131"
            CommandEx = Fun131(Right(cmd,strlen))
        case "190"
            CommandEx = Fun190(Right(cmd,strlen))
        case "320"
            CommandEx = Fun320(Right(cmd,strlen))      
        case "329"
            CommandEx = Fun329(Right(cmd,strlen))      
        case "342"
            CommandEx = Fun342(Right(cmd,strlen))      
        case else
            CommandEx = "1|无效的命令调用！"
    end select
    Database.Close
    set Database = nothing
end function  

%>