📄 filetom.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../board/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=7',450,150)>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -