通过网站查询游戏里的积分、荣耀点、世界币

Published: Jul 1, 2024   Comment: No Comments

游戏设置 如果觉得对你有帮助，并想支持我，可以适当打赏以作勉励，点击打赏

    Dim currentPoints,currentCoins,currentGlory
    Dim querySql
    querySql = "SELECT WCoinC,WCoinP,GoblinPoint FROM CashShopData WHERE AccountID = '" & account & "'"
    Set rs = conn.Execute(querySql)
    If Not rs.EOF Then
        currentPoints = rs("WCoinC")
        currentCoins = rs("WCoinP")
        currentGlory = rs("GoblinPoint")
    End If
    rs.Close

    Response.Write "不可能，绝对不可能，公益怀旧服哪来的充值入口==^.^== <br>"
    Response.Write "当前账户:" & account & ",积分:" & currentPoints & ",世界币:" & currentCoins & ",荣耀点:" & currentGlory
    Response.End
End If