% dim yzlogin yzlogin="no" %> <% Dim Url url = "http://" & request.ServerVariables("SERVER_NAME") & replace(Lcase(Request.ServerVariables("SCRIPT_NAME")),"/user/login.asp","") SESSION("ServerUrl")=url %>
| <%=Huiyuanleixing%> | <%=CmsDj_Com_UserName%> | 金币:<%=CmsDj_Com_Points%> | 充值金币 | <% Set CmsDjMessage = New CmsDj_Com_Message Set rsm=CmsDjMessage.GetRs("",0,"incept='"&CmsDj_Com_UserName&"' and flag=0 order by flag") if not rsm.eof then duanxiaoxi="you" dxnum=rsm.recordcount else duanxiaoxi="mei" end if rsm.close:set rsm=nothing %> <%if CmsDj_Com_Grade=0 then%>VIP包月 | <%end if%>收藏 | 下载 | <%if duanxiaoxi="you" then%> 信箱(<%=dxnum%>) |
<%else%>
信箱(0) | <%end if%> |