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

源代码在线查看: community_guild_modify_ok.asp

软件大小: 3830 K
上传用户: lujing200912345
关键词: 服务端
下载地址: 免注册下载 普通下载 VIP

相关代码

				
								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 idx, guild_index, guild_level FROM IB_Member WHERE UserID = '"  & bomb_id & "' "
				set rs = DbCon.Execute(sql)
				%>
								if rs.EOF or login_check = "" then%>
					
											alert("肺弊牢阑 窍矫绊 捞侩秦 林矫扁 官而聪促.");
						history.back();
					//-->
					
								else
					index = request("guild_index")
					%>
										sql = "SELECT * FROM IB_Guild "
					sql = sql & " WHERE a_index = "& index &" "
					set grs = DbCon.Execute (sql)
				
					if not grs.EOF then
						if (rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 0) or (rs("idx") = grs("a_master_index") and rs("guild_index") = grs("a_index") and rs("guild_level") = 10) then
							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 name = "" or homepage = "" or intro = "" or mark = "" then%>
								
																	alert("亲格捞 何练钦聪促.");
									history.back();
								//-->
								
														sql = "Select a_name FROM IB_Guild WHERE a_name = '"  & name & "' AND a_index != " & index & " "
								set crs = DbCon.Execute(sql)
								if not crs.EOF then%>
									
																			alert("吝汗登绰 辨靛疙 ''捞(啊) 乐嚼聪促.");
										history.back();
									//-->
									
																sql = "UPDATE IB_Guild SET "
									sql = sql & "a_name = '"& name &"', "
									sql = sql & "a_homepage = '"& homepage &"', "
									sql = sql & "a_intro = '"& intro &"', "
									sql = sql & "a_icon = "& mark &" "
									sql = sql & "WHERE a_index = "& index &" "
									DbCon.Execute(sql)%>
									
																			alert("辨靛 沥焊 函版捞 肯丰 登菌嚼聪促.");
										location.href = "community_guild_view.asp?index=";
									//-->
									
														end if
						else%>
							
															alert("辨靛 付胶磐父捞 函版且 荐 乐嚼聪促!!!");
								location.href = "community_guild_list.asp";
							//-->
							
										end if
				end if%>			

相关资源