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

源代码在线查看: login_check.asp

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

相关代码

				
				
				
								pre_url = request("pre_url")
				pre_url2 = Request.ServerVariables("HTTP_REFERER")
				if (pre_url = "") then
					pre_url = pre_url2
				end if
				idx_value = request("idx_value")
				partner = trim(Request("partner"))
				ip = Request.ServerVariables ("REMOTE_ADDR")
				
				url_check = "F"
				if (InStr(pre_url2, "bomb") > 0) then url_check = "T"
				if (InStr(pre_url2, "127.0.0.1") > 0) then url_check = "T"
				
				
				if url_check="T" then 
					user_id = request.form("userid")
					user_pw = request.form("userpw")
				else
					response.redirect ("/main.asp")
				end if 
				
				sql = "SELECT Idx, UserID, Name, Email FROM IB_Member "
				sql = sql & "WHERE UserID='" & user_id & "' "
				sql = sql & "AND UserPWD='" & user_pw & "' "
				set rs = DBCon.Execute (sql)
				
				if rs.EOF then
					logincheck = "F"
				else
					logincheck = "T"
				end if
				
				if logincheck = "T" then 
				
					Response.Cookies("LOGIN")("check") = "true"
					Response.Cookies("LOGIN")("bomb_id")   = rs("UserID")
					Response.Cookies("LOGIN")("bomb_index") = rs("Idx")
					Response.Cookies("LOGIN")("bomb_name") = rs("Name")
					Response.Cookies("LOGIN")("bomb_email") = rs("Email")
				
					if (rs("UserID") = "rd52099") then
						pre_url = "/admin/admin.asp"
					end if
				
					response.write(pre_url)
					response.Redirect (pre_url)
				
				else
					call PageBack("雀盔沥焊啊 老摹窍瘤 臼芭唱 酒捞叼甫 荤侩且 荐 绝绰 惑怕涝聪促..\n\n促矫 茄锅 犬牢窍矫绊 肺弊牢秦林技夸.")
				end if
				%>
							

相关资源