奇迹MU在线洗点ASP代码,适合所有版本


Published:   Comment: No Comments

游戏设置

奇迹MU在线洗点ASP代码,适合所有版本
QQ截图20240911183011.jpg

<!DOCTYPE html>
<html lang="en">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gbk">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>回首MU 0.97自助洗点系统</title>
    <link rel="stylesheet" href="https://cdn.staticfile.org/twitter-bootstrap/3.3.7/css/bootstrap.min.css">
    <style>
        body { background-color: #f0f0f0; color: #333; }
        form { max-width: 300px; margin: 20px auto; background: #fff; padding: 20px; border-radius: 8px; box-shadow: 0 0 10px rgba(0, 0, 0, 0.1); }
        label { display: block; margin-bottom: 5px; font-weight: bold; color: #333; }
        input { width: 100%; padding: 10px; margin-bottom: 10px; box-sizing: border-box; border: 1px solid #ccc; border-radius: 4px; }
        button { background-color: #4CAF50; color: white; padding: 10px; border: none; width: 100%; cursor: pointer; border-radius: 4px; }
        button:hover { background-color: #45a049; }
    </style>
</head>
<body>

<div class="container">
    <div class="row">
        <div class="col-md-6 col-md-offset-3 col-sm-8 col-sm-offset-2">
            <h3 class="text-center">回首MU 0.97自助洗点系统</h3>
            <form method="post" id="resetForm">
                <div class="form-group">
                    <label for="account">账号:</label>
                    <input type="text" class="form-control" name="account" id="account" placeholder="游戏账号" required>
                </div>
                <div class="form-group">
                    <label for="password">密码:</label>
                    <input type="password" class="form-control" name="password" id="password" placeholder="游戏密码" required>
                </div>
                <div class="form-group">
                    <label for="Name">名字:</label>
                    <input type="text" class="form-control" name="Name" id="Name" placeholder="角色名" required>
                </div>
                <div class="text-center">
                    <button type="submit" class="btn btn-primary">洗点</button>
                </div>
            </form>
        </div>
    </div>
</div>

<%
Dim conn, cmd, rs
Dim account, password, Name
Dim connStr

account = Request.Form("account")
password = Request.Form("password")
Name = Request.Form("Name")
    If account <> "" And password <> "" Then

connstr = "Provider=SQLOLEDB;Data Source=127.0.0.1;DATABASE=muonline97;UID=sa;pwd=123456;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT COUNT(*) FROM MEMB_INFO WHERE memb___id = '" & account & "' AND memb__pwd = '" & password & "'"
Set rs = cmd.Execute
If CInt(rs.Fields(0).Value) > 0 Then
    cmd.CommandText = "SELECT ConnectStat FROM MEMB_STAT WHERE memb___id = '" & account & "'"
    Set rs = cmd.Execute
    If CInt(rs.Fields(0).Value) = 1 Then
    Response.Write("<script>alert('洗点前请退出游戏。'); </script>")
    Else
        cmd.CommandText = "UPDATE Character SET [LevelUpPoint]=[LevelUpPoint] + Strength + Dexterity + Vitality + Energy, Strength=0, Dexterity=0, Vitality=0, Energy=0 WHERE AccountID = '" & account & "' AND Name = '" & Name & "'"
        cmd.Execute
    Response.Write("<script>alert('洗点完成!'); </script>")
    End If
Else
    Response.Write("<script>alert('账号密码不正确。'); </script>")
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Set cmd = Nothing
End If
%>
</body>
</html>

Last Modified:2024-09-11 18:30:32

我有话说