<%If WebB<>"" Then%> <%Else%> <%End If%>
<%Call ShowUserLogin()%>    
<%=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 "
" 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=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 "
" 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=friend&id="&WebUserID&"",11,7)%>
<%elseif m="book" then '留言板%>
给我留言
内容: <%if UserLogined<>True then%>

 

          <%else%>

 

          <%end if%>

我的留言
<% 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 "
" Response.Write "
" Response.Write "
" Response.Write "" Response.Write "
" Response.Write "
" Response.Write "
留言时间:"&Rs("ctime")&" " if Rs("cid")=CmsDj_Com_UserID then Response.Write "- 删除" end if Response.Write "
" Response.Write "
"&RemoveHTML(Rs("Content"))&"
" Response.Write "
" Response.Write "
" Response.Write "
" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>
<% elseif m="bookadd" then '留言入库 From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then Response.Write " " Response.End end if Content = SafeRequest("Content","post") Content = Replace(Content,"<","<") Content = Replace(Content,">",">") if Content="" then Response.Write "" Response.End end if If UserLogined<>True Then Response.Write "" Response.End End If UserTrueIP=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","") If UserTrueIP="" or isnull(UserTrueIP) Then UserTrueIP=Replace(Request.ServerVariables ("REMOTE_ADDR"),"'","") Arr1=Array("channel","ClassID","cid","content","cuid","cname","ctime","cip") Arr2=Array(5,0,WebUserID,content,CmsDj_Com_UserID,CmsDj_Com_UserName,Now(),UserTrueIP) Call CmsDjView.add(Arr1,Arr2) response.redirect Request.ServerVariables("HTTP_REFERER") elseif m="bookdel" then '删除留言 From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then Response.Write " " Response.End end if vid=SafeRequest("vid","get") Call CmsDjView.del("cid="&CmsDj_Com_UserID&" and id="&vid) response.redirect Request.ServerVariables("HTTP_REFERER") %> <%elseif m="music" then '我上传的音乐%>
我上传的音乐
<% 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
" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>
<%=List_Page(counts,z,page,"?m=music&id="&WebUserID&"",11,7)%>
<% elseif m="art" then '我的日志%>
我的日志
<% 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 "
" Response.Write "
"&left(Content,200)&" ...
" Response.Write "
" Response.Write "
" 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)%>
<%elseif m="fav" then '我收藏的音乐%>
我收藏的音乐
<% 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
" rs.movenext loop Else Response.Write "" End If Rs.Close Set Rs=Nothing %>
<%=List_Page(counts,z,page,"?m=fav&id="&WebUserID&"",11,7)%>
<%else '首页%>
个人形象
<%=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 "
" 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 "
" 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 "
" & 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 "
" Response.Write "
"&left(Content,100)&" ...
" Response.Write "
" Response.Write "
" 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 %>
<%end if%> <% 'if m="" then if WebA<>"" then if WebUserID=CmsDj_Com_UserID then ShowWebA="" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"
" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"
" ShowWebA=ShowWebA&"
播放器        保存设置
" ShowWebA=ShowWebA&"
" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"
" ShowWebA=ShowWebA&"
" else ShowWebA="" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"
" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"" ShowWebA=ShowWebA&"
" end if else ShowWebA="
" ShowWebA=ShowWebA&"
" end if Response.Write ShowWebA&ShowWebB 'end if If isObject(CmsDjUser) Then Set CmsDjUser = Nothing If isObject(CmsDjWeb) Then Set CmsDjWeb = Nothing If isObject(CmsDjWebMold) Then Set CmsDjWebMold = Nothing If isObject(CmsDjPublic) Then Set CmsDjPublic = Nothing If isObject(CmsDjMusic) Then Set CmsDjMusic = Nothing If isObject(CmsDjPic) Then Set CmsDjPic = Nothing If isObject(CmsDjFeed) Then Set CmsDjFeed = Nothing If isObject(CmsDjArt) Then Set CmsDjArt = Nothing If isObject(CmsDjView) Then Set CmsDjView = Nothing %>