%
Head()
Dim path
Dim objFSO
Dim uploadfolder
Dim uploadfiles
Dim upname
Dim UpFolder
Dim upfilename
Dim admin_flag
admin_flag=",35,"
Dim sfor(30,2)
Dim seachstr,sqlstr,delsql
Dim currentpage,page_count,Pcount
Dim totalrec,endpage
Dim SysFilePath
If Dvbbs.Forum_Setting(76)="0" Or Dvbbs.Forum_Setting(76)="" Then
Dvbbs.Forum_Setting(76)="../UploadFile/"
Else
Dvbbs.Forum_Setting(76) = "../"& Dvbbs.Forum_Setting(76)
End If
SysFilePath = Dvbbs.Forum_Setting(76)
if Request("path")<>"" then
path = Request("path")
else
path = SysFilePath
end if
currentPage=Request("currentpage")
if currentpage="" or not IsNumeric(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
if Request("filesearch")<>"" and IsNumeric(Request("filesearch")) then
seachstr="&filesearch="&Request("filesearch")
end if
'----------------------------------
'多条件查询表单处理开始
'----------------------------------
if Request("filesearch")=7 and IsNumeric(Request("filesearch")) then
'所属版块条件
if Request("class")<>"" and IsNumeric(Request("class")) and Request("class")<>0 then
seachstr=seachstr+"&class="&cint(Request("class"))
sqlstr=" and F_BoardID="&cint(Request("class"))
end if
'附件分类条件
if Request("f_type")<>"" and IsNumeric(Request("f_type")) then
seachstr=seachstr+"&f_type="&cint(Request("f_type"))
sqlstr=sqlstr+" and f_type="&cint(Request("f_type"))
end if
'附件类型条件
if Request("f_filetype")<>"" then
seachstr=seachstr+"&f_filetype="&Request("f_filetype")
sqlstr=sqlstr+" and f_filetype='"&dvbbs.checkstr(Request("f_filetype"))&"'"
end if
'下载次数条件f_downnum
if Request("f_downnum")<>"" and IsNumeric(Request("f_downnum")) then
if Request("downtype")="more" then
sqlstr=sqlstr+" and f_downnum>="&clng(Request("f_downnum"))
else
sqlstr=sqlstr+" and f_downnum<="&clng(Request("f_downnum"))
end if
seachstr=seachstr+"&f_downnum="&cint(Request("f_downnum"))&"&downtype="&Request("downtype")
end if
'浏览次数条件f_viewnum
if Request("f_viewnum")<>"" and IsNumeric(Request("f_viewnum")) then
if Request("viewtype")="more" then
sqlstr=sqlstr+" and f_viewnum>="&clng(Request("f_viewnum"))
else
sqlstr=sqlstr+" and f_viewnum<="&clng(Request("f_viewnum"))
end if
seachstr=seachstr+"&f_viewnum="&cint(Request("f_viewnum"))&"&viewtype="&Request("viewtype")
end if
'附件大小条件f_size
if Request("f_size")<>"" and IsNumeric(Request("f_size")) then
if Request("sizetype")="more" then
sqlstr=sqlstr+" and F_FileSize>="&clng(Request("f_size"))*1024
else
sqlstr=sqlstr+" and F_FileSize<="&clng(Request("f_size"))*1024
end if
seachstr=seachstr+"&f_size="&cint(Request("f_size"))&"&sizetype="&Request("sizetype")
end if
'多少天内发布条件f_adddatenum
if Request("f_adddatenum")<>"" and IsNumeric(Request("f_adddatenum")) then
If IsSqlDataBase=1 Then
if Request("timetype")="more" then
sqlstr=sqlstr+" and datediff(day,F_AddTime,"&SqlNowString&") >= "&clng(Request("f_adddatenum"))
else
sqlstr=sqlstr+" and datediff(day,F_AddTime,"&SqlNowString&") <= "&clng(Request("f_adddatenum"))
end if
Else
if Request("timetype")="more" then
sqlstr=sqlstr+" and datediff('d',F_AddTime,"&SqlNowString&") >= "&clng(Request("f_adddatenum"))
else
sqlstr=sqlstr+" and datediff('d',F_AddTime,"&SqlNowString&") <= "&clng(Request("f_adddatenum"))
end if
End If
seachstr=seachstr+"&f_adddatenum="&cint(Request("f_adddatenum"))&"&timetype="&Request("timetype")
end if
'附件作者:
if Request("f_username")<>"" then
if Request("usernamechk")="yes" then
sqlstr=sqlstr+" and f_username='"&dvbbs.checkstr(Request("f_username"))&"'"
else
sqlstr=sqlstr+" and f_username like '%"&dvbbs.checkstr(Request("f_username"))&"%'"
end if
seachstr=seachstr+"&f_username="&Request("f_username")&"&usernamechk="&Request("usernamechk")
end if
'附件说明:
if Request("f_readme")<>"" then
if Request("f_readmechk")="yes" then
sqlstr=sqlstr+" and f_readme='"&dvbbs.checkstr(Request("f_readme"))&"'"
else
sqlstr=sqlstr+" and f_readme like '%"&dvbbs.checkstr(Request("f_readme"))&"%'"
end if
seachstr=seachstr+"&f_readme="&Request("f_readme")&"&f_readmechk="&Request("f_readmechk")
end if
end if
'----------------------------------
'多条件查询表单处理结束
'----------------------------------
if not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then
Errmsg=ErrMsg + "
论坛上传附件管理 | |
---|---|
注意事项: |
①、本功能必须服务器支持FSO权限方能使用,FSO使用帮助请浏览微软网站。如果您服务器不支持FSO请手动管理。 ②、新版(DV6)之后的版本上传目录强制定义为UploadFile,只有该目录下文件可进行文件自动清理工作,新版之前的版本上传文件只能手动清除垃圾上传文件;(DV6.1)版后所有上传附件会自动存放到新自定义的文件夹中,文件目录以当年月明名。(需要空间支持FSO读写权限) ③、自动清理文件:将对所有上传文件进行核实,如发现文件没有被相关帖子所使用,将执行自动清除命令 |