checklist.asp

来自「方舟网免费空间申请程序(自助建站系统) v3.0 1 界面美观 2 后台管理功能」· ASP 代码 · 共 27 行

ASP
27
字号
<!--#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 + =
减小字号Ctrl + -
显示快捷键?