📄 checklist.asp
字号:
<!--#include file="CONST.ASP"-->
<!--#include file="inc/chkuser.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include FILE="inc/Syschar.asp"-->
<%
'if TopMaster or SetPower(1,8) then
if SetPower(1,8) then
if Not TopMaster then
if ChkPost()=False then call EndProc("<br><li>Sorry,不允许提交外部发言!",1,"")
if CheckFolder(GetPath,0)<>"True" then
call actionAbort()
else
dim chk
chk=CheckFolder(GetPath,1)
if chk<>"True" then call EndProc(chk,1,"")
end if
end if
else
call actionAbort()
end if
Sub actionAbort()
Response.write("</head><body bgcolor='#e8e8e8' text='#000000' leftmargin='0' rightmargin='0' topmargin='0' bottommargin='20'>")
Server.Execute("TopNav1.asp")
call GetError("<br><li>无遍历目录权限")
End Sub
closedatabase%>
<!--#include FILE="inc/coo_footer.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -