"
call searchlist()
'===================STAR FILEINFO================
response.write""&_
""
'取出总数
dim frs
set frs=conn.execute("select count(F_id) from DV_Upfile where F_Filename<>'' "&rsearch&" ")
TopicCount=frs(0)
frs.close
set frs=nothing
'定义变量
dim t
dim F_ID,F_AnnounceID,F_BoardID,F_Filename,F_FileType,F_Type,F_Readme,F_DownNum,F_ViewNum
dim F_typename,showfile,golist
dim edit
edit=false
t=0
set rs=conn.execute("select * from [DV_Upfile] where F_Filename<>'' "&rsearch&" order by F_ID desc ")
if rs.eof and rs.bof then
response.write" "&_
"| 所查看的文件已被删除或禁止展示！ | "&_
" "
else
if TopicCount mod Cint(maxpage)=0 then
Pcount= TopicCount \ Cint(maxpage)
else
Pcount= TopicCount \ Cint(maxpage)+1
end if
RS.MoveFirst
if star > Pcount then star = Pcount
RS.Move (star-1) * maxpage
page_count=0
do while not rs.eof and page_count < Cint(maxpage)
F_ID=rs("F_ID")
F_AnnounceID=rs("F_AnnounceID")
F_BoardID=rs("F_BoardID")
F_Filename=rs("F_Filename")
F_FileType=rs("F_FileType")
F_Type=rs("F_Type")
F_Readme=rs("F_Readme")
F_DownNum=rs("F_DownNum")
F_ViewNum=rs("F_ViewNum")
if instr(F_Filename,"/")=0 then '判断文件是否本论坛，若不是则采用表中的记录．
F_Filename=bbsurl&"UploadFile/"&F_Filename
end if
if not isnull(F_AnnounceID) then
F_AnnounceID=split(F_AnnounceID,"|")
golist="查看相关讨论..."
else
golist="暂没有相关帖子"
end if
select case F_Type
case 1
F_typename="图片集"
showfile="![]() "
case 2
F_typename="FLASH集"
showfile="
![]() FLASH欣赏"
case 3
F_typename="音乐集"
showfile="
![]() 音乐欣赏"
case 4
F_typename="电影集"
showfile="
![]() 电影欣赏"
case else
F_typename="文件集"
showfile="
![]() 软件下载"
end select
if GroupSetting(48)=1 then
if master or superboardmaster or boardmaster then
edit=true
elseif rs("F_Username")=membername then
edit=true
else
edit=false
end if
end if
response.write ""&_
" | "
if t=tab-1 and t"
if t>tab-1 then
t=1
else
t=t+1
end if
page_count = page_count + 1
rs.movenext
loop
end if
rs.close
set rs=nothing
response.write " "
'===================END FILEINFO================
call list()
response.write " |