<% Dim action,view action=SafeRequest("do","get") view=SafeRequest("view","get") id=SafeRequest("id","get") key=SafeRequest("key","get") orderby=SafeRequest("orderby","get") if action="home" then start="首页" if action="feed" then start="动态" if action="inbox" then start="消息" if action="pic" then start="相册" if action="daily" then start="日志" if action="friend" then start="好友" if action="share" then start="分享" if action="music" then start="音乐" if action="pay" then start="充值" if action="supply" then start="供求" if action="web" then start="空间" if action="avatar" then start="我的头像" if action="profile" then start="个人资料" if action="password" then start="修改密码 & 密码保护" if action="hot" then start="排名" if action="ad" then start="宣传" page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 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 %> <%=start%> - <%=CmsDj_Com_UserName%> - <%=CD_WebName%> - Powered by 7xiwl Dance
    <%Call Index_Menu%>
<% Select Case Lcase(action) Case "feed":Call Index_Feed Case "inbox":Call Index_Inbox Case "pic":Call Index_Pic Case "daily":Call Index_Daily Case "friend":Call Index_Friend Case "share":Call Index_Share Case "avatar":Call Index_Avatar Case "music":Call Index_Music Case "supply":Call Index_Supply Case "pay":Call Index_Pay Case "web" : Call Index_Web Case "profile" : Call Index_Profile Case "password" : Call Index_PassWord Case "hot" : Call Index_Hot Case "home" : Call Index_Main Case "ad" : Call Index_Ad Case Else : 'Call Index_Main End Select Response.write "

 确定删除?

" If CmsDj_Com_WebLock=0 Then Set WebMold=CmsDjWebMold.GetRs("WebMoldID",0,"WebMoldIs=1") Set RsWeb=CmsDjWeb.GetRs("UserID",0,"UserID="&CmsDj_Com_UserID) If RsWeb.bof and RsWeb.eof Then Arr1=Array("UserID","UserName","WebMb","WebHits","WebAl","WebAt","WebLock","WebDate") Arr2=Array(CmsDj_Com_UserID,CmsDj_Com_UserName,WebMold("WebMoldID"),0,610,76,0,Now()) Call CmsDjWeb.add(Arr1,Arr2) Conn.DB "Update [CmsDj_User] set WebLock=1 where UserID="&CmsDj_Com_UserID,"exe" Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',3,"&CmsDj_Com_UserID&",0,0,'"&Now()&"')","exe" End IF RsWeb.Close Set RsWeb=Nothing End If '增加点数/经验 if UserLogined=True then CD_PointsuAID=md5(trim(CmsDj_Com_UserID)+123) If Request.Cookies("CmsDj_Com")("CD_PointsuA" & CD_PointsuAID)<>"yes" Then Set Rs = CmsDjUser.GetRs("Points,UserRank",0,"UserID="&CmsDj_Com_UserID) Rs("Points") = Rs("Points") + CD_PointsuAa Rs("UserRank") = Rs("UserRank") + CD_PointsuAb Rs.Update Rs.Close Set Rs=Nothing Response.Cookies("CmsDj_Com")("CD_PointsuA" & CD_PointsuAID)="yes" Response.Cookies("CmsDj_Com").Expires=Date+1 End If end if %>
<%Call Index_Bottom%>