<%Response.Buffer = true%> <% '========================================================= ' File: usermanager.asp ' Version:5.0 ' Date: 2002-9-11 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= stats="控制面板首页" call nav() if not founduser then errmsg=errmsg+"
"+"

您没有登录。" call head_var(2,0,"","") call dvbbs_error() else call head_var(0,0,membername & "的控制面板","usermanager.asp") call main() call activeonline() end if call footer() sub main dim userclass set rs=server.createobject("adodb.recordset") sql="select * from [User] where userid="&userid rs.open sql,conn,1,1 userclass=rs("userclass") %>

控制面板首页	基本资料修改	用户密码修改	联系资料修改	用户短信服务	编辑好友列表	用户收藏管理

<% response.write ""&_ ""&_ "

"&_ ""&_ ""&_ ""&_ ""&_ " 用户头像 "&_ ""&_ " 基本信息 " if trim(rs("title"))<>"" then response.write "用户头衔： "&htmlencode(RS("title"))&" " end if response.write "用户等级： "& rs("userclass") &" " if rs("UserGroup")<>"" then response.write "用户门派： "&rs("UserGroup")&" " end if response.write "用户财富： "&rs("userwealth")&" "&_ "用户经验： "&rs("userEP")&" "&_ "用户魅力： "&rs("userCP")&" "&_ "精华帖数： "&rs("userisbest")&" "&_ "帖数总数： "&rs("article")&" "&_ "注册时间： "&rs("addDAte")&" "&_ "登陆次数： "&rs("logins")&" " rs.close set rs=nothing response.write" " call friend() response.write "

"&_ ""&_ ""&_ " -=> 论坛短信息"&_ " " if newincept() >0 then response.write"目前您有 ["&newincept()&"] 条的短消息。" else response.write"目前您没有新的短消息," end if response.write"收件箱中共有 ["&cint(incept())&"] 条信息，发件箱中共有 ["&allsend()&"] 条信息对方未查阅。 "&_ " "&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" set rs=server.createobject("adodb.recordset") sql="select top 5 * from message where incept='"&trim(membername)&"' and issend=1 and delR=0 order by flag,sendtime desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write"" else dim tablebody do while not rs.eof response.write "" if rs("flag")=0 then tablebody="tablebody2" else tablebody="tablebody1" end if response.write""&_ ""&_ ""&_ ""&_ "" rs.movenext loop end if rs.close set rs=nothing response.write" -=> 最新收到的短讯 状态 发件人 主题 日期 大小 您的收件箱中没有任何内容。 " if rs("flag")=0 then response.write"" else response.write"" end if response.write" " if rs("flag")=0 then response.write"" end if response.write""&htmlencode(rs("sender"))&" " if rs("flag")=0 then response.write"" end if response.write""&htmlencode(rs("title"))&" " if rs("flag")=0 then response.write"" end if response.write""&rs("sendtime")&" " if rs("flag")=0 then response.write"" end if response.write""&len(rs("content"))&"Byte " dim F_Type,F_Typename '--------------------- response.write""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" '--------------------- set rs=conn.execute("select top 5 F_ID,F_Filename,F_FileType,F_Type,F_Flag,F_FileSize,F_AddTime from [DV_Upfile] where F_UserID="&userid&" order by F_ID desc ") if rs.eof and rs.bof then response.write"" else do while not rs.eof F_Type=rs("F_Type") if F_Type=1 then F_Typename="图片集" elseif F_Type=2 then F_Typename="FLASH集" elseif F_Type=3 then F_Typename="音乐集" elseif F_Type=4 then F_Typename="电影集" else F_Typename="文件集" end if '--------------------- response.write ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" '--------------------- rs.movenext loop end if rs.close set rs=nothing response.write " -=> 最新上传文件 属性 大小 文件 日期 类型 您的文件库中没有任何内容。 "&rs("F_FileSize")&" Byte "&rs("F_Filename")&" "&rs("F_AddTime")&" "&F_Typename&" "&_ ""&_ ""&_ "" dim topic,srs set srs=conn.execute("select top 5 rootid,boardid,dateandtime,topic,expression,body,announceid from "&NowUseBBS&" where PostUserID="&userid&" and not locktopic=2 order by announceid desc") do while not srs.eof topic=replace(srs(3)," ","") if topic<>"" then topic=topic else topic=srs(5) topic=replace(topic,chr(13),"") topic=replace(topic,chr(10),"") end if if len(topic)>30 then topic=left(topic,30)&"..." end if topic=server.htmlencode(topic) response.write" "&_ ""&_ ""&_ srs.movenext loop srs.close set srs=nothing response.write" -=> 最近发表的文章  □　 "&htmlencode(topic)&" -- "&srs(2)&"

" end sub sub friend() dim frs,srs,OnlineTime response.write""&_ ""&_ ""&_ ""&_ "

好友在线
" set frs=conn.execute("select F_friend from Friend where F_username='"&trim(membername)&"' order by F_id desc") if frs.eof and frs.bof then response.write"快添加您的好友吧！" else do while not frs.eof if boardmaster or master then set Srs=conn.execute("select startime from online where username='"&frs(0)&"' ") else set Srs=conn.execute("select startime from online where username='"&frs(0)&"' and userhidden=2") end if if Srs.eof and Srs.bof then OnlineTime="[离线]" else OnlineTime="[在线：" & datediff("n",Srs(0),Now()) & "Mins]" end if Srs.close set Srs=nothing response.write"" response.write" " response.write frs(0)&" "&OnlineTime&" " frs.movenext loop end if frs.close set frs=nothing response.write"
＊点击图标给好友发送短讯！

" end sub REM 统计已发出新短信 function allsend() rs=conn.execute("Select Count(id) From Message Where flag=0 and issend=1 And sender='"& membername &"'") allsend=rs(0) set rs=nothing if isnull(allsend) then allsend=0 end function REM 统计收件箱中的短信 function incept() incept=0 rs=conn.execute("Select Count(id) From Message Where issend=1 and delR=0 And incept='"& membername &"'") incept=rs(0) set rs=nothing if isnull(incept) then incept=0 end function %>