shoplib.asp

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

<!--#include file="../../tools.asp"-->
<%

Dim Database

function Fun102(cmd)
    Database.Execute("update ZXRY set WZ='"&GetPart(cmd,1)&"' where ID="&Request.Cookies("ID"))
    Fun102 = "0"
end function


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 Fun125(cmd)
    if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        ReDim buf(0)
        Fun125 = "1|"
        exit function
    end if    

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


function Fun204(cmd)
    if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        Fun204 = "1|你不是注册会员，无法送礼！"
        exit function
    end if    
    
    Database.Execute("insert into LY (NC,ID,NR,ZT,SJ,LB) values ('"&GetPart(cmd,1)&"',"&Request.Cookies("ID")&","&"'"&midb(GetPart(cmd,2),1,500)&"',0,'"&ConvertDateTime(Now())&"',1)") 
    Database.Execute("update HY set ML=ML+"&GetPart(cmd,3)&" where NC='"&GetPart(cmd,1)&"'")
        
    Fun204 = "0"
end function



function   Command(cmd)
    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 "102"
            Command = Fun102(Right(cmd,strlen))
        case "104"
            Command = Fun104(Right(cmd,strlen))
        case "125"
            Command = Fun125(Right(cmd,strlen))
        case "204"
            Command = Fun204(Right(cmd,strlen))
          case else
            Command = "1|无效的命令调用！"
    end select
    Database.Close
    set Database = nothing
end function

%>