<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../Task/TaskConfig.asp"-->
<!--#include file="../HSK_Cls/HSK.MemberCls.asp"-->
<!--#include file="../Plus/md5.asp"-->
<!--#include file="Base64.asp"-->
<%
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.Charset = "GB2312"
Response.Addheader "Content-Type","text/html; charset=gb2312" 

Dim HSKCls
Set HSKCls = New UserInfo
HSKCls.Run()
Set HSKCls = Nothing

Class UserInfo
	Private KS
	Private KSUser,Action
	Private Sub Class_Initialize()
		Set KS=New PublicCls
		Set KSUser = New UserCls
		Session(KS.SiteSN & "UserInfo") = Empty
	End Sub
	Private Sub Class_Terminate()
		Call CloseConn()
		Set KS=Nothing
		Set KSUser=Nothing
	End Sub
	Public Sub Run()
		Action=KS.S("Action")
	
		If KSUser.UserLoginChecked = False Or KS.IsNul(KS.C("HelperName")) Then
			KS.Die "[结果]尚未登录或登录超时[/结果]"
			Exit Sub
		End If
	%>
<html>
<head>
<title>会员信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" type="text/css" rel="stylesheet" />
</head>

<body>

<SCRIPT language=JavaScript>
<!--
function click(e) {
	if (document.all) {
		if (event.button==2||event.button==3) {oncontextmenu='return false';}
		if (event.shiftKey) {alert('请不要按住Shift键！');return false;}	
	}
	if (document.layers) {
		if (e.which == 3) {oncontextmenu='return false';}
	}
}
if (document.layers) {document.captureEvents(Event.MOUSEDOWN);}
document.onmouseup=click;
document.oncontextmenu = new Function("return false;");
document.onselectstart= new Function("return false;");
// -->
</SCRIPT>
<div style="height:321px; overflow:auto">
<table align="center" style="margin-top:5px;" width="80%" border="0" cellspacing="3" cellpadding="0">
<tr>
  <td align="left">用户名： <span class="red"><%=KSUser.UserName%></span> &nbsp; <%
If KS.ChkClng(KSUser.GetUserInfo("KS_IDAuthentication"))=1 Then
	KS.Echo "<img src=""/style/images/mobile_1.gif"" align=""absmiddle"" title=""已通过手机认证"" />"
Else
	KS.Echo "<img src=""/style/images/mobile_2.gif"" align=""absmiddle"" title=""未通过手机认证"" />"
End IF
KS.Echo " &nbsp; " & GetVipIco(KSUser.GroupID)
%></td></tr>
<tr>
  <td><span style="display:inline-block; float:left">账户余额： <span class="orange"><%=KS.GetN(KSUser.GetUserInfo("Money"),2)%></span> 元</span><span style="display:inline-block; float:right"><a href="/User/User_Transfer.asp" target="_blank"><img src="/style/images/chongzhi.gif" alt="" border="0" align="absmiddle" /></a></span></td></tr>
<tr>
  <td><span style="display:inline-block; float:left">可用收藏点： <span class="orange"><%=KS.GetN(KSUser.GetUserInfo("KS_CollectPoint"),3)%></span> 点</span><span style="display:inline-block; float:right"><a href="/user/user_exchange.asp?Action=Money" target="_blank"><img src="/style/images/duihuan.gif" border="0" align="absmiddle" /></a></span></td></tr>
<tr>
  <td>可用流量点： <span class="orange"><%=KS.GetN(KSUser.GetUserInfo("KS_FlowPoint"),4)%></span> 点</td></tr>
<tr>
  <td>你共发布收藏任务： <span class="orange"><%=KSUser.GetUserInfo("KS_FaBuCollectCount")%></span> 个</td></tr>
<tr>
  <td>你共发布流量任务： <span class="orange"><%=KSUser.GetUserInfo("KS_FaBuFlowCount")%></span> 个</td></tr>
<tr>
  <td>你共收藏他人任务： <span class="orange"><%=KSUser.GetUserInfo("KS_JieShouCollectCount")%></span> 个</td></tr>
