|
 |
资料搜索 |
|
|
|
|
|
|
|
|
相关文章 |
|
|
|
|
|
|
|
|
|
|
| [ 来源：转载 | 作者：无从考证 | 时间：2005-11-17 14:10:49 | 浏览：人次 ] | |
|
设置口令
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>
’;
口令正确，进入有口令保护的网站。>>
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
栏目编辑： 设计风 |
责任编辑： 简若宁 |
|
|
原始作者： 无从考证 |
录入时间： 2005-11-17 14:10:49 |
|
|
信息来源： 转载 |
投稿信箱： Edu#chinaz.com |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
