会员:<%=session("username")%>
姓名:<%=dsreg("truename")%>
电邮:<%
if dsreg("email") ="" Then
response.write "邮箱未设置"
else
response.write left(dsreg("email"),3) & "****" & right(dsreg("email"),8)
end if
%>
手机:<%
if dsreg("mobi") ="" Then
response.write "手机号未设置"
else
response.write left(dsreg("mobi"),3) & "****" & right(dsreg("mobi"),4)
end if
%>
余额:
<%=FormatNumber(dsreg("usermoney"),2,-1)%> 元
支付宝
微信
转账
<%Else'代理进入用户区
Set dsagent = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("username")&"'"
dsagent.Open Sql,conn,1,1
%>
<%if session("agenttype")<>"子代理" then%><%=session("agenttype")%><%end if%>,您的代理角色的可用金额:
<%=FormatNumber(dsagent("usermoney"),2,-1)%> 元<%=FormatNumber(dsagent("waitmoney"),2,-1)%> 元,用户角色可用金额:
<%=FormatNumber(dsreg("usermoney"),2,-1)%> 元,等待入帐金额:
<%=FormatNumber(dsreg("waitmoney"),2,-1)%> 元,您在用户区所有的消费价格为代理成本价。
<%
dsagent.close
Set dsagent=nothing
end If
%>
登陆时间:<%=now%> IP:<%=Request.ServerVariables("REMOTE_ADDR")%>
<%if not isnull(dsreg("usernotice")) then%>
<%=dsreg("usernotice")%>
<%end if
dsreg.close
set dsreg=nothing
%>
<%
Set dslogin = Server.CreateObject("ADODB.Recordset")
Sql="Select top 10 * from FreeHost.FreeHost_News where type2=100 order by id desc"
if session("agentname")="n" then Sql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=100 or type2=101)) or (username='"&session("agentname")&"' and (type2=100 or type2=101)) order by id desc" '直接用户
if session("agentname")<>"n" then Sql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=100 or type2=102)) or (username='"&session("agentname")&"' and (type2=102)) order by id desc" '代理名下用户
if session("agentname")=session("username") Then Sql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=100 or type2=102)) or (username='freehost' and (type2=103 or type2=104)) or (username='"&session("agentname")&"' and (type2=102)) order by id desc" '代理名下用户
if session("agentname")=session("username") and session("agenttype")<>"子代理" then ql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=103 or type2=104)) order by id desc" '直接代理
'response.write sql
' dslogin.PageSize = 10
dslogin.Open Sql,conn,1,1
if dslogin.Eof then
%>
<%else%>
<%
while not dslogin.eof
%>
<%
dslogin.movenext
wend%>
<%end if
dslogin.close
set dslogin=nothing%>
<%
Set dslogin = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Loginlog where username='"&session("username")&"' order by logintime desc"
dslogin.PageSize = 15
dslogin.Open Sql,conn,1,1
%>
<%
if dslogin.Eof then
%>
<%
else
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dslogin.RecordCount <> 0 Then dslogin.AbsolutePage = CLng(pn)
if clng(pn)<=10 then
begini=1
if dslogin.PageCount<=10 then
endini=dslogin.PageCount
else
endini=10
end if
end if
%>
<%if clng(pn)<=10 then%>
<%for i=begini to endini
if clng(pn)=i then%>
<%else%>
<%end if%>
<%next%>
<%else%>
<%end if%>
<%If Clng(pn)>1 Then%>
<%End If%>
<%
For N=1 To dslogin.PageSize
If dslogin.RecordCount=0 Then Exit For
%>
<%
If clng(pn)=dslogin.PageCount Then
I = dslogin.RecordCount - (dslogin.PageCount-1) * dslogin.PageSize
If N=I Then Exit For
End If
dslogin.movenext
Next%>
<%end if
dslogin.close
set dslogin=nothing%>