📄 filetom.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%'StarTime = Timer()
dim disfile,disfile1,Page,i,filename,aRS
disfile=Request.QueryString("filename")
BoardID=Request.QueryString("BoardID")
Page=Request.Cookies("Page")
' boardname=Request.Cookies("boardname")
filename=disfile
if VarType(Application(BBSname&"BT_Board"))=0 then
Set rs=conn.execute("select id,所属分类ID,所属分类,版面名称,版面状态,访问控制,版面介绍,版主,主题总数,回复总数,版面标记图片,版面最后发帖,认证论坛用户 from 版面分类 ")
if not (rs.bof and rs.eof) then Application(BBSname&"BT_Board")=rs.GetRows(-1) end if
rs.close
set rs=nothing
AccessNum=AccessNum+1
end if
aRS=Application(BBSname&"BT_Board")
J=-1
If not (aRS(1,0)=-1 or VarType(aRS)=0) Then
For I=0 To UBound(aRS,2)
If Cint(BoardID)=aRS(0,I) then J=I:boardname=aRS(3,I) End If
Next
End If
If Request.Cookies("Login")="Y" and j>=0 Then '---------身份确认,如果sf=1,那么登陆者是版主或管理员，如果是0，则是其它用户
If (instr(1,aRS(7,J),Request.Cookies("Username"))<>0 and Request.Cookies("bbsgl")="bbsadmin") or Request.Cookies("bbsgl")="admin" Then sf=1:Response.Cookies("sf")=1 Else sf=0:Response.Cookies("sf")=0 End If
Else '匿名用户
sf=0:Response.Cookies("sf")=0
End If
conn.execute("update BT_Topic set Hits=Hits+1 where FileName='"&disfile&"' ")
Set conn=Nothing
If page<>"" and boardname<>"" Then
aRS=Application(BBSname&boardname+cstr(page))
For i=0 To UBound(aRS,2)
If aRS(2,i)=filename Then aRS(6,i)=aRS(6,i)+1:Application(BBSname&boardname+Cstr(page))=aRS End If
Next
End If
If sf=1 Then
disfile1="<head><link rel=stylesheet type=text/css href=../css/style1.css></head><body><table width=743><tr><td align=right><b>管理选项:</b> <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=1',450,150)>精华</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=2',450,150)>解精</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=3',450,150)>固顶</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=4',450,150)>解固</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=5',450,150)>总固顶</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=6',450,150)>解总固</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=14',450,150)>移动</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=7',450,150)>删除</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=8',450,150)>奖励</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=9',450,150)>惩罚</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=12',450,150)>设置专题</a>"
If Request.Cookies("bbsgl")="admin" Then disfile=disfile1+" | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=10',450,150)>设为公告</a> | <a href=javascript:openScript('../bbs_admin.asp?filename="&disfile&"&cz=11',450,150)>解除公告</a>" Else disfile=disfile1 End If
disfile=disfile+"</td></tr></table></body>"
disfile="document.write(""" & disfile & """);"
response.write disfile
End If
'EndTime = Timer()
'Response.Write "<center>共执行了"&FormatNumber((EndTime-StarTime)*1000,3)&"毫秒</center>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -