%
'Edit by yangzheng 2003-11-24
'Response.Write dvbbs.skinid
Dim PageSid
PageSid = Dvbbs.Skinid
Dvbbs.LoadTemplates("usermanager")
Dvbbs.Skinid = PageSid
Dim Dhlint,Updepth
Dhlint=template.html(0)&" "
Updepth=template.Strings(0)
Dvbbs.LoadTemplates("show")
Dvbbs.stats=template.Strings(2)
Dvbbs.nav()
Dim Rs,sql
Dim TopicCount
Dim Redcolor
Dim Pcount,endpage,star,page_count
If Request("star")="" or not isnumeric(request("star")) Then
star=1
Else
star=clng(request("star"))
End If
If Dvbbs.UserID=0 Then
Dvbbs.AddErrCode(6)
End If
Dvbbs.ShowErr()
Redcolor=Dvbbs.Mainsetting(1)
Dvbbs.Head_var 0,0,Updepth,"usermanager.asp"
Select Case request("action")
Case "edit"
call edit()
Case "fsave"
call filesave()
Case "fadd"
call addnew()
Case "fsnew"
call savenew()
Case "fdel"
call fdel()
Case "alldel"
call alldel()
Case Else
Call main()
End Select
Dvbbs.ShowErr()
Call Dvbbs.activeonline()
Call Dvbbs.footer()
Sub main()
Dim Mylist,sname,stype,searchsql,MainTable,Toplist
Mylist=Split(Template.Strings(4),"||")
stype=Request("Stype")
TopicCount=filenum("")
If stype="" or not isnumeric(stype) Then
sname=template.Strings(3)
searchsql=""
TopicCount=filenum("")
Else
Select Case stype
Case 1
sname=Split(Dvbbs.lanstr(5),"||")(1)
searchsql="F_Type=1 and"
Case 2
sname=Split(Dvbbs.lanstr(5),"||")(2)
searchsql="F_Type=2 and"
Case 3
sname=Split(Dvbbs.lanstr(5),"||")(3)
searchsql="F_Type=3 and"
Case 4
sname=Split(Dvbbs.lanstr(5),"||")(4)
searchsql="F_Type=4 and"
Case 0
sname=Split(Dvbbs.lanstr(5),"||")(0)
searchsql="F_Type=0 and"
Case Else
sname=Template.Strings(3)
searchsql=""
End Select
TopicCount=filenum(clng(stype))
End If
Response.Write ""
Response.Write Chr(10)
Dim F_Type,F_typename,useradmin,readme
Set rs=dvbbs.execute("select * from [DV_Upfile] where "&searchsql&" F_UserID="&Dvbbs.UserID&" order by F_ID desc ")
If Rs.EOF Then
Toplist=Template.html(9)
Else
If TopicCount mod Cint(Dvbbs.Forum_Setting(11))=0 Then
Pcount= TopicCount \ Cint(Dvbbs.Forum_Setting(11))
Else
Pcount= TopicCount \ Cint(Dvbbs.Forum_Setting(11))+1
End If
RS.MoveFirst
If star > Pcount Then star = Pcount
If star < 1 Then star = 1
RS.Move (star-1) * Dvbbs.Forum_Setting(11)
page_count=0
Do while not rs.eof and page_count < Cint(Dvbbs.Forum_Setting(11))
F_Type=rs("F_Type")
If F_Type=1 Then
F_typename=Split(Dvbbs.lanstr(5),"||")(1)
ElseIf F_Type=2 Then
F_typename=Split(Dvbbs.lanstr(5),"||")(2)
ElseIf F_Type=3 Then
F_typename=Split(Dvbbs.lanstr(5),"||")(3)
ElseIf F_Type=4 Then
F_typename=Split(Dvbbs.lanstr(5),"||")(4)
Else
F_typename=Split(Dvbbs.lanstr(5),"||")(0)
End If
If Rs("F_Readme")<>"" or not isnull(rs("F_Readme")) Then
If Len(Rs("F_Readme"))>26 Then
readme=""&left(Dvbbs.HtmlEnCode(replace(rs("F_Readme"),chr(10)," ")),26)&"..."
Else
readme=Dvbbs.HtmlEnCode(rs("F_Readme"))
End If
End If
If Dvbbs.GroupSetting(48)=1 Then
If (instr(rs("F_Filename"),"//") or instr(rs("F_Filename"),":")) and cint(rs("F_Flag"))=1 Then
useradmin=" "
Else
useradmin=" "
End If
useradmin=useradmin+""&Mylist(0)&" | "&Mylist(1)&""
Else
useradmin=" —— "
End If
page_count = page_count + 1
Toplist=Toplist&Template.html(8)
Toplist=Replace(Toplist,"{$F_FileType}",Rs("F_FileType")&"")
Toplist=Replace(Toplist,"{$boardid}",Rs("F_BoardID"))
Toplist=Replace(Toplist,"{$F_ID}",Rs("F_ID"))
Toplist=Replace(Toplist,"{$readme}",readme)
Toplist=Replace(Toplist,"{$F_FileSize}",Rs("F_FileSize")&"")
Toplist=Replace(Toplist,"{$F_DownNum}",Rs("F_DownNum"))
Toplist=Replace(Toplist,"{$F_ViewNum}",Rs("F_ViewNum"))
Toplist=Replace(Toplist,"{$F_AddTime}",Rs("F_AddTime"))
Toplist=Replace(Toplist,"{$F_typename}",F_typename)
Toplist=Replace(Toplist,"{$useradmin}",useradmin)
rs.movenext
loop
End If
Rs.close:Set Rs=Nothing
MainTable=template.html(7)
MainTable=Replace(MainTable,"{$Filelist}",Toplist)
MainTable=Replace(MainTable,"{$username}",Dvbbs.Membername)
If Pcount>0 Then MainTable=MainTable&ShowPage(star,Pcount,TopicCount,Cint(Dvbbs.Forum_Setting(11)),redcolor)
Response.Write Dhlint&MainTable
End Sub
'分页代码
Function ShowPage(CurrentPage,Pcount,totalrec,PageNum,redcolor)
Dim SearchStr
SearchStr="Boardid="&Dvbbs.boardid&"&reaction=onlineinfo"
ShowPage=template.html(10)
ShowPage=Replace(ShowPage,"{$CurrentPage}",CurrentPage)
ShowPage=Replace(ShowPage,"{$Pcount}",Pcount)
ShowPage=Replace(ShowPage,"{$PageNum}",PageNum)
ShowPage=Replace(ShowPage,"{$totalrec}",totalrec)
ShowPage=Replace(ShowPage,"{$SearchStr}",SearchStr)
ShowPage=Replace(ShowPage,"{$redcolor}",redcolor)
End Function
'编辑文件
Sub edit()
Dim editid
Dim F_Type,F_typename,filename,chefile,con,body
Dim F_Username,postid,F_rootid,F_bbsid,F_Flag
Dim myurl,upfilexs
Dim Tempwrite,checked1,checked2
myurl=false
editid=trim(request("editid"))
If Not IsNumeric(editid) or IsNull(editid) Then
Dvbbs.AddErrCode(34)
Exit Sub
End If
set rs=Dvbbs.execute("select * from [DV_Upfile] where F_ID="&editid)
if rs.eof and rs.bof then
Dvbbs.AddErrCode(34)
exit sub
else
F_Username=rs("F_Username")
F_Type=rs("F_Type")
filename=rs("F_Filename")
F_Flag=rs("F_Flag")
con=rs("F_Readme")
If instr(filename,"//")=0 or instr(filename,":")=0 then
myurl=true
filename="UploadFile/"&filename
End if
If F_Type=1 then
F_typename=""
Else
F_typename=rs("F_FileType")&Template.Strings(5)
End if
If con<>"" then
body=replace(con," ",chr(13))
body=replace(body," ","")
body=body+chr(13)
End if
If myurl then
If instr(rs("F_AnnounceID"),"|") then
postid=split(rs("F_AnnounceID"),"|")
F_rootid=postid(0)
F_bbsid=postid(1)
End if
upfilexs="
"&Template.Strings(6)&"
"
If Dvbbs.Master Or Dvbbs.superboardmaster Or Dvbbs.boardmaster Or Dvbbs.GroupSetting(48)=1 then
upfilexs=upfilexs&Split(Template.Strings(7),"||")(0)
upfilexs=upfilexs&" "
upfilexs=upfilexs&Split(Template.Strings(7),"||")(1)
upfilexs=upfilexs&" "
upfilexs=upfilexs&Template.Strings(8)&""
Else
upfilexs=upfilexs&""
End if
upfilexs=upfilexs&"["
upfilexs=upfilexs&Template.Strings(11)
upfilexs=upfilexs&"]
"
End if
Tempwrite=Template.html(11)
If F_Flag<2 then
Tempwrite=Replace(Tempwrite,"{$checked1}","checked")
Tempwrite=Replace(Tempwrite,"{$checked2}","")
Else
Tempwrite=Replace(Tempwrite,"{$checked1}","")
Tempwrite=Replace(Tempwrite,"{$checked2}","checked")
End if
Tempwrite=Replace(Tempwrite,"{$f_username}",Dvbbs.HtmlEnCode(F_Username))
Tempwrite=Replace(Tempwrite,"{$f_boardid}",rs("F_BoardID"))
Tempwrite=Replace(Tempwrite,"{$f_id}",rs("F_ID"))
Tempwrite=Replace(Tempwrite,"{$f_typename}",F_typename)
Tempwrite=Replace(Tempwrite,"{$upfilexs}",upfilexs)
Tempwrite=Replace(Tempwrite,"{$body}",Dvbbs.HtmlEnCode(body))
Response.Write Dhlint&Tempwrite
End if
rs.close:set rs=nothing
End sub
'保存修改
Sub filesave()
If Dvbbs.GroupSetting(48)=0 Then
Dvbbs.AddErrCode(28)
Exit Sub
End If
dim saveid,F_Readme,Fflag,fileurl
dim F_BoardID,F_AnnounceID
F_BoardID=dvbbs.checkStr(trim(request.form("F_BoardID")))
F_AnnounceID=dvbbs.checkStr(trim(request.form("F_AnnounceID")))
F_Readme=dvbbs.checkStr(trim(request.form("F_Readme")))
saveid=trim(request.form("saveid"))
Fflag=trim(request.form("Fflag"))
If not isnumeric(Fflag) or not isnumeric(F_BoardID) then
Dvbbs.AddErrCode(32)
Exit sub
End if
if not isnumeric(saveid) or isnull(saveid) then
Dvbbs.AddErrCode(34)
exit sub
end if
if F_Readme="" or isnull(F_Readme) then
Dvbbs.AddErrCode(83)
exit sub
end if
If strLength(F_Readme)>250 then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(0)&"&action=OtherErr"
End if
fileurl=dvbbs.checkStr(trim(request.form("fileurl")))
If fileurl<>"" then
if instr(fileurl,"/")=0 or instr(fileurl,"://")=0 or instr(fileurl,".")=0 then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(13)&"&action=OtherErr"
end if
dvbbs.execute("update [DV_Upfile] set F_Filename='"&fileurl&"',F_Readme='"&F_Readme&"' ,F_Flag="&Fflag&" where F_ID="&saveid)
Else
dvbbs.execute("update [DV_Upfile] set F_BoardID="&F_BoardID&",F_AnnounceID='"&F_AnnounceID&"',F_Readme='"&F_Readme&"' ,F_Flag="&Fflag&" where F_ID="&saveid)
End if
Dvbbs.Dvbbs_suc("
"&Template.Strings(14))
End sub
'新增文件
Sub addnew()
Dim Tempwrite
Dim filetypelist
Dim iupload,i
iupload=Dvbbs.lanstr(5)
iupload=split(iupload,"||")
For i=0 to ubound(iupload)
filetypelist=filetypelist & ""
Next
Tempwrite=Template.html(12)
Tempwrite=Replace(Tempwrite,"{$filetypelist}",filetypelist)
Response.Write Dhlint&Tempwrite
End sub
'保存新增文件
Sub savenew()
Dim sucmsg
If dvbbs.GroupSetting(48)=0 then
Dvbbs.AddErrCode(28)
Exit sub
End if
Dim F_Readme,fileurl,filetype,fileExt,fileExt_a,filename
Dim F_Type,F_Flag
F_Readme=dvbbs.checkStr(trim(request.form("F_Readme")))
fileurl=dvbbs.checkStr(trim(request.form("fileurl")))
filetype=trim(request.form("filetype"))
F_Flag=trim(request.form("Fflag"))
if fileurl="" or isnull(fileurl) then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(15)&"&action=OtherErr"
else
if dvbbs.strLength(fileurl)>250 then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(16)&"&action=OtherErr"
end if
end if
if F_Readme="" or isnull(F_Readme) then
Dvbbs.AddErrCode(83)
exit sub
end if
if dvbbs.strLength(F_Readme)>250 then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(12)&"&action=OtherErr"
Exit sub
end if
if not isnumeric(F_Flag) then
Dvbbs.AddErrCode(34)
Exit sub
end if
if instr(fileurl,"/")=0 or instr(fileurl,"://")=0 or instr(fileurl,".")=0 then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(17)&"&action=OtherErr"
exit sub
else
filename=split(fileurl,"/")
fileExt=lcase(filename(ubound(filename)))
end if
fileExt_a=split(fileExt,".")
fileExt=lcase(fileExt_a(ubound(fileExt_a)))
if fileEXT="asp" and fileEXT="asa" and fileEXT="aspx" then
Response.redirect "showerr.asp?ErrCodes=
"&template.Strings(18)&"&action=OtherErr"
exit sub
end if
if lcase(fileExt)="gif" or lcase(fileExt)="jpg" or lcase(fileExt)="jpeg" or lcase(fileExt)="bmp" or lcase(fileExt)="png" then
F_Type=1
elseif lcase(fileExt)="swf" or lcase(fileExt)="swi" then
F_Type=2
elseif lcase(fileExt)="mid" or lcase(fileExt)="wav" or lcase(fileExt)="mp3" or lcase(fileExt)="rmi" or lcase(fileExt)="cda" then
F_Type=3
elseif lcase(fileExt)="avi" or lcase(fileExt)="wov" or lcase(fileExt)="asf" or lcase(fileExt)="mpg" or lcase(fileExt)="mpeg" or lcase(fileExt)="ra" or lcase(fileExt)="ram" then
F_Type=4
else
F_Type=0
end if
dvbbs.BoardID=0
dvbbs.execute("insert into dv_upfile (F_BoardID,F_UserID,F_Username,F_Filename,F_FileType,F_Type,F_Readme,F_Flag ) values ("&dvbbs.BoardID&","&Dvbbs.UserID&",'"&dvbbs.membername&"','"&replace(fileurl,"|","")&"','"&replace(fileExt,".","")&"',"&F_Type&",'"&F_Readme&"',"&F_Flag&" )")
Dvbbs.Dvbbs_suc("
"&Template.Strings(19))
end sub
'删除文件
Sub fdel()
Dim delid,fixid
If dvbbs.GroupSetting(48)=0 then
Dvbbs.AddErrCode(28)
Exit Sub
End if
delid=replace(request("delid"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid," ","")
fixid=replace(fixid,",","")
If Not IsNumeric(fixid) Then
Dvbbs.AddErrCode(35)
Exit Sub
End If
If delid="" or IsNull(delid) Then
Dvbbs.AddErrCode(42)
Exit Sub
Else
If Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster Then
dvbbs.execute("delete from DV_Upfile where F_ID in ("&delid&")")
Else
dvbbs.execute("delete from DV_Upfile where F_Flag<>2 and F_UserID="&Dvbbs.userID&" and F_ID in ("&delid&")")
End If
Dvbbs.Dvbbs_suc("
"&Template.Strings(20))
end if
end sub
'删除所有文件
Sub alldel()
If dvbbs.GroupSetting(48)=0 then
Dvbbs.AddErrCode(28)
Exit Sub
End If
Dim delid,fixid
delid=replace(request("delid"),"'","")
fixid=replace(delid," ","")
fixid=replace(fixid,",","")
If Not IsNumeric(fixid) Then
Dvbbs.AddErrCode(35)
Exit Sub
End If
If delid="" or isnull(delid) Then
Dvbbs.AddErrCode(42)
Exit Sub
End If
dvbbs.execute("delete from DV_Upfile where F_Flag=1 and F_UserID="&Dvbbs.userid)
Dvbbs.Dvbbs_suc("
"&Template.Strings(21))
End Sub
Function filenum(types)
Dim stype
If IsNumeric(types) Then
Select case types
case 0
stype="F_Type=0 and"
Case 1
stype="F_Type=1 and"
Case 2
stype="F_Type=2 and"
Case 3
stype="F_Type=3 and"
Case 4
stype="F_Type=4 and"
Case Else
stype=""
End Select
Else
stype=""
End If
Rs=Dvbbs.execute("Select Count(F_ID) From DV_Upfile Where "&stype&" F_UserID="&Dvbbs.userid&"")
filenum=Rs(0)
Set rs=nothing
If IsNull(filenum) Then filenum=0
End Function
%>