community_guild_request_ok.asp

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

<!--#include virtual="/common/BombConnDB.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.AddHeader "Pragma","no-cache" 
%>
<%
login_check = Request.Cookies("LOGIN")("check")
bomb_id		= trim(Request.Cookies("LOGIN")("bomb_id"))
bomb_name	= Request.Cookies("LOGIN")("bomb_name")

sql = "SELECT guild_index, guild_level FROM IB_Member WHERE UserID = '"  & bomb_id & "' "
set rs = DbCon.Execute(sql)
%>
<%
if rs.EOF or login_check = "" then%>
	<script language="javascript">
	<!--
		alert("肺弊牢阑 窍矫绊 捞侩秦 林矫扁 官而聪促.");
		history.back();
	//-->
	</script>
<%
else
	if rs("guild_index") = 0 and rs("guild_level") = 0 then
		userid = trim(request.form("id"))
		user_index = trim(request.form("index"))
		name = trim(request.form("name"))
		homepage = trim(request.form("home"))
		intro = request.form("intro")
		mark = trim(request.form("mark"))
		'response.write userid & " // " & user_index & " // " & name & " // " & homepage & " // " & intro & " // " & mark
		if userid = "" or user_index = "" or name = "" or homepage = "" or intro = "" or mark = "" then%>
			<script language="javascript">
			<!--
				alert("亲格捞 何练钦聪促.");
				history.back();
			//-->
			</script>
	<%else
			sql = "SELECT a_name FROM IB_Guild WHERE a_name = '"  & name & "' "
			set crs = DbCon.Execute(sql)
			if not crs.EOF then%>
				<script language="javascript">
				<!--
					alert("吝汗登绰 辨靛疙 '<%=crs("a_name")%>'捞(啊) 乐嚼聪促.");
					history.back();
				//-->
				</script>
		<%else
				sql = "INSERT INTO IB_Guild ( "
				sql = sql & "a_name, a_master_index, a_master, a_birthday, a_registday, a_homepage, a_intro, a_icon) "
				sql = sql & "VALUES ( "
				sql = sql & "'"& name &"', "& user_index &", '"& userid &"', '"& date() &"', '"& date() &"', '"& homepage &"', '"& intro &"', "& mark &") "
				DbCon.Execute(sql)

				sql = "SELECT a_index FROM IB_Guild WHERE a_master_index = "  & user_index & " "
				set grs = DbCon.Execute(sql)

				if not grs.EOF then
					sql = "UPDATE IB_Member SET "
					sql = sql & "guild_index = "& grs("a_index") &", "
					sql = sql & "guild_level = 0 "
					sql = sql & "WHERE UserID = '"& userid &"' AND Idx = "& user_index &" "
					DbCon.Execute(sql)%>
					<script language="javascript">
					<!--
						alert("辨靛 脚没捞 肯丰 登菌嚼聪促.");
						location.href = "community_guild_list.asp";
					//-->
					</script>
			<%else%>
					<script language="javascript">
					<!--
						alert("厚沥惑利牢 辨靛 脚没涝聪促.");
						location.href = "community_guild.asp";
					//-->
					</script>
			<%end if
			end if
		end if
	else%>
		<script language="javascript">
		<!--
			alert("捞固 促弗 辨靛俊 家加登绢 乐嚼聪促.");
			location.href = "community_guild_list.asp";
		//-->
		</script>
<%end if
end if%>