<% dim yzlogin yzlogin="no" %> <% Dim Url url = "http://" & request.ServerVariables("SERVER_NAME") & replace(Lcase(Request.ServerVariables("SCRIPT_NAME")),"/user/login.asp","") SESSION("ServerUrl")=url %>
<%if UserLogined=False then%>
用户名: 密  码:
<%else%> <% if CmsDj_Com_Grade=0 then Huiyuanleixing=" " elseif CmsDj_Com_Grade=1 then Huiyuanleixing=" " end if %> <% 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%> <%end if%> <%if duanxiaoxi="you" then%> <%else%> <%end if%>
<%=Huiyuanleixing%> <%=CmsDj_Com_UserName%> 金币:<%=CmsDj_Com_Points%> 充值金币VIP包月收藏 下载 信箱(<%=dxnum%>) 信箱(0)
<% end if %>
搜索: