📄 show.asp
字号:
<!--#include FILE="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
stats="论坛展区"
dim TopicCount
dim Pcount,endpage,star,page_count
dim toback,tonext
dim rsearch
dim maxpage
dim tab
tab=request.cookies("tab")
dim bbsurl
bbsurl=getservepath(request.ServerVariables("server_name")&request.ServerVariables("URL"))
call nav()
if request("star")="" or not isnumeric(request("star")) then
star=1
toback=1
tonext=2
else
star=clng(request("star"))
toback=star-1
tonext=star+1
end if
if star <=1 then
star=1
toback=1
tonext=2
end if
if tab="" or not isnumeric(tab) then
tab=4
end if
if request("tab")="" or not isnumeric(request("tab")) then
tab=tab
else
tab=clng(request("tab"))
Response.Cookies("tab").Expires=Date+365
response.cookies("tab")=tab
end if
maxpage=clng(tab*3) '每页显示文件的个数
if request("username")="" or request("filetype")="" or request("boardid")="" then
rsearch=""
end if
if request("boardid")<>"" and isnumeric(request("boardid")) then
if clng(request("boardid"))<>0 then
rsearch=rsearch&"and F_BoardID="&clng(request("boardid"))&" "
end if
end if
if request("filetype")<>"" and isnumeric(request("filetype")) then
rsearch=rsearch&"and F_Type="&cint(request("filetype"))&" "
end if
if request("username")<>"" then
rsearch=rsearch&"and F_Username='"&checkStr(request("username"))&"' "
end if
if Cint(GroupSetting(49))=0 then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览本论坛展区的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
founderr=true
end if
if founderr=true then
call head_var(2,0,"","")
call dvbbs_error()
else
if request("boardid")<>"" and isnumeric(request("boardid")) then
if clng(request("boardid"))<>0 then
call head_var(1,BoardDepth,0,0)
else
call head_var(2,0,"","")
end if
else
call head_var(2,0,"","")
end if
call main()
if founderr then call dvbbs_error()
end if
call activeonline()
call footer()
%>
<%
sub main()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 >
<tr>
<th height=25 align=center colspan="2"><%=stats%></th>
</tr>
<tr>
<td width="180" valign="top" class=tablebody2>
<%
'===================STAR TopInfo==================
response.write"<table cellpadding=2 cellspacing=1 class=tableborder2 style=""width:100%;word-break:break-all;"">"&_
"<tr>"&_
"<th height=25 align=center >TOP 10 展区热门排行</th>"&_
"</tr>"
call top(10,"F_ViewNum")
response.write"</table>"
response.write"<br><table cellpadding=2 cellspacing=1 class=tableborder2 style=""width:100%;word-break:break-all;"">"&_
"<tr>"&_
"<th height=25 align=center >TOP 10 展区最新排行</th>"&_
"</tr>"
call top(10,"F_ID")
response.write"</table>"
'===================end TopInfo==================
response.write"</td><td width=* valign=""top"" class=tablebody1>"
call searchlist()
'===================STAR FILEINFO================
response.write"<table cellpadding=1 cellspacing=1 border=0 width=100% style=""word-break:break-all;"">"&_
"<tr>"
'取出总数
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"<tr >"&_
"<td height=26 class=tablebody2 align=center><font color="&Forum_body(8)&">所查看的文件已被删除或禁止展示！</font></td>"&_
"</tr >"
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="<a href=""dispbbs.asp?Boardid="&F_BoardID&"&ID="&F_AnnounceID(0)&"&replyID="&F_AnnounceID(1)&"&skin=1"" target=""_blank"" title=""浏览相关帖子"">查看相关讨论...</a>"
else
golist="<font color=gray>暂没有相关帖子</font>"
end if
select case F_Type
case 1
F_typename="图片集"
showfile="<img src="""&htmlencode(FilterJS(F_Filename))&""" style='border: 1 solid #000000' width=90 height=90>"
case 2
F_typename="FLASH集"
showfile="<img src=Images/files/info.gif border=0><br><img src=""images/files/"&F_FileType&".gif"" border=0><a href="&htmlencode(FilterJS(F_Filename))&" target=""_blank"" title=""点击欣赏"">FLASH欣赏</a>"
case 3
F_typename="音乐集"
showfile="<img src=Images/files/info.gif border=0><br><img src=""images/files/"&F_FileType&".gif"" border=0><a href="&htmlencode(FilterJS(F_Filename))&" target=""_blank"" title=""点击欣赏"">音乐欣赏</a>"
case 4
F_typename="电影集"
showfile="<img src=Images/files/info.gif border=0><br><img src=""images/files/"&F_FileType&".gif"" border=0><a href="&htmlencode(FilterJS(F_Filename))&" target=""_blank"" title=""点击欣赏"">电影欣赏</a>"
case else
F_typename="文件集"
showfile="<img src=Images/files/info.gif border=0><br><img src=""images/files/"&F_FileType&".gif"" border=0><a href=viewfile.asp?ID="&F_ID&" target=""_blank"" title=""点击欣赏"">软件下载</a>"
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 "<td width=""25%"" height=""200"" align=""center"" class=tablebody1>"&_
"<table cellpadding=2 cellspacing=1 class=tableborder1 style=""width:100%;height=100%;word-break:break-all;"" >"&_
"<tr><td width=""100%"" height=""130"" align=""center"" valign=top class=tablebody1>"
'执行文件管理图标
if founduser then
response.write"<table border=0 width=100% cellspacing=0 cellpadding=0>"&_
"<tr><td width=* align=left>"
if edit=true then
response.write"<a href=myfile.asp?action=edit&editid="&F_ID&" title=""编辑该文件"" ><img src="&Forum_info(7)&"editfile.gif border=0 width=""10"" height=""10""></a>"
response.write" <a href=myfile.asp?action=fdel&delid="&F_ID&" title=""删除该文件"" ><img src="&Forum_info(7)&"delete.gif border=0 width=""10"" height=""10""></a>"
end if
response.write"</td><td width=20 align=right><a href=fileshow.asp?action=send&id="&F_ID&" ><img src="&Forum_info(7)&"newmail.gif border=0 title=""发送给朋友""></a></td></tr></table>"
end if
response.write"<br><a href=""fileshow.asp?boardid="&F_BoardID&"&id="&F_ID&""" target=""_blank"" title='点击浏览文件'>"&showfile&"</a><br>"
response.write"</td></tr><tr><td class=tablebody2 >"&_
"作者: <a href=dispuser.asp?name="&trim(rs("F_Username"))&" >"&htmlencode(rs("F_Username"))&"</a>"&_
"<br>属性: <a href=show.asp?filetype="&F_Type&" >"&F_typename&" ["
if F_Type=0 then
response.write"<font color="&Forum_body(8)&">"&F_DownNum&"</font>"
else
response.write"<font color="&Forum_body(8)&">"&F_ViewNum&"</font>"
end if
response.write"]</a><br>说明: "
if rs("F_Readme")<>"" or not isnull(rs("F_Readme")) then
if len(rs("F_Readme"))>26 then
response.write ""&left(htmlencode(replace(rs("F_Readme"),chr(10)," ")),26)&"..."
else
response.write Server.htmlencode(rs("F_Readme"))
end if
else
response.write "<font color=gray>未有记录</a>"
end if
response.write "<br>"&golist
response.write "</td></tr>"&_
"</table></td>"
if t=tab-1 and t<tab then response.write "</tr><tr>"
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 "</tr></table>"
'===================END FILEINFO================
call list()
response.write "</td></tr>"&_
"<tr><th height=25 align=center colspan=""2"">"&stats&"</th>"&_
"</tr></table>"
end sub
'分页代码
SUB LIST()
response.write "<BR><table cellpadding=0 cellspacing=3 border=0 width=100% align=center ><form method=post action=""?boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&""" ><tr><td valign=middle nowrap>展区共有<b>"&TopicCount&"</b>幅作品，每页"&maxpage&"个文件，共<b><font color=red>"&Pcount&"</font></b>页"
response.write "</td><td align=center><font face=Webdings>3</font><a href=""?star="&toback&"&boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&" "">上一页</A> "&_
" <a href=""?star="&tonext&"&boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&" "">下一页</a><font face=Webdings>4</font>"&_
"</td><td align=right>"
if star > 4 then
response.write "<a href=""?star=1&boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&" "">[1]</a> ..."
end if
if Pcount>star+3 then
endpage=star+3
else
endpage=Pcount
end if
for i=star-3 to endpage
if not i<1 then
if i = clng(star) then
response.write " <font color=#996633>["&i&"]</font>"
else
response.write " <a href=""?star="&i&"&boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&" "">["&i&"]</a>"
end if
end if
next
if star+3 < Pcount then
response.write "... <a href=""?star="&Pcount&"&boardid="&request("boardid")&"&filetype="&request("filetype")&"&username="&request("username")&"&tab="&tab&" "">["&Pcount&"]</a>"
end if
response.write " 转到:<input type=text name=star size=3 maxlength=10 value='"& star &"'><input type=submit value=Go id=button1 name=button1 >"
response.write "</td></tr></form></table>"
end sub
'搜索栏与跳转栏
sub searchlist()
%>
<table cellpadding=6 cellspacing=1 align=center width="100%">
<form method=POST action="?" >
<tr>
<td align=center width="*" >
<% if request("username")<>"" then
response.write "浏览<font color="&Forum_body(8)&" >"&htmlencode(request("username"))&"</font>的个人展览"
end if
%>
</td>
<td width="200" align="right">
<input type="text" name="username" size="20" value="<%=htmlencode(request("username"))%>"><input type="submit" name="Submit" value="用户查询">
</td>
<td width="150" align="right">
<select name=filetype onchange='javascript:submit()'>
<option value="" >按文件分类浏览</option>
<%
dim iupload
iupload="文件集|图片集|FLASH集|音乐集|电影集"
iupload=split(iupload,"|")
for i=0 to ubound(iupload)
response.write "<option value="&i&" "
if request("filetype")<>"" and isnumeric(request("filetype")) then
if i=cint(request("filetype")) then
response.write "selected"
end if
end if
response.write ">"&iupload(i)&"</option>"
next
%>
</td>
<td width="120" align="right"><select name=boardid onchange='javascript:submit()'>
<option selected>选择分论坛...</option>
<%
dim ii
ii=0
set rs=conn.execute("select boardid,boardtype,depth from board order by rootid,orders")
do while not rs.EOF
response.write "<option value="&rs(0)&" "
if boardid=rs(0) then
response.write "selected"
end if
response.write ">"
select case rs(2)
case 0
response.write "╋"
case 1
response.write " ├"
case 2
response.write " │ ├"
case 3
response.write " │ │ ├"
case 4
response.write " │ │ │ ├"
case 5
response.write " │ │ │ │ ├"
case 6
response.write " │ │ │ │ │ ├"
case 7
response.write " │ │ │ │ │ │ ├"
case 8
response.write " │ │ │ │ │ │ │ ├"
case 9
response.write " │ │ │ │ │ │ │ │ ├"
end select
response.write rs(1)&"</option>"
ii=0
rs.MoveNext
loop
set rs=nothing
response.write"</select></td>"
%>
<td width=20>
<select name=tab onchange='javascript:submit()'>
<option value="" >分列</option>
<option value="2" >2列</option>
<option value="3" >3列</option>
<option value="4" >4列</option>
</select>
</td>
</tr>
</form>
</table>
<%
end sub
'top 排行调用
sub top(num,str)
dim fileinfo
set rs=conn.execute("select top "&num&" F_ID,F_BoardID,F_Username,F_Filename,F_Readme from DV_Upfile order by "&str&" desc,F_addTime desc")
do while not rs.EOF
if rs(4)<>"" then
fileinfo=htmlencode(rs(4))
else
fileinfo=htmlencode(FilterJS(rs(3)))
end if
response.write "<tr><td valign=top class=tablebody1>"
response.write "<font face=Webdings>4</font><a href=""fileshow.asp?boardid="&rs(1)&"&id="&cint(rs(0))&""" target=""_blank"" title='点击浏览文件'>"
if len(fileinfo)>12 then
response.write left(replace(fileinfo,chr(10)," "),12)
else
response.write fileinfo
end if
response.write"</a>"
'response.write" <a href=dispuser.asp?name="&trim(rs(2))&" >"&htmlencode(rs(2))&"</a>"
response.write"</td></tr>"
rs.MoveNext
loop
set rs=nothing
end sub
function getservepath(str)
dim tmpstr
tmpstr=split(str,"/")
getservepath="http://"&replace(str, tmpstr(ubound(tmpstr)), "")
end function
Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"javascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"jscript:")
re.Pattern="(js:)"
t=re.Replace(t,"js:")
re.Pattern="(value)"
t=re.Replace(t,"value")
re.Pattern="(about:)"
t=re.Replace(t,"about:")
re.Pattern="(file:)"
t=re.Replace(t,"file:")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents.cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"vbscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"vbs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"on$2")
re.Pattern="(&#)"
t=re.Replace(t,"＆#")
FilterJS=t
set re=nothing
end if
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -