<% If CmsDj_Com_Photo<>"" Then CmsDj_Com_Photo=LCase(CmsDj_Com_Photo) if left(CmsDj_Com_Photo,6)="upload" then CmsDj_Com_Photo=InstallDir&CmsDj_Com_Photo else CmsDj_Com_Photo=CmsDj_Com_Photo end if Else CmsDj_Com_Photo="image/noavatar_big.gif" End if IF CmsDj_Com_UserSkin<>"" Then CmsDj_Com_UserSkin=CmsDj_Com_UserSkin Else CmsDj_Com_UserSkin="default" End IF %> 随便看看 - <%=CmsDj_Com_UserName%> - <%=CD_WebName%> - Powered by 7xiwl Dance

马上注册,与好友分享日志、照片,一起玩转游戏......

马上注册

记录 照片 游戏 群组

请登录

<%if UserLogined<>True then%>

忘记密码?

<%else%>

进入管理中心

<%end if%>

更多日志 日志 »

更多动态 动态 »

更多图片 图片 »

上一页 下一页
  • 第一页
  • 第二页
  • 第三页
  • 第四页
    <% m=0 Set Rs = CmsDjPic.GetRs("",0,"Hidden=0 order by UpdateTime desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 PicUrl=LCase(rs("PicUrl")) if left(PicUrl,6)="upload" then PicUrl=InstallDir&PicUrl else PicUrl=PicUrl end if %>
  • " title="<%=rs("UserName")%>" target="web"><%=rs("UserName")%>

    <%=Cmsdj_Com_Time(rs("UpdateTime"))%>

  • <% If m>=28 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>
  查找:帅哥| 美女| 同城的人| <%Set Rss=CmsDjSession.GetRs("",0,"order by LoginTime desc")%> 在线会员(<%=Rss.RecordCount%>) <%Set Rss=nothing%>

站长推荐

<% m=0 Set Rs=CmsDjUser.GetRs("UserID,UserName,NiCheng,Hits,UserRank,Points,LastLoginTime",0,"UserLock=0 order by Hits desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 %>

" title="<%=rs("UserName")%>"><%=rs("UserName")%>(<%=rs("NiCheng")%>)

访问: <%=rs("Hits")%>

经验: <%=rs("UserRank")%>


点数: <%=rs("Points")%>

更新: <%=CmsDj_Com_Time(rs("LastLoginTime"))%>

  • " target="web" rel="<%=rs("UserName")%>" rev="" class="uonline" onmouseover="getUserTip(this)">" width="48" height="48" onerror="this.onerror=null;this.src='image/noavatar_small1.gif'">
  • <% If m>=25 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

    在线会员

    更多供求求职/买卖/招聘 »

    更多分享分享 »

      <% m=0 Set Rs = CmsDjShare.GetRs("",0,"order by ShareID desc") if not Rs.eof then do while not rs.eof m=m+1 Response.write "
    • "&rs("UserName")&" 分享了一个"&rs("ShareB")&"
    • "& VbCrLf if m>=11 then exit do rs.movenext loop else Response.Write "" end if rs.close set rs=nothing %>
    <%Call Index_Bottom%>