<%
	Dim FoundUser,UserID,UserGroupID,Integral,UserName,LastLogin
	Sql="select UserID,UserGroupID,Integral from QiQiBoy_User_Disp where UserName='"&Request.Cookies("UserName")&"' and Pwd='"&Request.Cookies("Pwd")&"'"
	Set Rs=Conn.execute(Sql)
	if not rs.eof then
		FoundUser 	= True
		UserID		= Rs(0)
		UserGroupID	= Rs(1)
		Integral	= Rs(2)
		UserName  	= Request.Cookies("UserName")
		LastLogin 	= Request.Cookies("LastLogin")
	Else
		FoundUser 	= False
	End if
%>