test.cgi

来自「完整的主机服务器, (含代码).程序会监视联结到主机程序上的所有机器.可是设置开」· CGI 代码 · 共 30 行

CGI
30
字号
proc html_header
 print '<html><title>' & title$ & '</title><body>'
endproc

proc html_footer
 print '</body></html>'
endproc

proc access_denied
 title$ = 'ACCESS DENIED'
 call html_header
 print '<B>ACCESS DENIED</B>'
 call html_footer
endproc

proc access_granted
 call html_header
print '<font face=trebuchet color=orange>ACCESS GRANTED</font>'
 call html_footer
endproc

proc main
newstr title 'HELLO'
if (pass$ == 'hello')
call access_granted
else
call access_denied
endif
end
endproc

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?