Cgi入门教程之：13 设置口令
设置口令
CGI的一个有趣的特征是即使任何用户都能执行它们，但却没有办法在屏幕上显示她们。这意味着可以做一个口令脚本： #********BEGIN BODY************** if ($value[0] ne "mypassword") { print "Invalid Password"; } else { print ’ <BODY BGCOLOR="WHITE"> <H1> Welcome, you have entered the<P> Password protected site </H1> ’; }; #*********END BODY*************** 要用这个脚本，需要建立一个有form的HTML页面。如果在form上只有password一个box，则在运行脚本时它传递给$value[0]。 和javascript不同，用户看不到源代码，所以使用以下代码是安全的： if ($value[0] ne "mypassword") { 第一行为IF语句，与在javascript中的用法相似。 在Perl中，IF语句不同，取决于是比较数字还是文本。比较数字，可以用==, !=, >, < 符号。如果比较文本，用eq判断是否相等，用ne判断是否不相等。 上面的语句确定在用户输入的文本不等于"mypassword"时将做什么。 print "Invalid Password"; 口令不对时打印某些信息。 } else { 否则... print ’ <BODY BGCOLOR="WHITE"> <H1> Welcome, you have entered the<P> Password protected site </H1> ’; 口令正确，进入有口令保护的网站。>> 上一篇：Cgi入门教程之：11 写文件 下一篇：本地调试PERL CGI程序之一 更多相关文章
|
推荐文章
精彩文章
|
