<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->
<%
Auto_Login2()

dim tRS,tArg,tValue
if Request.QueryString("ac")="getinfo" then 
	set tRS = GUInfoRS
	tArg = Split(Request.QueryString("Arg"),"|")
	tValue = Split(Request.QueryString("Value"),"|")
	for i=0 to ubound(tArg)
		Rw tArg(i)&"='"&tRS(tValue(i))&"';"
	next
	Rend
end if

if Request.QueryString("ac")="getuserclass" then 
	set tRS = GUClassInfoRS
	tArg = Split(Request.QueryString("Arg"),"|")
	tValue = Split(Request.QueryString("Value"),"|")
	for i=0 to ubound(tArg)
		Rw tArg(i)&"='"&tRS(tValue(i))&"';"
	next
	Rend
end if

if Request.QueryString("ac")="getpayclass" then 
	set tRS = GPayClassInfoRS
	tArg = Split(Request.QueryString("Arg"),"|")
	tValue = Split(Request.QueryString("Value"),"|")
	for i=0 to ubound(tArg)
		Rw tArg(i)&"='"&tRS(tValue(i))&"';"
	next
	Rend
end if

if Request.QueryString("ac")="getincomeclass" then 
	set tRS = GIncomeClassInfoRS
	tArg = Split(Request.QueryString("Arg"),"|")
	tValue = Split(Request.QueryString("Value"),"|")
	for i=0 to ubound(tArg)
		Rw tArg(i)&"='"&tRS(tValue(i))&"';"
	next
	Rend
end if

if Session(Session_UserID_Arg)<>"" then
	Rw "iInfo.IsLogin=true;"
	Rw "iInfo.UserID='"&Session(Session_UserID_Arg)&"';"
	Rw "iInfo.RoomID='"&Session(Session_RoomID_Arg)&"';"
	Rw "iInfo.UserNickName='"&Session(Session_UserNickName_Arg)&"';"
	Rw "iInfo.FacePic='"&Session(Session_UserFace_Arg)&"';"
	Rw "iInfo.LevelClass='"&Session(Session_UserPaymentLevel_Arg)&"';"
	Rw "iInfo.InComeClass='"&Session(Session_UserIncomeLevel_Arg)&"';"
	Rw "iInfo.LoginTime='"&Session(Session_LogTime_Arg)&"';"
	Rw "iInfo.LoginIP='"&Session(Session_LogIP_Arg)&"';"
	Rw "iInfo.MoneyNum='"&GUInfo("i_User_Money")&"';"
end if
Rend

%>