<%
'**************************************
'* 最后更新 2013-04-24 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim strFile,UserLogin_user_jifen,Temp_UserLogin,UserLogin_user_money,styletype
strFile = Eshop_url& Style_Folder &"Lebi.UserLogin."
styletype = request("styletype")
If Not IsNumeric(styletype) Or Isempty(styletype) Then styletype = 0
Dim LoadUserLogin
if Lebi_UserId <> "" Then
		set Rs = conn.execute("select usermoney,jifen from [Lebi_user] where user_id='"& Lebi_UserId &"'")
		UserLogin_user_money = rs(0)
		UserLogin_user_jifen = formatnumber2(rs(1)/moneyhl)
		rs.close : Set rs = Nothing
		Dim rs1,re
		set rs1=conn.execute("select top 1 id,ifview from [Lebi_message] where to_user='"& Lebi_UserId &"' order by id desc")
		if not(rs1.eof And rs1.bof) Then
				do while not rs1.eof
				If rs1("ifview")=0 Then
						re=" <a href="& Eshop_url & PagePath(0) &"?action=writemsg&action1=read&msgid="&rs1("id")&"><img src='"&Eshop_url&"images/m_news.gif' title='"&Lebi_user(16)&"' border='0'></a><bgsound src='"&Eshop_url&"images/mail.wav' loop='1'>"
				Else
						re="<img src='"&Eshop_url&"images/m_olds.gif' title='"&Lebi_user(17)&"'>"
				End If
				rs1.movenext
				Loop
		End If
		rs1.close:set rs1=Nothing
		If styletype = 0 Then
				LoadUserLogin = splits(LoadStyle(strFile&"1.style"))
		Else
				LoadUserLogin = splits(LoadStyle(strFile&"3.style"))
		End If
		ReplaceStyle "user_money",formatnumber2(UserLogin_user_money/moneyhl),LoadUserLogin
		ReplaceStyle "grade_ico",getGradePurview(18),LoadUserLogin
		ReplaceStyle "user_score",UserLogin_user_jifen,LoadUserLogin
		ReplaceStyle "user_msg",re,LoadUserLogin
		Temp_UserLogin = Temp_UserLogin & LoadUserLogin
Else
		If styletype = 0 Then
				LoadUserLogin = splits(LoadStyle(strFile&"0.style"))
		Else
				LoadUserLogin = splits(LoadStyle(strFile&"2.style"))
		End If
		ReplaceStyle "isCheckCode",CInt(Config_Lebi_Eshop(12)),LoadUserLogin
		Temp_UserLogin = Temp_UserLogin & LoadUserLogin
End If
response.write htmltojs(Temp_UserLogin)
%>