%
'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()
Dvbbs.PageEnd()
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=Replace(MainTable,"{$ShowPage}",ShowPage(star,Pcount,TopicCount,Cint(Dvbbs.Forum_Setting(11)),redcolor))
MainTable=Replace(MainTable,"{$ShowPage}","")
Response.Write Dhlint&MainTable
End Sub
'分页代码
Function ShowPage(CurrentPage,Pcount,totalrec,PageNum,redcolor)
Dim SearchStr,Stype
If Request("Stype")="" Then
Stype = 5
Else
Stype = CInt(Request("Stype"))
End If
SearchStr="Boardid="&Dvbbs.boardid&"&Stype="&Stype&"&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
If Trim(Dvbbs.Forum_Setting(76))="" Or Dvbbs.Forum_Setting(76)="0" Then Dvbbs.Forum_Setting(76)="UploadFile/"
If right(Dvbbs.Forum_Setting(76),1)<>"/" Then Dvbbs.Forum_Setting(76)=Dvbbs.Forum_Setting(76)&"/"
filename = Trim(Dvbbs.Forum_Setting(76)) & 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="