<%@ Language=VBScript %> <% 'If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then ' Response.write "禁止代理访问" ' Response.end 'End If If session("username")="" Then Response.Redirect "/user/login.shtml" end if '验证会员资格 If not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_USER where username='"&session("username")&"'" dsreg.Open Sql,conn,1,1 session("usermoney")=dsreg("usermoney") %> 欢迎您光临中云在线-用户专区!

会员:<%=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 %>

<%If session("AgnRunasUser")=false then%>
余额: <%=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%>
域名管理
空间管理
数据库管理
云服务器管理
独立服务器管理
企业产品管理
财务记录
修改资料
服务工单
<% conn.Close set conn=nothing end if if ef then Response.Redirect "e.asp?e="&ec end if%>