<tr>
  <td>你共浏览他人任务： <span class="orange"><%=KSUser.GetUserInfo("KS_JieShouFlowCount")%></span> 个</td></tr>
<tr>
  <td>今日收藏他人任务： <span title="店铺收藏数量" class="orange"><%=Conn.Execute("SELECT Count(ID) FROM CollectJie Where UserName= '" & KSUser.UserName & "' And CollectType = 1 And Status = 1 And DateDiff(d, AddDate, GetDate()) = 0")(0)%></span> / <span title="商品收藏数量" class="orange"><%=Conn.Execute("SELECT Count(ID) FROM CollectJie Where UserName= '" & KSUser.UserName & "' And CollectType = 2 And Status = 1 And DateDiff(d, AddDate, GetDate()) = 0")(0)%></span> 个</td></tr>
<tr>
  <td>今日浏览他人任务： <span class="orange"><%=Conn.Execute("SELECT Count(ID) FROM FlowJie Where UserName= '" & KSUser.UserName & "' And Status = 1 And DateDiff(d, AddDate, GetDate()) = 0")(0)%></span> 个</td></tr>
<tr>
  <td>你共有可用收藏小号： <span class="orange"><%=Conn.Execute("Select Count(ID) From MaiMaiUser Where UserName='" & KSUser.UserName & "' And Tid='20100598989251' And AccountType=1 And IsDel=0 And IsCollect=1")(0)%></span> 个</td></tr>
<tr>
  <td>待阅站内短信： <a href="/User/User_Message.asp?action=inbox" target="_blank"><span class="red"><%=Conn.Execute("Select Count(ID) From KS_Message Where Incept='" & KSUser.UserName &"' And Flag=0 and IsSend=1 and delR=0")(0)%></span></a> 条</td></tr>
<tr>
  <td align="center" height="36"><a href="?Action=Refresh" class="button_2" hidefocus="true">刷 新</a> <a href="<%=KS.GetDomain%>User/UserLogout.asp" class="button_2" hidefocus="true">注 销</a></td></tr>
</table>
</div>
<!--
<%
If Action = "Refresh" Then
	KS.Echo "[结果]刷新[/结果]" & vbCrlf
Else
	KS.Echo "[结果]登录成功[/结果]" & vbCrlf
	KS.Echo "[上次登录时间]上次登录时间：" & KSUser.GetUserInfo("KS_LastLoginDate") & "[/上次登录时间]" & vbCrlf
	KS.Echo "[上次登录IP]上次登录IP：" & KSUser.GetUserInfo("KS_LastLoginIP") & "[/上次登录IP]" & vbCrlf
	KS.Echo "[私人密钥]" & Base64e(Md5(KSUser.GetUserInfo("PassWord") & KSUser.GetUserInfo("KS_MachineCode"),16)) & "[/私人密钥]" & vbCrlf
	Dim RSSN, Tid, tmpStr
	Tid = "20100598989251"	'目前只显示淘宝买号
	Set RSSN=Server.CreateObject("ADODB.RECORDSET")
	RSSN.Open "Select ShopName, SetPassWord From MaiMaiUser Where UserName='" & KSUser.UserName & "' And Tid='" & Tid & "' And AccountType=1 And IsDel=0 And IsCollect=1 Order By ID Desc", Conn, 1, 1
	If Not RSSN.Eof Then
	Do While Not(RSSN.Eof)
		If tmpStr <> "" Then
			tmpStr = tmpStr & "||" & RSSN("ShopName") & "|^_^|" & RSSN("SetPassWord")
		Else
			tmpStr = RSSN("ShopName") & "|^_^|" & RSSN("SetPassWord")
		End If
		RSSN.MoveNext
	loop
	End If
	RSSN.Close:	Set RSSN=Nothing	
	KS.Echo "[绑定买号]" & Base64e(tmpStr) & "[/绑定买号]" & vbCrlf
	KS.Echo "[收藏读单时间]" & Client_Collect_ReadTime & "[/收藏读单时间]" & vbCrlf
	KS.Echo "[流量读单时间]" & Client_Flow_ReadTime & "[/流量读单时间]"
End If
%>
-->
</body>
</html>
<%
	End Sub
End Class
%>