user_checklogin_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 59 行

<%
	dim rs,Username,Password,verifyCode,ReturnUrl,TimeNow,levelID
	'dim SPageUrl,LeftUrl,RightUrl
	dim UserText
	
	Username = sqlchg(Request("User"))
	Password = md5(sqlchg(Request("Pass")))
	verifyCode = sqlchg(Request("verifyCode"))
	ReturnUrl = Request.Servervariables("http_referer")
	TimeNow = now()
	
	'读提示
	dim alertinfo
	alertinfo = shop.connectXml(XML,"/language/alert")

	if Cstr(verifyCode) <> Cstr(session("verifyCode")) then
		Response.Write("<script language='javascript'>alert('"&alertinfo(0)&"');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	'detailPro = shop.DBClass(detailquery)
	
	User = shop.DBClass("Select u.UserName,l.LevelName,l.LevelNum,l.LevelJifen,u.UserJifen from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where u.Username='"&Username&"' and Username <> '管理员' and u.UserPass='"&Password&"'")
	if ArrayNum <> -1 then
		'给会员重新分配级别
		UserText = shop.DBClass("Select LevelOrder from [Level] where levelJifen <= "&User(4,0)&" order by levelOrder desc")
		levelID = UserText(0,0)
		'改数据
		call shop.DBExecute("Update [User] set UserLogin = UserLogin + 1,UserLoginDate='"&TimeNow&"',UserFlag='"&levelID&"' where Username = '"&Username&"'")
		'验证成功
		'清SESSION
		Session("UserName") = ""
		Session("LevelName") = ""
		Session("LevelNum") = ""
		Session("LevelJifen") = ""
		Session("ProductList") = ""
		'写SESSION
		Session("Username") = User(0,0)
		Session("LevelName") = User(1,0)
		Session("LevelNum") = User(2,0)
		Session("LevelJifen") = User(3,0)
		
		Session.Timeout = 30
		'如果购物车里面有商品
		if Request.Cookies("ProductNum") <> "" and Request.Cookies("ProductNum") <> 0 then
			Response.Cookies("ProductPrice") = Cint(Request.Cookies("ProductPrice")*User(2,0)/100)
		end if
		
		dim loginInfo
		loginInfo = shop.connectXml(XML,"/language/login")
		Response.Write(loginInfo(0))
		Response.Write("<script language='javascript'>window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	else
		'验证失败
		Response.Write("<script language='javascript'>alert('"&alertinfo(1)&"');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
%>