login_check.asp

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

<%Response.Expires = 0%>
<!-- #include virtual = /common/BombConnDB.asp -->
<!-- #include virtual="/common/SiteUtils.asp"		-->
<%
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
%>