奇迹MU在线洗点ASP代码,适合所有版本
Published: Comment: No Comments
Last Modified:2024-09-11 18:30:32
奇迹MU在线洗点ASP代码,适合所有版本
<!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>