guild_modify_ok.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/admin/admin_head.asp" -->

<%
index = request("index")
enable = request("enable") ' 0 : 企尖, 1 : 沥惑, 2 : 喉钒, 3 : 脚没吝(啊铰牢)

sql = "UPDATE IB_Guild SET "
sql = sql & "a_enable = "& enable &" "
sql = sql & "WHERE a_index = "& index &" "
DbCon.Execute(sql)%>

<%
'企尖, 脚没, 沥惑栏肺 诀单捞飘矫 辨靛 enable 诀单捞飘 窍备 雀盔 抛捞喉 辨靛 沥焊 诀单捞飘
'喉钒矫俊绰 备成 忱狄.
if enable <> 2 then
	sql = "SELECT a_index, a_master, a_master_index FROM IB_Guild "
	sql = sql & " WHERE a_index = "& index &" "
	set grs = DbCon.Execute (sql)

	if enable = 0 then ' 企尖矫 葛电 辨靛盔甸 辨靛 沥焊 昏力 (眠饶 汗备绰 辨付父 啊瓷)
		sql = "UPDATE IB_MEMBER SET "
		sql = sql & "guild_index = 0, "
		sql = sql & "guild_level = 0 "
		sql = sql & "WHERE guild_index = "& grs("a_index") &" "
		DbCon.Execute(sql)
	elseif enable = 1 then ' 沥惑栏肺 汗备矫 辨付 沥焊父 汗备 (喉钒俊辑 汗备矫浚 秦寸绝澜.)
		sql = "UPDATE IB_MEMBER SET "
		sql = sql & "guild_index = "& grs("a_index") &", "
		sql = sql & "guild_level = 10 "
		sql = sql & "WHERE Idx = "& grs("a_master_index") &" AND UserID = '"& grs("a_master") &"' "
		DbCon.Execute(sql)
	elseif enable = 3 then ' 脚没吝栏肺 函版矫 (芭狼 镜老捞 绝摆瘤父 趣矫唱 窍绰 付澜俊...ぱ.ぱ) 沥惑苞 付蛮啊瘤风 辨付(脚没磊)父 函版.
		sql = "UPDATE IB_MEMBER SET "
		sql = sql & "guild_index = "& grs("a_index") &", "
		sql = sql & "guild_level = 0 "
		sql = sql & "WHERE Idx = "& grs("a_master_index") &" AND UserID = '"& grs("a_master") &"' "
		DbCon.Execute(sql)
	end if
end if
%>


<script language="javascript">
<!--
	alert("辨靛 沥焊 函版捞 肯丰 登菌嚼聪促.");
	location.href = "guild_view.asp?index=<%=index%>";
//-->
</script>
<!-- #include virtual="/admin/admin_bottom.asp" -->