<%=WebWebName%>

<%=WebUserName%>的个人主页 <%=LinkWebURL(WebUserID,WebUserName)%>

<%=WIntro%>

<%if m="pic" then '我的相册%>

我的相册

<% i=0 Set Rs = CmsDjPic.GetRs("",0,"Hidden=0 and UserID="&WebUserID&" order by ID desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=1 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i" Response.Write "

" Response.Write "

"&rs("Title")&"

" Response.Write "

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

<%=List_Page(counts,z,page,"?m=pic&id="&WebUserID&"",11,7)%>

<%elseif m="friend" then '我的好友%>

我的好友

<% i=0 Set Rs = CmsDjPublic.GetRs("",0,"CD_AA=0 and CD_CC="&WebUserID&" order by CD_DD desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=36 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i" Response.Write "

" Response.Write "

"&GetUserName(rs("CD_BB"),0)&"

" Response.Write "

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

<%=List_Page(counts,z,page,"?m=friend&id="&WebUserID&"",11,7)%>

给我留言

我的留言

<% i=0 Set Rs = CmsDjView.GetRs("",0,"channel=5 and cid="&WebUserID&" order by ctime desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=36 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i" Response.Write "

" Response.Write "

"&Rs("cname")&"("&GetUserName(rs("cuid"),1)&")

" Response.Write "

留言时间:"&Rs("ctime")&" " if Rs("cid")=CmsDj_Com_UserID then Response.Write "- 删除" end if Response.Write "

" Response.Write "

"&RemoveHTML(Rs("Content"))&"

" Response.Write "

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

我上传的音乐

<% i=0 Set Rs = CmsDjMusic.GetRs("CD_ID,CD_Name,CD_ClassID",0,"CD_Deleted=0 and CD_Passed=0 and CD_User='"&WebUserName&"' order by CD_ID desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i

"&ii&"."&rs("CD_Name")&"

收藏下载

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

全选反选批量播放

<%=List_Page(counts,z,page,"?m=music&id="&WebUserID&"",11,7)%>

我的日志

<% i=0 Set Rs = CmsDjArt.GetRs("",0,"Hidden=0 and UserID="&WebUserID&" order by ID desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=10 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i" Response.Write ""&Rs("Title")&" 日期:"&Rs("UpdateTime")&"" Response.Write "

" Response.Write "

"&left(Content,200)&" ...

" Response.Write "

" Response.Write "全文 | 评论" Response.Write "

" Response.Write "

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

<%=List_Page(counts,z,page,"?m=art&id="&WebUserID&"",11,7)%>

我收藏的音乐

<% i=0 Set Rs = CmsDjPublic.GetRs("",0,"CD_AA=2 and CD_CC="&WebUserID&" order by CD_DD desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页数据 rs.AbsolutePage=page counts=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i

"&ii&"."&GetData(rs("CD_BB"),2)&"

收藏下载

" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

全选反选批量播放

<%=List_Page(counts,z,page,"?m=fav&id="&WebUserID&"",11,7)%>

个人形象

<%=WebUserName%>(<%=WebNiCheng%>)

发留言发消息加好友

基本资料

<%=CmsDj_Com_Rank(WebUserRank,0)%> <%=CmsDj_Com_Rank(WebUserRank,1)%>

·升级剩余经验数：<%=CmsDj_Com_Rank(WebUserRank,2)%>
·性别：<%=WebUserSex%>
·来自：<%=WebUserWhe%>
·年龄：<%=WebUserBirthday%>
·ICQ：<%=WebUserQQ%>
·邮箱：<%=WebUserEmail%>
·人气：<%=WebHits%>

个性宣言

<%=WebUserSign%>

我的好友

更多>>

<% m=0 Set Rs = CmsDjPublic.GetRs("",0,"CD_AA=0 and CD_CC="&WebUserID&" order by CD_DD desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 Response.Write "

" Response.Write "

"&GetUserName(rs("CD_BB"),0)&"("&GetUserName(rs("CD_BB"),1)&")

"&GetUserName(rs("CD_BB"),3)&"

" If m>=5 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

我的访客

更多>>

<% m=0 Set Rs = CmsDjPublic.GetRs("",0,"CD_AA=1 and CD_BB="&WebUserID&" order by CD_DD desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 Response.Write "

" Response.Write "

"&GetUserName(rs("CD_CC"),0)&"("&GetUserName(rs("CD_CC"),1)&")

"&CmsDj_Com_Time(rs("CD_DD"))&"

" If m>=5 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

我的音乐

更多>>

<% m=0 Set Rs = CmsDjMusic.GetRs("CD_ID,CD_Name,CD_ClassID",0,"CD_Deleted=0 and CD_Passed=0 and CD_User='"&WebUserName&"' order by CD_ID desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 Response.Write "

"&rs("CD_Name")&"

收藏下载

" & VbCrLf If m>=10 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

全选反选批量播放

我的相册

更多>>

<% m=0 Set Rs = CmsDjPic.GetRs("",0,"Hidden=0 and UserID="&WebUserID&" order by ID 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 Response.Write "

" If m>=30 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

我的日志

更多>>

<% m=0 Set Rs = CmsDjArt.GetRs("",0,"Hidden=0 and UserID="&WebUserID&" order by ID desc") If Not Rs.eof Then Do While Not Rs.eof m=m+1 Content=RemoveHTML(Rs("Content")) Response.Write "

" Response.Write ""&Rs("Title")&" 日期:"&Rs("UpdateTime")&"" Response.Write "

" Response.Write "

"&left(Content,100)&" ...

" Response.Write "

" Response.Write "全文 | 评论" Response.Write "

" Response.Write "

" If m>=3 Then Exit Do Rs.Movenext Loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>

" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"

" ShowWebA=ShowWebA&"

播放器 保存设置

" ShowWebA=ShowWebA&"